Hej...nu behöver jag hjälp igen. Hej Tack Sven. If (MsgBox("Vill du avsluta?", vbYesNo, "Avsluta") = vbYes) Then Oke tackar så mycket, men oavsett vad man man väljer på Ja eller nej så avslutas programet? <code> Såhär ska det vara:MSGBOX vid avslut
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.Sv: MSGBOX vid avslut
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
SvenSv: MSGBOX vid avslut
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, Sv: MSGBOX vid avslut
End
Else
Exit Sub
End If
Hoppas detta funkar.
/JonteSv: MSGBOX vid avslut
Sv: MSGBOX vid avslut
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>Sv: MSGBOX vid avslut
<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