Question

已知另一程序TAB控件句柄 VB如何发送消息来控制它

VB如何发送消息来控制它切换标签页
我是在打开pcAnywhere 然后
hwn = FindWindow(vbNullString, "pcAnywhere 主控端 属性： 新主控端")
SendKeys "^{TAB}", True
我想对"pcAnywhere 主控端 属性： 新主控端")这个界面上的TAB控件发送按钮CTRL和TAB，但是pcAnywhere程序，不响应

然后我就用下面方法 也不行 帮我看下 看出错在哪里？
Dim Phwnd As Long
Dim hwnd As Long
Phwnd = FindWindow(vbNullString, "pcAnywhere 主控端 属性： 新主控端")
If Phwnd = 0 Then
Text1.Text = "fill"
Else
Text1.Text = "phwnd"
End If
hwnd = FindWindowEx(Phwnd, 0, "SysTabControl32", vbNullString)
If hwnd = 0 Then
Text2.Text = "fill"
Else
Text2.Text = "ChildHwnd"
End If
PostMessage hwnd, WM_KEYDOWN, VK_CONTROL, 0 '按下ctrl键
PostMessage hwnd, WM_KEYDOWN, VK_TAB, 0 'tab
PostMessage hwnd, WM_KEYUP, VK_CONTROL, 0 '按下ctrl键
PostMessage hwnd, WM_KEYUP, VK_TAB, 0 'tab

Answer 1

这个简单的，是要求获得控件的句柄才能发送按键消息 我具体不知道你要发什么按键消息，就分别用sendmessage和postmessage来给你写个例子！2009采用的自绘

追问

我是在打开pcAnywhere 然后
hwn = FindWindow(vbNullString, "pcAnywhere 主控端 属性： 新主控端")
SendKeys "^{TAB}", True
我想对"pcAnywhere 主控端 属性： 新主控端")这个界面上的TAB控件发送按钮CTRL和TAB，但是pcAnywhere程序，不响应。