Kod:
' M.Y Project ' https://twitter.com/#!/myprojectz Private Sub ekle_Click() 'amac : Text'e girilen ismi listeye gecirmek ve aynı anda listedekiler adlı labeldeki sayıyı 1 attırmak 'boylelikle listeye kac isim girilmiş biliyoruz If isim.Text = ("") Then ' isim girilcek olan text kutumuz boş ise ; MsgBox "İsim Giriniz ", vbCritical, "aboo67" ' hata mesajı acılıp isim girilmesini istiyelim Else ' eger textimizde yazı yazıyorsa 'textdeki yazıyı listeye ekle liste.AddItem isim.Text isim.Text = ("") 'sonra eklencek olan isim icin kolaylık sağlamış olduk oncekini silip yazmasına gerek yok 'labeldeki sayıyı 1 arttır yani bu sayede listeye girilen isim sayısını biliyoruz 'listeye her isim girildiginde sayıyı 1 arttırcaktır listedekiler.Caption = listedekiler.Caption + 1 End If End Sub Private Sub kura_Click() 'amac : listeye girilen isim sayısından kucuk rasgele bir sayı uretip bu sayı dorultusunda listeden index secmek Dim aboo67 As String If listedekiler.Caption = ("0") Then ' Eger liste boş iken kura cekilirse hata mesajımız gozuksun MsgBox "Hata Liste Boş", vbCritical, "aboo67" Else ' listede isim ekli iken ; aboo67 = listedekiler.Caption 'aboo67 degerine listede kac isim oldugunu tanımlıyalım 'listboxda index basit olarak listedeki isim sırası olarak tanımlayabiliriz 'ilk satırdaki isimin indexsi 0 dır 'sonra peşine gelen satırlar 1-2-3-4-5-6 diye gidicektir liste.ListIndex = Int(Rnd * aboo67) 'listeye girilen isim sayısından kucuk bir sayı uretip indexsimizi seciyoruz 'yani listeye 4 isim girildiyse 4 ve 4den kucuk rasgele bir sayı oluşturup listenin indexsi seciliyor 'ornegin listenin indexsi 4 olarak secilirse 5ci sıradaki ismi seciyor MsgBox liste, vbDefaultButton1, "aboo67" ' isimi sectikten sonra Msgbox olarak bize bildiriyor End If End Sub Private Sub Command1_Click() ' burdaki amac girilen isimleri ve listeyi temizlemek listedekiler.Caption = ("0") liste.Clear End Sub
Proje İndir
kura cekme.rar
https://www.virustotal.com/file/e1ad...is/1334855945
https://www.facebook.com/Aboo67
https://twitter.com/#!/myprojectz
Yeniyem Bi el atın da
__________________