vb中如何知道屏幕分辨率的改变
来源:百度知道 编辑:UC知道 时间:2024/09/12 16:08:20
vb能不能获得屏幕分辨率是不是改变?
比如像Form_Resize那样触发一个事件呀。
这样在屏幕分辨率改变时,让窗口的位置也改变。
比如像Form_Resize那样触发一个事件呀。
这样在屏幕分辨率改变时,让窗口的位置也改变。
在 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
.NET 的话可以,6.0 难,得 API 函数吧