Form_Load() 질문
비치
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox 이미 실행 중입니다.WebBrowser1.Navigate http://111.111.111.111:80/bbs/board.php?bo_table=01_2EndEndIfDim Temp As String
Dim b() As String
Dim c As String
Open App.Path & \Data\Info\ & resolution.inf For Input As #1
Do While Not EOF(1)
Line Input #1, Tmp
Temp = Temp & Tmp & vbCrLf
Loop
c = Split(Temp, FullScreen:)(1)
If InStr(c, 1) Then
Check1.Value = 1
Else
Check1.Value = 0
End IfIf InStr(Temp, 800) And InStr(Temp, 600) Then
Combo1.Text = 800 X 600
ElseIf InStr(Temp, 1024) And InStr(Temp, 768) Then
Combo1.Text = 1024 X 768
ElseIf InStr(Temp, 1280) And InStr(Temp, 720) Then
Combo1.Text = 1280 X 720
ElseIf InStr(Temp, 1280) And InStr(Temp, 768) Then
Combo1.Text = 1280 X 768
ElseIf InStr(Temp, 1280) And InStr(Temp, 960) Then
Combo1.Text = 1280 X 960
ElseIf InStr(Temp, 1280) And InStr(Temp, 1024) Then
Combo1.Text = 1280 X 1024
End If
Close #1End Sub소스인대요 폼 로드 부분에서 웹연동 소스를 추가햇는데 적용이 안됩니다
-
마음새
그게 폼로드 부분이 하나밖에 인식을못해요 (이미실행중입니다)
이걸 웹브라우져까지 인식하게하려는데 지적좀..;ㅎ
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2676066 | exe를 소스로 만드는법좀.. (3) | 회전력 | 2024-11-23 |
| 2676034 | 이런 창은 어떻게 지우나요? | 수련 | 2024-11-23 |
| 2676006 | 질문하나더~ | 찬바리 | 2024-11-23 |
| 2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
| 2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
| 2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
| 2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
| 2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
| 2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
| 2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
| 2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
| 2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
| 2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
| 2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |
| 2675492 | 비베 수다 사이트채팅 접속방법 | 마법 | 2024-11-18 |
| 2675463 | ㅠㅠ;; | 지은 | 2024-11-18 |
| 2675434 | 타이머로 라벨바꾸는거 (2) | 대나무 | 2024-11-18 |
| 2675386 | 선형보간법 문의 | 나길 | 2024-11-17 |
| 2675328 | 프로세스 강제종료하는방법좀... (1) | 슬아라 | 2024-11-17 |
| 2675226 | 폼 관련 질문&버튼 관련질문 (7) | 한울 | 2024-11-16 |