eğer beğenilirse pr0jelerimi paylaşmaya dewam edecegim şimdilik 3-5 tane ekledim

programı yarısına kadar hallettim ama şu sub list olayını annamadım bende resimler gozukmuyor:O By

ya ben bişi sorucam alıntı yaparak cevaplayamıom deli oldum sebebi nedir?

programın ekran görüntüsündeki gibi gerekli nesneleri ekleyin ve gerisini kodlara bırakın. ayrıca program geliştirilebilir access te kayıtlar tutulabilir. daha access le vb yi baglamayi öğrenmedim ondan yapamadım yapan olursa projesini atarsa sevinirim Private Sub Command1_Click Text1. Text = "" Text2. Text = "" Text3. Text = "" Text4. Text = "" Text5. Text = "" End Sub Private Sub Command2_Click List1. AddItem Text1. Text List2. AddItem Text2. Text List3. AddItem Text3. Text List5. AddItem Text4. Text List6. AddItem Text5. Text If Option1. Value = True Then List4. AddItem "kız" If Option2. Value = True Then List4. AddItem "erkek" End Sub Private Sub Command3_Click If Option3. Value = True Then ara = InputBox("Numarayı Giriniz...", "Arama Ekranı", 0) For X = 0 To List1. ListCount - 1 If ara = List1. List Then List1. ListIndex = X Next End If If Option4. Value = True Then ara = InputBox("Öğrencinin Adını Giriniz", "Arama Ekranı", 0) For X = 0 To List2. ListCount - 1 If ara = List2. List Then List2. ListIndex = X Next End If If Option5. Value = True Then ara = InputBox("Öğrencinin Soyadını Giriniz", "Arama Ekranı", 0) For X = 0 To List3. ListCount - 1 If ara = List3. List Then List3. ListIndex = X Next End If If Option6. Value = True Then ara = InputBox("Öğrencinin Bölümünü Giriniz", "Arama Ekranı", 0) For X = 0 To List5. ListCount - 1 If ara = List5. List Then List5. ListIndex = X Next End If If Option7. Value = True Then ara = InputBox("Öğrencinin Sınıfını Giriniz", "Arama Ekranı", 0) For X = 0 To List6. ListCount - 1 If ara = List6. List Then List6. ListIndex = X Next End If End Sub Private Sub Command4_Click cevap = MsgBox("silmek istediginizden emin misiniz?", vbYesNo + vbQuestion + vbDefaultButton1, "dosya silme") If cevap = vbYes Then List1. RemoveItem (List1. ListIndex) List2. RemoveItem (List2. ListIndex) List3. RemoveItem (List3. ListIndex) List4. RemoveItem (List4. ListIndex) List5. RemoveItem (List5. ListIndex) List6. RemoveItem (List6. ListIndex) End If End Sub Private Sub Command5_Click cevap = MsgBox("çıkmak istediginizden emin misiniz?", vbYesNo + vbQuestion + vbDefaultButton1, "dosya silme") If cevap = vbYes Then End End Sub Private Sub List1_Click List2. ListIndex = List1. ListIndex List3. ListIndex = List1. ListIndex List4. ListIndex = List1. ListIndex List5. ListIndex = List1. ListIndex List6. ListIndex = List1. ListIndex End Sub Private Sub List2_Click List1. ListIndex = List2. ListIndex List3. ListIndex = List2. ListIndex List4. ListIndex = List2. ListIndex List5. ListIndex = List2. ListIndex List6. ListIndex = List2. ListIndex End Sub Private Sub List3_Click List1. ListIndex = List3. ListIndex List2. ListIndex = List3. ListIndex List4. ListIndex = List3. ListIndex List5. ListIndex = List3. ListIndex List6. ListIndex = List3. ListIndex End Sub Private Sub List4_Click List1. ListIndex = List4. ListIndex List2. ListIndex = List4. ListIndex List3. ListIndex = List4. ListIndex List5. ListIndex = List4. ListIndex List6. ListIndex = List4. ListIndex End Sub Private Sub List5_Click List1. ListIndex = List5. ListIndex List2. ListIndex = List5. ListIndex List3. ListIndex = List5. ListIndex List4. ListIndex = List5. ListIndex List6. ListIndex = List5. ListIndex End Sub Private Sub List6_Click List1. ListIndex = List6. ListIndex List2. ListIndex = List6. ListIndex List3. ListIndex = List6. ListIndex List4. ListIndex = List6. ListIndex List5. ListIndex = List6. ListIndex End Sub -

Resim Derken?

Aynen katılıyorum Bu arada programın güzel olmuş Ama bence projenin kanak kodlarını linkte versen daha rahat olurdu.

resimler gözükmüyor :S

sen bunu hazırlayabiliyorsun da çember alanı hesaplayan bir program için yardım mı istiyorsun? .. ilginç

tebrik ederim

eet ii ki varsın wardom

sub olayını açıklayım şimdi o sub olayını yapmamın amacı mesela list boxtaki kayıtların herhangi bi yerine tıkladıgımız zaman bütün satiri seçili hale getirmesi. neronaga valla biz bunları okulda yapıyoruz hoca anlatıyo konuyu biz yapıyoruz. ama daha dairenin alani çapı fln hiç öle bişi işlemedik ondan yapamadım

Tebrik ederim, cok iyi gidiyorsun. Keske hevesim olsaydi Vb'ye.

Paylaşımın için teşekkürler hedef başarı iyiki varsın wardom

yaa verirdim ama bi projeenin içinde böyle 10 tane fln çalışma var hepsi bunun gibi deil ama bunu yapmak içiçn gerekli olan formlar. upload etsem baya beklicem onun için kopyala yapıştır yaptım