Programalama > VISUAL BASIC

Private Sub Command1_Click()
List1.AddItem Text1
List2.AddItem Text2
End Sub

Private Sub Command2_Click()
If List1.ListIndex = -1 Or List2.ListIndex = -1 Then MsgBox ("silinecek kişinin adını ve soyadını işaretlendirin"): Exit Sub
List1.RemoveItem List1.ListIndex
List2.RemoveItem List2.ListIndex
End Sub



Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
c = MsgBox("çıkmak istediğinizden eminmisiniz", vbYesNo + vbQuestion, "çıkış bölümü")
If c = 6 Then End
End Sub

Private Sub Command5_Click()
c = MsgBox("tüm liste silinecek eminmisiniz", vbYesNo + vbQuestion, "uyarı")
If c = 6 Then GoTo devam
Exit Sub
devam:
c = MsgBox("son kararınmı", vbYesNo + vbExclamation, "günaah benden gitti")
If c = 6 Then List1.Clear: List2.Clear
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List2.ListIndex = List1.ListIndex

End Sub



Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.ListIndex = List2.ListIndex

End Sub