Question

vb获得外部程序的combobox内容

如题

Answer 1

希望下面这个对您有所帮助:
利用vb操作一个外部程序的窗体上的按钮可以用到控制鼠标的API函数。
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
'而仅仅有这个函数是不够的，还需要定义一个type格式的自定义变量。定义为：
Private Type POINTAPI
X As Long
Y As Long
End Type
'它用于存放鼠标的位置（屏幕上的位置）。
'获得鼠标在屏幕上的位置要用到另一个函数：GetCursorPos，它的功能是获得屏幕上鼠标的坐标。
'它的声明如下:
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

举个例子，放置1个Command控件，并且复制它，粘贴，点确定生成一控件数组。
Private Sub Command1_Click(Index As Integer)
Dim msX, msY As Long
Dim Pos As POINTAPI
a = GetCursorPos(Pos)
Select Case Index
Case 0 'up
msY = Pos.Y - 15
msX = Pos.X
Case 1 'left
msX = Pos.X - 15
msY = Pos.Y
Case 2 'down
msY = Pos.Y + 15
msX = Pos.X
Case 3 'right
msX = Pos.X + 15
msY = Pos.Y
Case Else
Exit Sub
End Select
a = SetCursorPos(msX, msY) '这个是利用API移动鼠标
End Sub

mouse_event

声明
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
说明
模拟一次鼠标事件
参数表
参数 类型及说明
dwFlags Long，下述标志的一个组合
MOUSEEVENTF_ABSOLUTE dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元
MOUSEEVENTF_MOVE 移动鼠标
MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下
MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下
MOUSEEVENTF_RIGHTUP 模拟鼠标右键按下
MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下
MOUSEEVENTF_MIDDLEUP 模拟鼠标中键按下
dx Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动
dy Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动
cButtons Long，未使用
dwExtraInfo Long，通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序
注解
进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度

Answer 2

取得外部程序的句柄，这个程序的窗体的句柄，这个窗体上的控件的句柄。

呵呵，我不会

Answer 3

Option Explicit

Private Const CB_GETCOUNT = &H146
Private Const CB_GETLBTEXT = &H148

Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)

Private Sub Command1_Click()
Dim count As Long
Dim a As String
a = String$(255, 0)

count = SendMessageBynum&(Combohwnd, CB_GETCOUNT, 0, 0)
SendMessageByString& Combohwnd, CB_GETLBTEXT, 0, a
a = Left$(a, InStr(a, Chr$(0)) - 1)

End Sub

Combohwnd 是 combobox 的句柄
count 是获取的 combobox 项目数
a 是获取的 combobox 指定项内容， 0 对应第一项

Answer 4

标准控件的话用sendmessage或postmessage这个API