[分享]适应不同分辩率让窗体内控件居中
时 间:2004-06-08 00:00:00
作 者:竹笛 ID:8 城市:上海 QQ:2851379730
摘 要:[分享]适应不同分辩率让窗体内控件居中
正 文:
我们假设窗体中有一个标签:Label0,在窗体加载事件中写下如下代码:
Private Sub Form_Load()
Dim rec As Rect
DoCmd.Maximize
GetWindowRect Me.hwnd, rec
Me![Label0].Left = ((rec.Right / 2) * 14.9) - (Me![Label0].Width / 2)
End Sub
在模块中写下如下代码:
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long
Public Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access对子窗体数据进行批...(10.30)
- 最精简的组合框行来源数据快速输...(10.25)
- Access仿平台的多值选择器...(10.24)
- 【Access日期区间段查询】...(10.22)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
学习心得
最新文章
- Access判断多条明细的配方或订...(11.30)
- 如何让后台数据库在局域网共享时,且...(11.29)
- 【Access月初月末日期设置方法...(11.29)
- 【Access IIF函数嵌套示例...(11.26)
- Access快速开发平台--使用组...(11.25)
- Access快速开发平台--对上传...(11.22)
- Access快速开发平台企业版--...(11.18)
- 不会用多表联合查询,多表查询没结果...(11.16)
- 【案例分享】主键字段值含有不间断空...(11.16)
- Access快速开发平台--后台D...(11.14)