VB ile Tüm Yönleriyle List Kutusu

[treaty]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Visual Basic

----------------------------------

Kod;

KONU : TUM YONLERIYLE LIST KUTUSU

Private Sub Command1_Click()
List1.AddItem "GİT"
List1.AddItem "İSTENMEYEN"
List1.AddItem "SESİZ OL VE GİT"


End Sub

Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex 'SEÇİLİ ELEMANI LİSTEDEN ÇIKARIR


End Sub

Private Sub Command3_Click()
List1.Clear

End Sub

Private Sub Command5_Click()
List1.AddItem Text3.Text





End Sub

Private Sub Command4_Click()
Label1.Caption = "LİSTDE" & " " & List1.ListCount & " " & "VAR"
End Sub

Private Sub Command6_Click()
List1.AddItem InputBox("eklenecek eleman")


End Sub

Private Sub List2_Clicko0()

End Sub

Private Sub List1_Click()
Dim i
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
'seçili elemanı ikinci listeye ekle
Text2.Text = List1.List(i)
End If
Next




End Sub

Private Sub Text1_Change()

If Not List1 = (Text1.Text) < 0 Then
List1 = (Text1.Text)

End If
End Sub

 

[OptiMistics]

teşekkür ederim.