- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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
----------------------------------
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