请教，谢谢

Question

在VB程序设计中，能够控制用户界面随显示器分辨率的不同而自动调整程序的用户界面吗？
能的话该怎么实现呢？ 谢谢

Answer 1

可以读取screen对象的几个属性。
然后根据他们调整你的窗体。

Answer 2

下面的例子将演示如何得到当前屏幕的分辨率： ResWidth = Screen.Width Screen.TwipsPerPixelX ResHeight = Screen.Height Screen.TwipsPerPixelY ScreenRes = ResWidth & "x" & ResHeight ResWidth和ResHeight分别表示屏幕的宽和高，比如这样的结果： 800x600 
你可在form_REsize事件中判断当前分辨率进行控制

Answer 3

另一个例子,可以用下面给出这一小段代码检测当前屏幕分辨率，然后根据结果作出反应──例如，重新调整窗体大小以适应用程序户分辨率。 Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean 
Dim lngTwipsX As Long 
Dim lngTwipsY As Long 
'convert pixels to twips 
lngTwipsX = pixelWidth * 15 
lngTwipsY = pixelHeight * 15 'check against current settings 
If lngTwipsX <> Screen.Width Then 
CheckRez = False 
Else 
If lngTwipsY <> Screen.Height Then 
CheckRez = False 
Else 
CheckRez = True 
End If 
End If 
End Function 'Next, run the following code at the start of the program: If CheckRez(640, 480) = False Then 
MsgBox "Incorrect screen size!" 
Else 
MsgBox "Screen Resolution Matches!" 
End If

Answer 4

你可以设一个比例值来控制，在Form_resize中加入。如text1.height=me.height*0.5
text1.width=me.width*0.5