如何获得其他应用程序里面的IMAGELIST的句柄呢,按道理和看IMAGELIST_CRATEE这个API的解释,IMAGELIST是有句柄,但如何才能获取呢?无论是VC或VB都没有所谓,最主要就是能成功获取,谢谢
解决方案 »
- 不能加载'DaTa.Dsr'--继续加载工程吗?
- 串口正被一程序占用时,可否被另一个程序所使用
- vb检查sql已启动
- 请问财务上的小数用那个函数截取varchar
- 老问题,一直没办法!
- 如何让程序跳过启动时的一个对话框
- 急!!!请问,关于vb中label如何随操作系统的分辩率改变,窗体中的位置不发生改变啊
- vb7出来了还有必要在VB6上耗吗?
- 关于进程里的一个小问题
- 如何在用命令创建的ACEESS数据库中用命令加密码?
- 我拷贝的控件文件在VB里可以加载上,但是为何不能使用,总是提示控件未经许可,请问如何注册控件?
- 我在VB6里使用的datagrid控件,拷贝其相关文件到另外一台安装VB5的电脑上,想使用datagrid控件,可在部件中加载,但不可使用,提示未许可
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【别名】
FindWindowExA【说明】
在窗口列表中寻找与指定条件相符的第一个子窗口 【返回值】
Long,找到的窗口的句柄。如未找到相符窗口,则返回零。会设置GetLastError 【参数表】
hWnd1 ---------- Long,在其中查找子的父窗口。如设为零,表示使用桌面窗口(通常说的顶级窗口都被认为是桌面的子窗口,所以也会对它们进行查找) hWnd2 ---------- Long,从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零,表示从第一个子窗口开始搜索 lpsz1 ---------- String,欲搜索的类名。零表示忽略 lpsz2 ---------- String,欲搜索的窗口名。零表示忽略
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 Sub Form_Click()
Dim Handle As Long
Dim Handle2 As Long
Dim Handle3 As Long
Handle = FindWindow(vbNullString, "a")//a是FORM1的CAPTION
Handle2 = 1
Do While Handle2 <> 0
Handle2 = FindWindowEx(Handle, Handle3, vbNullString, vbNullString)
Handle3 = Handle2
Debug.Print Handle2
Loop
End Sub