VB'de Adres Defteri yapmak

[bilalgzkys]

Private Sub aç_Click()
CommonDialog1.Action = 1
End Sub

Private Sub Command1_Click() 'ekle düğmesi
List1.AddItem Text1
List2.AddItem Combo1.Text
List3.AddItem Combo2.Text
Label5 = List1.ListCount
End Sub

Private Sub Command2_Click() 'sil düğmesi
If List1.ListIndex < 0 Then
MsgBox ("önce silinecek elemanı seçiniz")
Exit Sub
End If
Dim ind, c
c = MsgBox(List1.List(ind) & " silinsin mi", vbYesNo + vbExclamation + vbDefaultButton2, "sil")
ind = List1.ListIndex
If c = vbNo Then Exit Sub
List1.RemoveItem ind
List2.RemoveItem ind
List3.RemoveItem ind
Label5 = List1.ListCount

End Sub

Private Sub Command3_Click() 'bul düğmesi
Dim i
For i = 0 To List1.ListCount - 1
If UCase(List1.List(i)) = UCase(Text1) Then
'bulundu ise seç
List1.ListIndex = i
Exit Sub
End If
Next
MsgBox (Text1 & "bululamadı")
End Sub

Private Sub Command4_Click()
Dim ind
If List1.ListIndex < 0 Then
MsgBox ("önce değiştirilecek elemanı seçiniz")
Exit Sub
End If
ind = List1.ListIndex
List1.List(ind) = Text1
List2.List(ind) = Combo1.Text
List3.List(ind) = Combo2.Text
End Sub

Private Sub Command5_Click() 'Araya ekle düğmesi
Dim İnd
If List1.ListIndex < 0 Then
MsgBox ("önce elemanın nereye ekleneceğini seçiniz")
Exit Sub
End If
ind = List1.ListIndex
List1.AddItem Text1, ind
List2.AddItem Combo1.Text, ind
List3.AddItem Combo1.Text, ind
Label6 = List1.ListCount


End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
If Text1 = "saygın" Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Else
If Text1 = "cengiz" Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Else
If Text1.Text = "erkut" Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
Else
If Text1 = "şükrü" Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Else
If Text1 = "nuri" Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
End If
End If
End If
End If
End If
End Sub

Private Sub Command8_Click()

End Sub

Private Sub Form_Load()
Combo1.AddItem "Öğrenci"
Combo1.AddItem "Öğretmen"
Combo1.AddItem "Proğramcı"
Combo1.AddItem "İşçi"
Combo1.AddItem "Muhasebeci"
Combo1.AddItem "Mühendis"
Combo1.AddItem "Donanımcı"
Combo1.AddItem "İşletmeci"
Combo1.AddItem "Doktor"
Combo1.AddItem "Polis"
Combo1.AddItem "Hemşire"
Combo1.AddItem "Çiftçi"
Combo1.AddItem "İşçi"
Combo2.AddItem "Adana"
Combo2.AddItem "Adıyaman"
Combo2.AddItem "Ağrı"
Combo2.AddItem "Afyon"
Combo2.AddItem "Amasya"
Combo2.AddItem "Ankara"
Combo2.AddItem "Aksaray"
Combo2.AddItem "Artvin"
Combo2.AddItem "Antalya"
Combo2.AddItem "Ardahan"
Combo2.AddItem "Aydın"
Combo2.AddItem "Bayburt"
Combo2.AddItem "Bartın"
Combo2.AddItem "Bitlis"
Combo2.AddItem "Bingöl"
Combo2.AddItem "Bolu"
Combo2.AddItem "Bilecik"
Combo2.AddItem "Balıkesir"
Combo2.AddItem "Batman"
Combo2.AddItem "Burdur"
Combo2.AddItem "Bursa"
Combo2.AddItem "Çanakkale"
Combo2.AddItem "Çankırı"
Combo2.AddItem "Çorum"
Combo2.AddItem "Denizli"
Combo2.AddItem "Düzce"
Combo2.AddItem "Edirne"
Combo2.AddItem "Erzincan"
Combo2.AddItem "Erzurum"
Combo2.AddItem "Eskişehir"
Combo2.AddItem "Elazığ"
Combo2.AddItem "Gümüşhane"
Combo2.AddItem "G.Antep"
Combo2.AddItem "Giresun"
Combo2.AddItem "Hatay"
Combo2.AddItem "Hakkari"
Combo2.AddItem "Iğdır"
Combo2.AddItem "Isparta"
Combo2.AddItem "İzmir"
Combo2.AddItem "İstanbul"
Combo2.AddItem "K.Maraş"
Combo2.AddItem "Kayseri"
Combo2.AddItem "Kırkşehir"
Combo2.AddItem "Kırıkkale"
Combo2.AddItem "Karabük"
Combo2.AddItem "Kilis"
Combo2.AddItem "Konya"
Combo2.AddItem "Kocaeli"
Combo2.AddItem "Kırlareli"
Combo2.AddItem "Kastamonu"
Combo2.AddItem "Kars"
Combo2.AddItem "Manisa"
Combo2.AddItem "Mardin"
Combo2.AddItem "Muğla"
Combo2.AddItem "Malatya"
Combo2.AddItem "Mersin"
Combo2.AddItem "Muş"
Combo2.AddItem "Niğde"
Combo2.AddItem "Nevşehir"
Combo2.AddItem "Osmaniye"
Combo2.AddItem "Ordu"
Combo2.AddItem "Rize"
Combo2.AddItem "Samsun"
Combo2.AddItem "Sinop"
Combo2.AddItem "Sakarya"
Combo2.AddItem "Siirt"
Combo2.AddItem "Sivas"
Combo2.AddItem "Şırnak"
Combo2.AddItem "Ş.urfa"
Combo2.AddItem "Tokat"
Combo2.AddItem "Trabzon"
Combo2.AddItem "Tunceli"
Combo2.AddItem "Tekirdağ"
Combo2.AddItem "Van"
Combo2.AddItem "Yozgat"
Combo2.AddItem "Yalava"
Combo2.AddItem "Zonguldak"

Dim x, y, z
'daha önce kaydedilmiş dosya varsa aç
If Dir("pers.dat") <> "" Then 'dosya varsa aç
Open "pers.dat" For Input As #1
While Not EOF(1) 'dosya sonuna kadar
Input #1, x, y, z
List1.AddItem x
List2.AddItem y
List3.AddItem z
Wend
Close #1
End If
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
'çıkışta listeleri pers.dat dosyasına kaydet
Dim x, y, z, i
Open "pers.dat" For Output As #1
For i = 0 To List1.ListCount - 1
x = List1.List(i)
y = List2.List(i)
z = List3.List(i)
Write #1, x, y, z
Next
Close #1
End Sub

Private Sub KAYDET_Click()
CommonDialog1.Action = 2

End Sub

Private Sub List1_Click()
'birinde seçileni diğerlerinde de seç
List2.ListIndex = List1.ListIndex
List3.ListIndex = List1.ListIndex
List2.TopIndex = List1.TopIndex
List3.TopIndex = List1.TopIndex
Label6 = List1.ListIndex + 1
Text1 = List1.Text


End Sub
Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
List3.ListIndex = List2.ListIndex
List1.TopIndex = List2.TopIndex
List3.TopIndex = List2.TopIndex
Label6 = List2.ListIndex + 1
Combo1.Text = List2.Text
End Sub

Private Sub List3_Click()
List2.ListIndex = List3.ListIndex
List1.ListIndex = List3.ListIndex
List2.TopIndex = List3.TopIndex
List1.TopIndex = List3.TopIndex
Label6 = List3.ListIndex + 1
End Sub

 

[MANİSALI4545]

kardeşim bu programın işleyişi ysni ne işe yaradığnı biraz açıkça anlatırsan sevinirim.eline sağlık şimdidedn saol...