특정프로세스 작동시 폼종료 불가 질문
아름나
Private Sub Form_Unload(Cancel As Integer)
If ExitTimer.Enabled = True Then
Cancel = 1
Exit Sub
End If
If FindWindow(vbNullString, 프로세스) Then
MsgBox 먼저 프로그램을 종료해주세요, vbCritical, 알림
Cancel = 1
Exit Sub
End If
If MsgBox(폼1을 종료하시겠습니까?, vbInformation + vbYesNo, 알림) = vbYes Then
MsgBox 30초 후 종료됩니다!, vbInformation, 알림
ExitCount = 30
ExitTimer.Enabled = True
Event1.Enabled = False
Event2.Enabled = False
Event3.Enabled = False
System1.Enabled = False
System2.Enabled = False
Cancel = 1
Else
Cancel = 1
End If
Exit Sub
End Sub이렇게 폼언로드 부분에서 소스를적고타이머 부분에서는Private Sub ExitTimer_Timer()
If ExitCount = 1 Then
End
Else
ExitCount = ExitCount - 1
End If
End Sub이렇게 적어서 인터벌 1024 로 맞춰놓앗습니다.그런데 왠일? x눌러도 아무 반응이 없고 안꺼집니다....머가 문제인가요??
-
목련 2023-10-26
Private Sub ExitTimer_Timer()
If ExitCount = \1\ Then
ExitTimer.Enabled = false -- 이걸 써넣으시면 될거같아요
End
Else
ExitCount = ExitCount - 1
End If
End Sub -
딸기우유 2023-10-26
End 가 없으면 꺼지질 않아요 왜냐면
저 폼1 종료후에 30초후에 종료되게 해놓앗기떄문에
타이머에 End 소스가 들어가야되요 -
헛소동 2023-10-26
If ExitCount = \1\ Then
End -- 이거 뭔가요? 컴파일에러 안뜨나요?
Else
ExitCount = ExitCount - 1
End If -
해찬솔 2023-10-26
어.. 됫다...
그 타이머를 끄니까 됫어요 끄아아앜!!!
너무 감사합니다 -
애교 2023-10-26
해당 부분을 삭제하거나 타이머를 끄세요.
-
누림 2023-10-26
그럼 어찌 수정해야하나요...
-
아름나 2023-10-26
언로드 부분 보면 처음에 타이머가 작동중이면 꺼지지 않게 되어있습니다.
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655300 | 특정 프로그램 루프문으로 팅기게 하고싶은데 (2) | 애교 | 2024-05-18 |
2655272 | 강좌소스확인하는법좀요 | 말달리자 | 2024-05-18 |
2655243 | 파일크기비교 | 혜윤 | 2024-05-18 |
2655211 | 우엉~ Winhttp 겁나 급해요 ㅜㅜ (2) | 정훈 | 2024-05-17 |
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
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 |