vb里面一张图片作为系统的主界面,请问怎样可以让这个界面适应显示器的不同比例:如600*800和1024*768?谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/12 10:54:38

那你要首先准备 2个图片, 如果不准备两个的话,在1024下拉伸可能就不好看了,通过以下方法可以获取客户电脑的分辨率

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Private Sub Form_Load()
Dim y As Long
Dim X As Long

X = GetSystemMetrics(SM_CXSCREEN)
Label1.Caption = "显示器水平分辨率 " + Str$(X)
y = GetSystemMetrics(SM_CYSCREEN)
Label2.Caption = "显示器垂直分辨率 " + Str$(y)

Me.Caption = Str$(X) + "*" + Str$(y)

End Sub