7,763
社区成员
发帖
与我相关
我的任务
分享我的代码错在什么地方?真给分!急!急!急!急!急!急!急!
我用以下代码想得到Word编辑区的句柄.
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
Const ClassName2 = "OpusApp"
Const Note2 = "_WwB"
Const Note3 = "_WwG"
Private Sub Word_Click()
`Word
wnd = FindWindow(Note2, vbNullString)
wnd = FindWindowEx(wnd, 0, Note3, vbNullString)
YourHwnd = wnd
End Sub
却总得不到,大侠出手救命!
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
Const ClassName2 = "OpusApp"
Const Note2 = "_WwB"
Const Note3 = "_WwG"
Private Sub Word_Click()
`Word
wnd = FindWindow(Note2, vbNullString)
wnd = FindWindowEx(wnd, 0, Note3, vbNullString)
YourHwnd = wnd
End Sub
却总得不到,大侠出手救命!
...全文
请发表友善的回复…
发表回复
dbcontrols 2001-12-19
- 打赏
- 举报
cn520(章戈) 我试了,还是不行.
cn520 2001-12-19
- 打赏
- 举报
Dim hwndNp As Long
hwndNp = FindWindow(0&, Note1)
使用0&忽略类名。
hwndNp = FindWindow(0&, Note1)
使用0&忽略类名。
dbcontrols 2001-12-19
- 打赏
- 举报
谢谢你,问题仍然没解决.
xuxia 2001-12-19
- 打赏
- 举报
findwindow的第一个参数为类名应为VBNULLSTRING，第二个参数才是窗口的名称。
如果窗口的名称为“notes"那么应该这么写
I&=findwindow(vbnullstring,"notes")
如果窗口的名称为“notes"那么应该这么写
I&=findwindow(vbnullstring,"notes")
dbcontrols 2001-12-19
- 打赏
- 举报
我急!
dbcontrols 2001-12-19
- 打赏
- 举报
没人会吗?我只想得到Word的编辑区的句柄.
dbcontrols 2001-12-19
- 打赏
- 举报
帮帮我吧!
