好像是这个API:
sendwindowpost
sendwindowpost
解决方案 »
- vb6.0,鼠标右键的使用
- 用过CodeSmart_2009_VB6的大侠可否说说它的好处与弊端!
- 建站VB Active DLL 工程是否可以获到服务端MAC地址
- VB的查询语句复制到sqlserver中显示乱码
- s输出就是.txt,而不是a.txt,为什么
- VB中如何读写文本文件中的值
- Recordset 的错误
- 两个问题,在线等待:)
- 查询结果倒出到一个excel文件里,并且程序执行后自动生成该文件到硬盘的固定位置上。
- vb从网站下载文件,如何获得真实文件名?比如某链接为:ab.ab.ab/llfjlfweo2elr 这个链接指向网站ab.ab.ab的一个文件
- 哪位高手知道哪有ReBar的OCX呢? 就是IE上面工具栏的容器 急!!
- 解析字符串
而且我新建Form1工程,写如下代码也没有实现我的功能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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
_______________________________________________________________
Private Sub Command1_Click()
a = FindWindow(vbNullString, "Form1")
Print a
b = SendMessage(a, WM_CLOSE, 0, 0)
Print b
End Sub
________________________________________________________________而且我保证我按command1的时候Form1为当前窗口
我也在From1的load,gotfocus事件中写了Command1_Click()中的代码
也没有成功,因此请教你们.
谢谢!
Private Sub Command1_Click()
a = FindWindow(vbNullString, "计算器")
Print a
b = SendMessage(a, WM_CLOSE, 0, 0)
Print b
End Sub可以的呢。
估计对本身窗口不适用,因为command1发送了click的消息。
SetForegroundWindow VB声明
Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
说明
将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
hwnd Long,带到前台的窗口
注解
不应随便使用它,因为一旦程序突然从后台进入前台,可能会使用户产生迷惑
Xp下我没试过。