vb中如何知道屏幕分辨率的改变
vb能不能获得屏幕分辨率是不是改变?比如像Form_Resize那样触发一个事件呀。这样在屏幕分辨率改变时,让窗口的位置也改变。...
vb能不能获得屏幕分辨率是不是改变?
比如像Form_Resize那样触发一个事件呀。
这样在屏幕分辨率改变时,让窗口的位置也改变。 展开
比如像Form_Resize那样触发一个事件呀。
这样在屏幕分辨率改变时,让窗口的位置也改变。 展开
2个回答
展开全部
在 Timer1 事件中检测屏幕宽度或高度:
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Static W As Long
If W > 0 And W <> Screen.Width Then
MsgBox "屏幕分辨率已从 " & W / Screen.TwipsPerPixelX & " 变为 " & Screen.Width / Screen.TwipsPerPixelX
End If
W = Screen.Width
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Static W As Long
If W > 0 And W <> Screen.Width Then
MsgBox "屏幕分辨率已从 " & W / Screen.TwipsPerPixelX & " 变为 " & Screen.Width / Screen.TwipsPerPixelX
End If
W = Screen.Width
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询