수다닷컴

-이겁니다 ㅠㅠ

Private Declare Function EnumDisplaySettings Lib user32 Alias EnumDisplaySettingsA (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib user32 Alias ChangeDisplaySettingsA (lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Const DM_PELSHEIGHT As Long = &H100000
Private Const DM_PELSWIDTH As Long = &H80000
Private Type DEVMODE
dmFields As Long
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
End Type
Dim i As Long
Dim ResWidth As String
Dim ResHeight As String
Private Sub Command1_Click()
Dim DevM As DEVMODE
i = EnumDisplaySettings(0, 0, DevM)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = Text1.Text

DevM.dmPelsHeight = Text2.Text

DevM.dmBitsPerPel = 24
i = ChangeDisplaySettings(DevM, CDS_TEST)
i = EnumDisplaySettings(0, 0, DevM)
End Sub
Private Sub Form_Load()
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
Text1.Text = ResWidth
Text2.Text = ResHeight
Dim DevM As DEVMODE
i = EnumDisplaySettings(0, 0, DevM)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = 1024
DevM.dmPelsHeight = 768
DevM.dmBitsPerPel = 24
i = ChangeDisplaySettings(DevM, CDS_TEST)
i = EnumDisplaySettings(0, 0, DevM)
Form1.WindowState = 1
End Sub

여기서 뭔가잘못됫을까요? 이거 키면 with 문변수 설정안됫다고 뜨는데 (개체변수도)

뭐죠... 고수분들 ㅠㅠ

신청하기