我求求大家，好好解答两个问题吧？其他闲话到灌水区去谈好不好？

Question

用API来实现
'用来得到屏幕显示的模式
Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long'得到屏幕设置的参数
Private Sub GetDisplaySetting()
dim hdccaps
dim DisplayBits
dim DisplayWidth
dim DisplayHeighthdccaps = GetDC(0)
DisplayBits = GetDeviceCaps(hdccaps, 12)
DisplayWidth = GetDeviceCaps(hdccaps, 8)
DisplayHeight = GetDeviceCaps(hdccaps, 10)
End Sub得到了以上3个参数，剩下的只有自己做了

Answer 1

同意Sean_Jhh(开心可可)，这个函数可以取得以及设置分辨率。