Listbox'ta Tüm Yapılabilecekler

'Programlama' forumunda ...... tarafından 7 Ağu 2009 tarihinde açılan konu

Konu etiketleri:
  1. ......

    ...... Misafir

    Formumuza 2 listbox, 1 text kutusu, 1 check box, listemize 14 tane comman yerleştiriyoruz ve ileme başlayalım.


    Kod:
    Dim A As Integer
    
    Private Sub Command1_Click()
    For I = 65 To 110
        Me.List1.AddItem Chr(I)
    Next
    End Sub
    
    Private Sub Command10_Click()
    x = Me.List2.ListIndex
    MsgBox Me.List2.List(x)
    End Sub
    
    Private Sub Command11_Click()
    Me.List1.Clear
    End Sub
    
    Private Sub Command12_Click()
    x = Me.List1.ListCount
    MsgBox x
    End Sub
    
    Private Sub Command13_Click()
    x = Me.List2.ListCount
    MsgBox x
    End Sub
    
    Private Sub Command14_Click()
    Me.List2.Clear
    End Sub
    
    Private Sub Command2_Click()
    For I = 0 To Me.List1.ListCount - 1
        Me.List2.AddItem Me.List1.List(I)
    Next
    List1.Clear
    End Sub
    
    Private Sub Command3_Click()
    On Error Resume Next
    For I = 0 To Me.List1.ListCount - 1
        If Me.List1.Selected(I) = True Then
            If I = Me.List1.ListCount Then Exit Sub
            List2.AddItem List1.List(I)
            List1.RemoveItem I
            I = I - 1
        End If
    Next
    End Sub
    
    Private Sub Command4_Click()
    On Error Resume Next
    For I = 0 To Me.List2.ListCount - 1
        If Me.List2.Selected(I) = True Then
            If I = Me.List2.ListCount Then Exit Sub
            List1.AddItem List2.List(I)
            List2.RemoveItem I
            I = I - 1
        End If
    Next
    
    End Sub
    
    Private Sub Command5_Click()
    For I = 0 To Me.List2.ListCount - 1
        Me.List1.AddItem Me.List2.List(I)
    Next
    List2.Clear
    
    End Sub
    Private Sub Command6_Click()
    On Error Resume Next
    For I = O To Me.List1.ListCount - 1
    If Me.List1.Selected(I) = True Then
    If I = Me.List1.ListCount Then Exit Sub
    Me.List1.RemoveItem I
    I = I - 1
    End If
    Next
    End Sub
    
    Private Sub Command7_Click()
    x = Me.List1.ListIndex
    MsgBox Me.List1.List(x)
    End Sub
    
    
    Private Sub Command8_Click()
    If Me.Text1.Text = "" Then Exit " boşluk kaydedilmemesi için
    If Check1.Value = 1 Then Me.List1.AddItem Me.Text1.Text
    If Check1.Value = 0 Then Me.List2.AddItem Me.Text1.Text
    
    
    
    
    
    End Sub
    
    Private Sub Command9_Click()
    On Error Resume Next
    For I = O To Me.List2.ListCount - 1
    If Me.List2.Selected(I) = True Then
    If I = Me.List2.ListCount Then Exit Sub
    Me.List2.RemoveItem I
    I = I - 1
    End If
    Next
    
    End Sub 
     

Bu Sayfayı Paylaş