Amac Paylaşmak Sadece....
ADRES DEFTERİ ACIK KAYNAK KODLARI
Private Sub ac_Click()
CommonDialog1.Action = 1
End Sub
Private Sub Command1_Click() 'ekle duğmesi
List1.AddItem Text1
List2.AddItem Combo1.Text
List3.AddItem Combo2.Text
Label5 = List1.ListCount
End Sub
Private Sub Command2_Click() 'sil duğmesi
If List1.ListIndex < 0 Then
MsgBox ("once silinecek elemanı seciniz")
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 duğmesi
Dim i
For i = 0 To List1.ListCount - 1
If UCase(List1.List(i)) = UCase(Text1) Then
'bulundu ise sec
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 ("once değiştirilecek elemanı seciniz")
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 duğmesi
Dim İnd
If List1.ListIndex < 0 Then
MsgBox ("once elemanın nereye ekleneceğini seciniz")
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 = "şukru" 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 "Oğrenci"
Combo1.AddItem "Oğretmen"
Combo1.AddItem "Proğramcı"
Combo1.AddItem "İşci"
Combo1.AddItem "Muhasebeci"
Combo1.AddItem "Muhendis"
Combo1.AddItem "Donanımcı"
Combo1.AddItem "İşletmeci"
Combo1.AddItem "Doktor"
Combo1.AddItem "Polis"
Combo1.AddItem "Hemşire"
Combo1.AddItem "Ciftci"
Combo1.AddItem "İşci"
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 "Bingol"
Combo2.AddItem "Bolu"
Combo2.AddItem "Bilecik"
Combo2.AddItem "Balıkesir"
Combo2.AddItem "Batman"
Combo2.AddItem "Burdur"
Combo2.AddItem "Bursa"
Combo2.AddItem "Canakkale"
Combo2.AddItem "Cankırı"
Combo2.AddItem "Corum"
Combo2.AddItem "Denizli"
Combo2.AddItem "Duzce"
Combo2.AddItem "Edirne"
Combo2.AddItem "Erzincan"
Combo2.AddItem "Erzurum"
Combo2.AddItem "Eskişehir"
Combo2.AddItem "Elazığ"
Combo2.AddItem "Gumuş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 "Karabuk"
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 once kaydedilmiş dosya varsa ac
If Dir("pers.dat") "" Then 'dosya varsa ac
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)
'cı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 secileni diğerlerinde de sec
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
__________________