Programalama > VISUAL BASIC

Etiketler: listeye, kayit, ekleme

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.