visual basic sluit programma sluit probleem

[ricardog]

Hallo,

Ik gebruik visual basic voor een programma te progammeren. Nu is het probleem als ik op kruisje klik bij de 2é form (1é is intro) dan komt die direct weer tevoorschijn terwijl ik als commando me.hide en dat hij form3 moet starten met form3.show. Als ik dus beide formen voor me heb staan kan ik form 2 maar niet wegkrijgen en form 3 wel gewoon. Weet iemand de oplossing?

alvast bedankt!xD

[stegisoft]

Moet je niet visible false doen.

Een voorbeeld:

form1.Visible = False

form2.Visible = True

Maar zoiets moet je in focus doen.

[ricardog]

Dank je voor de reactie maar helaas dat is niet de oplossing precies hetzelfde als hide is dat:boring:

[stegisoft]

Een procedure moet je wel aan knop of iets anders koppelen.

Ik weet niet precies hoe je gemaakt hebt maar als je dit de bedoeling is:

Verberg form1

Toon form2

Dan is het meestal zo

DoCmd.close "form1" , , acSaveYes

DoCmd.OpenForm "form2"

Andersom gaat dan natuurlijk ook.

Wanneer je met 2 formulieren werkt waarvan 1 verborgen is dan is het wel fysiek aanwezig.

Als je form1 als hide zet en form2 als zichtbaar zet dan is form1 verborgen ten opzicht van form2 maar niet bij sluiten op X

Een optie zo kunnen zijn om te minimaliseren

Anders moet je de code hier zetten.

4 juli 2010 aangepast door stegisoft

[ricardog]

Werkt ook niet dit is de code van de intro:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Increment(1)

If ProgressBar1.Value = ProgressBar1.Maximum Then

Me.Hide()

licentie.Show()

End If

dan komt de licentie (de form dat niet weg wilt)

deze functie opent dan de basis form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text.Length = 12 Then

If WebBrowser1.DocumentText.Contains(TextBox1.Text) Then

MsgBox("Gefeliciteerd de code " & TextBox1.Text & " is gevonden in de licentielijst!", MsgBoxStyle.Information)

optie.Visible = True

Me.Visible = False

Else

MsgBox("niet gevonden ?")

End If

Else

MsgBox("u heeft te veel of te weinig leestekens gebruikt", MsgBoxStyle.Exclamation)

End If

End Sub

Hopelijk weet je meer

[stegisoft]

Ik dacht dat je VB van access bedoelde maar je hebt het over een andere VB

Is Me.Hide() en Me.Visible = False een formuliernaam?

Ik denk het niet.

Me dient je te verwijzen naar iets.

[ricardog]

me.hide is dat het zich zelf verstopt anders zou het dus licentie.hide worden en dat kan niet want dat moet dan me.hide worden als die zich zelf wilt verstoppen.

[stegisoft]

Hier kan je lezen hoe je moet doen.

[ricardog]

Helaas dat werkt ook niet dat behoord tot mijn intro form en die is wel goed maar de form die de intro te voorschijn laat komen die kan juist niet weg.

ps. Bedankt voor de moeite om me te helpen