GetWindowRect 窗口边框大小 |
|
得到窗口句柄的边框大小(包括标题栏) |
|
参数1 整数型，窗口句柄 |
|
字符串型，边框大小(包括标题栏)
注：返回为：边框窗口左角X坐标|边框窗口左上角Y坐标|边框窗口右下角X坐标|边框窗口右下角Y坐标 |
|
Call RunApp("notepad.exe")
Delay 1500
//0表示忽略
//下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd
Hwnd = Plugin.Window.Find("Notepad", 0)
//下面这句是得到窗口句柄的边框大小(包括标题栏)
sRect = Plugin.Window.GetWindowRect(Hwnd)
MsgBox "得到窗口句柄的边框大小(包括标题栏)为："& sRect
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
dim MyArray
MyArray = Split(sRect, "|")
//下面这句将字符串转换成数值
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
MsgBox "边框大小： " & W2-W1 & " " & H2-H1 |
|
VBSCall RunApp("notepad.exe")
Delay 1500
//0表示忽略
//下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd
Plugin Hwnd = Window.Find("Notepad", 0)
//下面这句是得到窗口句柄的边框大小(包括标题栏)
Plugin sRect = Window.GetWindowRect(Hwnd)
MsgBox "得到窗口句柄的边框大小(包括标题栏)为："& sRect
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
MyArray = Split(sRect, "|")
//下面这句将字符串转换成数值
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
MsgBox "边框大小： " & W2-W1 & " " & H2-H1 |