如何在MS Access VBA中检索屏幕大小/分辨率以重新调整表单大小

Sub ResizeForm()
    '获取屏幕分辨率
    Dim screenWidth As Integer
    Dim screenHeight As Integer
    screenWidth = Screen.Width
    screenHeight = Screen.Height

    '设置表单大小
    Dim formWidth As Integer
    Dim formHeight As Integer
    formWidth = screenWidth * 0.8 '表单宽度为屏幕宽度的80%
    formHeight = screenHeight * 0.8 '表单高度为屏幕高度的80%

    '调整表单大小
    Forms("YourFormName").Width = formWidth
    Forms("YourFormName").Height = formHeight
End Sub