7,785
社区成员




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 Long
Private Const LB_FINDSTRINGEXACT = &H1A2 '在 ListBox 中精确查找
Private Sub Command1_Click()
Dim i As Long, n As Long
For i = 0 To ListM.ListCount - 1
n = SendMessagebyString(ListA.hWnd, LB_FINDSTRINGEXACT, -1, Left(ListM.List(i), 7))
If n > -1 Then Debug.Print ListM.List(i), ListA.List(n)
Next i
End Sub