이거확인좀요!
지은
-이겁니다 ㅠㅠ
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 문변수 설정안됫다고 뜨는데 (개체변수도)
뭐죠... 고수분들 ㅠㅠ
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |
2654822 | 원하는 이미지만 꼭 찝어서 냅두기 (3) | 다솜 | 2024-05-14 |
2654791 | 닷홈으로 TEXT를 전송하는데요.. (1) | 그리 | 2024-05-14 |
2654769 | 뭐죠 ?? | 가을 | 2024-05-13 |
2654744 | winhttp로 자동으로 글 등록하는 걸 만들었는데 | 민들레 | 2024-05-13 |
2654717 | 웹브 뒤로가기? (2) | 샹1큼해 | 2024-05-13 |
2654660 | int(Rnd *9999) 질문좀 드릴게욤..;; | 사랑은아픔 | 2024-05-12 |
2654604 | 텍스트내용 메일로 보낼때 일정부분 가리기 (1) | 풋내 | 2024-05-12 |
2654575 | 메시지박스 | 터1프한렩 | 2024-05-12 |
2654551 | form의 크키가 커지면 다른 도구들도 커지는법좀. | 앵겨쭈 | 2024-05-11 |
2654492 | 컴퓨터본체로 강제종료 못시키게하는법 (3) | 연블랙 | 2024-05-11 |
2654465 | 폼2에서 폼1 리스트의 Listindex0에강제적으로 추가하기... 그리고저장하기 (1) | 갤3 | 2024-05-11 |
2654439 | OPEN에서 오류! 초보라 ㅠ | 햇님 | 2024-05-10 |
2654413 | 다른언어를 하다가 VB로 넘어오려고 합니다. (10) | 슬옹 | 2024-05-10 |
2654382 | 카폐 새글 질문! | 다인 | 2024-05-10 |
2654353 | UserControl 에서의 Type 문 | 맑다 | 2024-05-10 |
2654322 | 폼과 모듈의 차이점...햇갈리네요ㅠ | 다이 | 2024-05-09 |