VB6.0怎么让另外一个程序的某个窗体获得焦点

2025-02-11 02:12:27

推荐回答（2个）

回答1：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
'//声明

Private Sub Command4_Click() '向记事本写入文字
Dim hwnd As Long, Thwnd As Long
Shell "notepad.exe", 2 '打开一个记事本,将它最小化
hwnd = FindWindow("Notepad", "无标题 - 记事本") '得到记事本句柄
Thwnd = FindWindowEx(hwnd, 0, "Edit", vbNullString) '得到记事本句柄(就是我们写字的那里)
SendMessage Thwnd, WM_SETTEXT, 0, ByVal SS '向记事本写入文字
setfucos hwnd
End Sub

回答2：

用两个API函数
一个是获取窗口句柄的函数叫get什么什么的
一个是发送消息的函数叫sendmessage

最新问答

英雄联盟助手和盒子哪个好用

梦幻西游地煞星玄法多少速度

请问蓄电池放大电流越小，容量越大吗还是只有放电电流越大容量越小

像我们牙齿之间没有缝隙的怎么使用牙线？

网络错别字调查怎么写？？？求学霸帮忙.谢谢了