VB获取窗体的位置和大小

在窗体中添加一个计时器Timer，代码如下：
Option Explicit
Private Declare Function GetWindowRect Lib “user32” (ByVal hwnd As Long, lpRect As Rect) As Long
Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Dim Moveform As Rect

Private Sub Form_Load()
Me.AutoRedraw = True
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
GetWindowRect Me.hwnd, Moveform
Me.Cls
Me.Print “Left：” & Moveform.Left * 15 & vbCrLf & “Top：” & Moveform.Top * 15 & vbCrLf & “Width：” & (Moveform.Right - Moveform.Left) * 15 & vbCrLf & “Height：” & (Moveform.Bottom - Moveform.Top) * 15
End Sub

VB获取窗体的位置和大小相关推荐

VB获取超过2G文件的大小
项目当中需要读取采集生成的AVI文件大小,特记录如下: '获得文件大小 Public Function GetFileSizeByName(ByVal sFileName As String) As ...
【WindowsAPI之MoveWindow】 C#调整目标窗体的位置、大小
首先查看一下WindowsAPI给我们的解释函数功能:该函数改变指定窗口的位置和尺寸.对于顶层窗口,位置和尺寸是相对于屏幕的左上角的:对于子窗口,位置和尺寸是相对于父窗口客户区的左上角坐标的. 函数 ...
跨浏览器用javascript获取窗口的位置和大小
跨浏览器获取位置 var leftX = typeof window.screenLeft == 'number' ? window.screenLeft : window.screenX; var ...
Python——控制窗体的显示和隐藏以及位置和大小
控制窗体的显示和隐藏 Python中常用一些代码来控制任意窗体的显示,也可以将任意窗体隐藏. QQwin=win32gui . FindWindow("TXGuiFoundation&quo ...
js 获取元素位置和大小_js 位置_Js宽度高度（详解）
一.js 获取元素的位置和大小----只读属性 1.元素的大小和位置 1.可视大小和位置 clientLeft,clientTop,clientWidth,clientHeight clientLef ...
VB获取Windows操作系统所有版本
'**************************************************************************** '人人为我,我为人人 '枕善居汉化收藏整理 ...
python的tkinter窗口位置\坐标\大小等知识（自用笔记）
大家都知道tkinter库中有很多控件和主窗口,因此这些控件和主窗口都有对应的屏幕坐标的信息.因此我们可以分别进行介绍. 他是以电脑屏幕的左上角为原点,向右是x,向下是y的这样的一个坐标系一.关于主 ...
【VB.NET】VB.NET窗体方法示例
选择的4种方法分析 Show: 用来显示窗体.如果窗体已经加载到内存,就直接显示:如果没有,那么就先加载再显示. 如果一个窗体被叠放在其它窗体之下,本方法可以将该窗体移到屏幕的最上层. 调用此方法与设 ...
VB根据窗体自动调整窗体内控件大小注：实用，可以直接引用
代码如下: Option Explicit Private ObjOldWidth As Long '保存窗体的原始宽度 Private ObjOldHeight As L ...
MFC窗口位置和大小的获取
最近在做一个项目,需要控件随对话框大小的变化而变化,因此需要准确获取对话框窗口.控件的大小和位置. 经过好一番查寻.测试,终于看到了希望.下面是一些获取窗口位置和大小的函数,示例如下: 1.获取屏幕分 ...

VB获取窗体的位置和大小

VB获取窗体的位置和大小相关推荐

最新文章

热门文章