수다닷컴

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눌러도 아무 반응이 없고 안꺼집니다....머가 문제인가요??

신청하기