ACCESS与分辩率

ycxchen

请问，ACCESS编程时界面要考虑到不同分辩率吗？如果要，用什么语句使程序自动适应屏幕的分辩率？

Henry D. Sy

andymark好像曾经写过一个，你找找看！

bpchan

学习！

liaohk

根据屏幕分辨率自动调整窗体大小：[
正　文:
Option Compare Database
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Sub Form_Open(Cancel As Integer)
Dim x As Long, y As Long, a As Long, b As Long
x = GetSystemMetrics(SM_CXSCREEN)
y = GetSystemMetrics(SM_CYSCREEN)
a = 10000 / 800 * x
b = 7000 / 600 * y
DoCmd.MoveSize 1134, 1134, a, b
End Sub

ycxchen

谢谢楼上的朋友，参考学习！