我的程序(vb)中有一步是控制另一个程序的组合框(combobox)text,就是程序自动的选择组合框中的内容,不知道怎么不写这段程序,我用了spy++ 查找了组合框窗口的类名,但不知道下面该怎么去做了,
我是新手,最好是例子代码
本人急用,在此谢谢各位大虾不吝赐教!!!!

解决方案 »

  1.   

    Option ExplicitPrivate Const CB_FINDSTRING = &H14C
    Private Const CB_SETCURSEL = &H14E
    Private Const CB_SELECTSTRING = &H14DPrivate 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 Command1_Click()
    Dim i As Long
    i = SendMessage(外部combobox的句柄, CB_FINDSTRING, 0&, ByVal "你要查找的内容")
    If i = -1 Then Exit Sub
    SendMessage 外部combobox的句柄, CB_SETCURSEL, i, 0或者SendMessage 外部combobox的句柄, CB_SELECTSTRING, 0&, ByVal "你要查找的内容"
    End Sub