listbox1中有(1,2,4,)listbox2中有(1,3) 一个button按钮。如何实现listbox3中出现相同的数字(1),listbox4中出现(2,4,),listbox5中出现(3)
会写其中相同的数字。
  Dim i As Integer
        Dim j As Integer
        Dim ss
        Dim bb
        For i = 0 To ListBox1.Items.Count - 1
            For j = 0 To ListBox2.Items.Count - 1
                ss = ListBox1.Items(i)
                bb = ListBox2.Items(j)
                If ss = bb Then
                    ListBox3.Items.Add(ss)
                End If
            Next j
        Next i

解决方案 »

  1.   

    Option Explicit
    Private Declare Function SendMessagebyString Lib "user32" Alias "SendMessageA" (ByVal hWND As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPrivate Const LB_FINDSTRINGEXACT = &H1A2Private Sub Command1_Click()
    Dim i As Long
        
        List3.Clear
        List4.Clear
        For i = 0 To List1.ListCount - 1
            If -1 = SendMessagebyString(List2.hWND, LB_FINDSTRINGEXACT, -1, List1.List(i)) Then
                List4.AddItem List1.List(i)
            Else
                List3.AddItem List1.List(i)
            End If
        Next i
        
        List5.Clear
        For i = 0 To List2.ListCount - 1
            If -1 = SendMessagebyString(List3.hWND, LB_FINDSTRINGEXACT, -1, List2.List(i)) Then
                List5.AddItem List2.List(i)
            End If
        Next i
    End Sub