Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

[分享]适应不同分辩率让窗体内控件居中

时 间: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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助