获取ACCESS背景区域位置及大小
选项比较数据库
声明函数FindWindowEx Lib“user 32”别名“FindWindowExA”(ByVal hwnd 1为Long,ByVal hWnd2为Long,ByVal lpsz1为String,ByVal lpsz2为String)为Long
声明函数GetWindowRect Lib“user 32”(ByVal hwnd为Long,lpRect为Rect)为Long
键入RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
私有声明函数apiGetDC Lib " user 32 " Alias " GetDC "(ByVal hwnd As Long)
私有声明函数apiGetDeviceCaps Lib "gdi3
函数gfunpixelstotwips (rlng像素长,rlng方向长)将长
'像素转换为缇。
On Err GoTo _ gFunPixelsToTwips
Dim lngDeviceHandle As Long
Dim lngPixelsPerInch As Long
lngDeviceHandle = API getdc(0)
If rlng DIRECTION = DIRECTION _ HORIZONTAL Then
lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle,LOGPIXELSX)
Else
lngPixelsPerInch = API getdevicecaps(lngd
'建立一个窗体并用按钮测试它。
Privatecommand0 _ click ()
'获取ACCESS背景区域的位置和大小。
Dim intTop As Long,intLeft As Long,intWidth As Long,in height As Long
Dim ln gret As,Rc As,HwndMDI As Long
HwndMDI = FindWindowEx(application . hwndaccessapp,0&," MDIClient "," ")
lngRet = GetWindowRect(HwndMDI,RC)
with RC
。右=。没错。左
。Bottom =。底部。top
'将提取的像素值转换为缇
inttop = gfunpixelstotwips(。top,DIRECTION _ VERTICAL)
int left = gFunPixelsToTwips(。Left,DIRECTION _ HORIZONTAL)
int width = gFunPixelsToTwips(。Right,Direction _ horizontal)
in thigh = gfunpixelstotwips(。bottom,direction _ vertical)
debug . print " top pixel value ",Top
调试。打印“左像素值”。左
调试。打印“右像素值”。右
调试。打印“底部像素值”。底层调试。打印“最高twip值”,intTop
Debug。打印“左缇值”,Int
debug.print“右缇”,intwidth
debug.print“下缇”,in thith
End With
末端接头
位律师回复
0条评论