vbde

  1. VB'de Adres Defteri yapmak

    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...

Yeni mesajlar

Geri
Üst