如何用sendmessage函数选择别的软件上combox控件的第三项？

Question

已知该控件的句柄。
请教！

Answer 1

Private Const LB_SETCURSEL = &H186Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Form_Load()
List1.AddItem "aaaaa"
List1.AddItem "aaaaa"
List1.AddItem "aaaaa"
List1.AddItem "aaaaa"SendMessage List1.hwnd, LB_SETCURSEL, 3, 0
End Sub

Answer 2

看错了 其实一样
Private Const CB_SETCURSEL = &H14E
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 Sub Form_Load()
Combo1.AddItem "aaaaa"
Combo1.AddItem "bbbbb"
Combo1.AddItem "ccccc"
Combo1.AddItem "ddddd"
Combo1.AddItem "eeeee"SendMessage Combo1.hwnd, CB_SETCURSEL, 2, 0
End Sub