[分享]适应不同分辩率让窗体内控件居中
时 间: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.08)
- 分享一下Access工程中的acw...(11.07)
- Access快速开发平台--让有权...(11.04)
- Access快速开发平台--审批选...(11.01)
- ACCESS两张表先各自排序,然后...(10.31)
- Access对子窗体数据进行批量+...(10.30)
- SqlServer中如何用SQL命...(10.29)
- Access报表中的分组功能用代码...(10.28)
- 用Access计算库存结余的一个方...(10.26)
- 最精简的组合框行来源数据快速输入(...(10.25)