Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

窗体自动居中,适用于accessXP以上

时 间:2004-11-15 00:00:00
作 者:黄海   ID:32  城市:苏州
摘 要:窗体自动居中,适用于ACCESSXP以上 
正 文:

'使用方法:

'Private Sub Form_Load()
'    moveFormToCenter Me '居中
'End Sub


'Private Sub Form_Load()
'    moveFormToCenter Me, 3000, 2000  '调整窗体大小并居中
'End Sub

Option Compare Database
Option Explicit

Type RECT
    x1 As Long
    y1 As Long
    x2 As Long
    y2 As Long
End Type

Public Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

'菜单栏高:22
'工具栏高:26
'状态栏高:20

Public Function moveFormToCenter(ByRef Frm As Form, Optional ByVal longFormWidth As Long = 0, Optional ByVal longFormHeight As Long = 0)

    Dim lngW, lngH As Long

    lngW = GetAccessClientWidth() - 4    '-4为测试微调值
    lngW = lngW * 15

    lngH = GetAccessClientHeight() - 4    '-4为测试微调值
    'lngH = lngH - (22 * 1)  '一个菜单栏
    lngH = lngH - (26 * 1)  '一个工具栏
    'lngH = lngH - (20 * 1) '一个状态栏
    lngH = lngH * 15

    If longFormWidth + longFormHeight = 0 Then
        Frm.Move (lngW - Frm.WindowWidth) / 2, (lngH - Frm.WindowHeight) / 2
    End If

    If longFormWidth > 0 And longFormHeight > 0 Then
        Frm.Move (lngW - longFormWidth) / 2, (lngH - longFormHeight) / 2, longFormWidth, longFormHeight
    End If

End Function

Public Function GetAccessClientWidth() As Integer
    Dim R As RECT
    Dim hwnd As Long
    Dim RetVal As Long

    hwnd = Application.hWndAccessApp

    RetVal = GetClientRect(hwnd, R)
    'Debug.Print R.x2
    'Debug.Print R.x1
    GetAccessClientWidth = R.x2 - R.x1

End Function
Public Function GetAccessClientHeight() As Integer
    Dim R As RECT
    Dim hwnd As Long
    Dim RetVal As Long

    hwnd = Application.hWndAccessApp

    RetVal = GetClientRect(hwnd, R)
    'Debug.Print R.y2
    'Debug.Print R.y1
    GetAccessClientHeight = R.y2 - R.y1

End Function



Access软件网QQ交流群 (群号:329019313)       access源码网店

最新评论 查看更多评论(1)

2019/3/15 22:40:05chen
窗体找不到了

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

最新帖子

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