zcgw.net
当前位置:首页 >> vB gEtwinDowrECt >>

vB gEtwinDowrECt

Private Type Rect ' Rect类型声明 Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetWindowRect Lib "user32.dll" _ (ByVal hwnd As Long, lpRect As Rect) As Long ' api声明 Private Sub Comman...

把这个函数改成这样就好了Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Integer, ByRef lpRect As RECT) As Integer

仅提供解决思路。不提供代码,API请自己找齐。 这样以后你遇到类似问题可以自行解决。 以下为思路,看不懂请自己琢磨相关逻辑和API作用。 1.GetCursorPos 获取鼠标坐标 设获得的坐标为t_pos 2.WindowFromPoint 获取t_pos坐标指向的窗体 设获得的...

VB默认单位是Twips,API默认单位是pixel 像素,你可以把窗体的坐标单位设置为pixel 像素 或者用常数换算,把API函数得到的坐标换算成窗体坐标: xx = cx * Screen.TwipsPerPixelX yy = cy * Screen.TwipsPerPixelY 反过来就是除法了

(等会别忘记给我分~) 这是一个大的问题,搞不好就要用API截Image的一部分图然后显示出来。 但是还是得照做。 当然,万事不绝对。看下面的代码 吧~ (以下代码放在模块中,用法: Set tmpPicture = CaptureSel(List1.Left / 15 + Form1.Left / ...

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long 请注意第一个参数hwnd是Long型,不是Integer。32位操作系统的句柄都是Long型,只有16位操作系统才是Integer型。此外返回值也是Long。32位操...

Private Type rect Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As rect) As Long Private Sub Command1_Click() Dim rect As rect Get...

'在窗体上画一个Timer控件,设置其Interval属性为100 '把代码复制到Form1的代码窗口中 '获得活动窗口句柄的API Private Declare Function GetForegroundWindow Lib "user32" () As Long '获得窗口区域结构的API Private Declare Function GetWind...

解决这个问题很简单。 就改这一句就行了: SetWindowPos h, 0, (Me.Left + Me.Width) / Screen.TwipsPerPixelX, _ Me.Top / Screen.TwipsPerPixelY, 0, 0, 17另外,你应该: ①在 Timer事件中,对 Text1.Text 进行判断:为空时,禁用Timer1、取消...

在程序里设置。 form1.show form1.left=screen.width - form1.width form1.top = screen.height - form1.height

网站首页 | 网站地图
All rights reserved Powered by www.zcgw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com