Hi,
Ik heb een Hoofdscherm met een button die naar formulier 2 (AR01,vb) moet gaan. Op het formulier (AR01) zit een Quit button.
Als ik het programma laat lopen en ik klik op de button in het hoofdscherm gebeurd er niets! Maar als ik op de Quit button klik in AR01, gaat deze wel terug naar het hoofdscherm. Wat doe ik fout?
Public Class HoofdScherm
Private Sub HoofdScherm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Ar01_Click(sender As Object, e As EventArgs) Handles Ar01.Click
Ar01.Show()
Me.Hide()
End Sub
End Class
-----------------------------------------------------------------------------------------------------------------
Public Class AR01
Private Sub AR01_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
LblDate.Text = Date.Now.ToString("dd-MM-yyyy")
End Sub
Private Sub Ar01Quit_Click(sender As Object, e As EventArgs) Handles Ar01Quit.Click
HoofdScherm.Show()
Me.Hide()
End Sub
End Class
-------------------------------------------------------------------------------------------------------------------
Bedankt
Ik heb een Hoofdscherm met een button die naar formulier 2 (AR01,vb) moet gaan. Op het formulier (AR01) zit een Quit button.
Als ik het programma laat lopen en ik klik op de button in het hoofdscherm gebeurd er niets! Maar als ik op de Quit button klik in AR01, gaat deze wel terug naar het hoofdscherm. Wat doe ik fout?
Public Class HoofdScherm
Private Sub HoofdScherm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Ar01_Click(sender As Object, e As EventArgs) Handles Ar01.Click
Ar01.Show()
Me.Hide()
End Sub
End Class
-----------------------------------------------------------------------------------------------------------------
Public Class AR01
Private Sub AR01_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
LblDate.Text = Date.Now.ToString("dd-MM-yyyy")
End Sub
Private Sub Ar01Quit_Click(sender As Object, e As EventArgs) Handles Ar01Quit.Click
HoofdScherm.Show()
Me.Hide()
End Sub
End Class
-------------------------------------------------------------------------------------------------------------------
Bedankt