VB - Programma afsluiten werkt niet

Status
Niet open voor verdere reacties.

Cross

Gebruiker
Lid geworden
30 jul 2011
Berichten
142
Goede avond,

Ik ben nog een noobie in het werken met VB.

Ik heb een project gestart waarin ik een programma maak.

Nu is mijn welcome pagina een een inlog scherm.
Na het inloggen kom je in een keuze menu.

Als ik in het keuze menu sluit door op het kruisje te drukken, blijft het proces van het programma bestaan.

Als ik op de welkomst pagina ( Main page ) op het kruisje druk, word het programma wel gekilled.

Nu heb ik, als je ingelogd bent:
Me.close.

Zodat de inlog pagina van je scherm verdwijnt.
Hoe kan ik zorgen dat het keuze menu ook de optie kan bieden om het programma te sluiten ?

Is het dan mogelijk om ook een melding te geven als:

Je sluit nu de applicatie af, weet je dit zeker ?

[ Ja ] [ Nee ]


Ik kan het NIET vinden op Google.


Ik hoop op jullie hulp!
 
Me.Close sluit alleen het huidige formulier. Gebruik Application.Exit gevolgd door End
 
Beste Edmoor,

Kan je me vertellen waar ik die dan neer moet zetten ?
Want het rode kruisje boven in, is niet als optie te selecteren of specificeren ofwel ?


Men logt in:


Gebr:
Pass:

[Inloggen]
Dan komt er me.hide.
Zodat het inlog scherm verdwijnt op de achtergrond.
Dan kom je in het keuze menu.

Uit eindelijk als je klaar bent met alles kom je terug in dat keuze menu.
Die moet dan de optie hebben voor:
Application.Exit()

Maar, niet alleen met een knop van applicatie sluiten maar ook met het kruisje boven in.
( Die nu dus eigenlijk alleen dat blad sluit en niet het programma ).

Ik hoop dat ik zo duidelijk genoeg ben..

In ieder geval erg bedankt alvast.


De code die ik voor men knop heb is:
Code:
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If MsgBox("Weet je zeker dat je af wilt sluiten?", vbYesNo + vbQuestion, "Afsluiten") = vbYes Then Application.Exit()
    End Sub
 
Laatst bewerkt:
Waar nu Application.Exit() staat is niet helemaal af. Ik zei dat deze gevolgd moet worden door End. Het moet dus zijn:
Application.Exit() : End

Hetzelfde als voor de knop kun je doen met het form closing event, het kruisje dus.
Code:
Private Sub Form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("Weet je zeker dat je af wilt sluiten?", vbYesNo + vbQuestion, "Afsluiten") = vbYes Then
            Application.Exit() : End
        Else
            e.Cancel = True
        End If
End Sub

Waarbij je Form1 uiteraard vervangt door de naam van het formulier.

Beter nog is het als je 1 routine maakt om de applicatie in z'n totaal af te sluiten die dan door verschillende knoppen en kruisjes kan worden aangeroepen. Maar dat is weer een stap verder.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan