学生偶在这里发了个帖子 问了一个监控程序的方法
有位老师帮我解答了 很感谢他的！
但是学生又遇到没法解决的问题了
我的基础太差 又着急用 还请老师们不吝赐教吧！
谢谢！
那位老师帮我写出的如下：
API函数声明：
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As Integer
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
' ------------------------------------------------------------------------------------------------------
' Description： 获取与指定字符串相匹配的窗口类名或窗口名的最顶层窗口的窗口句柄
' Parameters： WindowName 指定的窗口类名或窗口名
' Return： 返回指定窗口的句柄
' ------------------------------------------------------------------------------------------------------
Public Function GetWindowHandle(ByVal WindowName As String) As Integer
Dim intAppHandle As Integer
intAppHandle = FindWindow(vbNullString, WindowName)
Return intAppHandle
End Function
调用如下：
intPSHandle =GetWindowHandle("adobe photoshop")
MoveWindow(intPSHandle, X的值, Y的值,Width的值,高的值, 1)
偶把以上内容贴到模块里了 但是出了点问题 软件提示：
intPSHandle 和 MoveWindow 应为声明
这个声明偶怎么改都不成
还请老师们帮忙
以下是我的代码
Module Module1
'声明公共变量
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Integer, ByVal x As Integer, ByVal y As Integer, ByVal bRepaint As Integer) As Integer
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Public Function GetWindowHandle(ByVal WindowName As String) As Integer
Dim intAppHandle As Integer
intAppHandle = FindWindow(vbNullString, WindowName)
Return intAppHandle
End Function
'未解决问题
Dim intPSHandle As String
intPSHandle =GetWindowHandle("adobe photoshop")
MoveWindow(intPSHandle, 500, 500,1)
End Module
