vb6.0中，字体大小怎么随分辨率而改变

Question

vb6.0中，字体大小怎么随分辨率而改变

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim lngW As Long
    Dim lngH As Long
    lngW = Screen.Width / 15
    lngH = Screen.Height / 15
    
    If lngW = 1024 And lngH = 768 Then
        '分辨率是1024*768
        Command1.Font.Size = 20
    ElseIf lngW = 800 And lngH = 600 Then
        '分辨率是800*600
        Command1.Font.Size = 15
    End If
End Sub

Answer 2

Screen对象就是屏幕对象lngW = Screen.Width / 15
lngH = Screen.Height / 15就是取回了屏幕的大小，屏幕的长宽相乘就是分辨率了