一个问题 各位大虾进来帮下忙吧~

Question

一个listbox和一个combobox
如何实现 listbox里的光标位置随着combobox选项不同而改变
比如combobox选中A或者B listbox里相应的出来A或者B
反过来实现同样的功能   
该怎么写呢？

Answer 1

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const CB_GETCURSEL = &H147
Private Const LB_GETCURSEL = &H188Private Sub Combo1_Click()
List1.ListIndex = SendMessage(Combo1.hWnd, CB_GETCURSEL, 0, Combo1.Text)
End Sub
Private Sub List2_Click()
Combo1.ListIndex = SendMessage(List1.hWnd, LB_GETCURSEL, 0, List1.Text)
End Sub

Answer 2

何必这么复杂Private Sub Combo1_Click()
    List1.Selected(Combo1.ListIndex) = True
End SubPrivate Sub Form_Load()
    Dim i As Integer
    For i = 1 To 5
        Combo1.AddItem i
        List1.AddItem i
    Next
End SubPrivate Sub List1_Click()
    Combo1.ListIndex = List1.ListIndex
End Sub