MSGBOX vid avslut
Hej...nu behöver jag hjälp igen.
När användaren stänger av mitt prog så skulle jag vilja att det kommer upp en msgbox som talar om att proget skall avslutas. användrae skall då få 2 alternativ, tex OK, då skall programmet avslutas, eller Avbryt då skall det inte hända mycket mer än att msgboxen försvinner...hur löser vi detta? Är nog inte så svårt men sent på kvällen nu.
Svara
Sv: MSGBOX vid avslut
Hej
Du lägger koden i Formens QueryUnload
Private Sub Form_QueryUnload(Cancel As Integer, _
UnloadMode As Integer)
MsgBox "Programmet kommer att avslutas"
'här lägger du in IF vilkor
End Sub
mvh
Sven
Svara
Sv: MSGBOX vid avslut
Tack Sven.
Men nu är jag inte så duktig på MSGBOX där man har olika alternativ att välja på, just if satsen har jag inte riktigt koll på, tacksam om du kan fullföja hela koden,
Svara
Sv: MSGBOX vid avslut
If (MsgBox("Vill du avsluta?", vbYesNo, "Avsluta") = vbYes) Then
End
Else
Exit Sub
End If
Hoppas detta funkar.
/Jonte
Svara
Sv: MSGBOX vid avslut
Oke tackar så mycket, men oavsett vad man man väljer på Ja eller nej så avslutas programet?
Svara
Sv: MSGBOX vid avslut
<code>
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case MsgBox("Programmet kommer att avslutas!", vbInformation or vbOkCancel)
Case vbCancel
Cancel = True
End Select
End Sub
</code>
Svara
Sv: MSGBOX vid avslut
Såhär ska det vara:
<code>
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Vill du avsluta?", vbQuestion + vbYesNo) = vbNo Then
Cancel = True
End If
End Sub
</code>
/Johan
Svara