vb中如何知道屏幕分辨率的改变

来源：百度知道 编辑：UC知道 时间：2024/09/12 16:08:20
vb能不能获得屏幕分辨率是不是改变？
比如像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 函数吧