有没有办法通过脚本
1、获取计算机的分辨率
2、设置计算机的分辨率
求高手指点
最佳答案
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
dim Const SM_CXSCREEN = 0
dim Const SM_CYSCREEN = 1
dim ScreenMode As Long
Dim mX As Long
mX = GetSystemMetrics(SM_CXSCREEN)
If mX <> 1024 Then
MsgBox "请您将屏幕分辨率调至1024X768,给您带来的不便,请您原谅!", vbOKOnly, "Warning"
End
End If
我用的这个是判断用的，应该也是可以获取的吧。你试一试，应该是没问题
提问者对于答案的评价：
就这样吧
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc266570.html
微信扫一扫 
支付宝扫一扫 