Hallo,
Ik ben nieuw met Visual Basic en probeerde het een en ander uit.
zoals het onderstaande, iets waar ik na lang zoeken niet uitkom.
Ik maak simpel 2 forms, in de 1e log je in, en de 2e verschijnt. Dat gaat.
Maar als ik erbij zet dat de 1e form moet verdwijnen gaat het fout en gebeurt er niks meer.
De onderstaande code heb ik ingevoerd, ik snap niet wat er fout is.
Als ik ipv Me form1 invul geeft Microsoft Visual Basic 2008 een foutmelding. Bij het onderstaande niet, maar doet ie het gewoon niet
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Jan" And TextBox2.Text = "Welkom01" Then
Form2.Visible = True And Me.Visible = False
Else
Application.Exit()
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.Enter
TextBox2.Text = ("")
End Sub
Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
TextBox1.Text = ""
End Sub
End Class
Alvast bedankt voor reacties
Ik ben nieuw met Visual Basic en probeerde het een en ander uit.
zoals het onderstaande, iets waar ik na lang zoeken niet uitkom.
Ik maak simpel 2 forms, in de 1e log je in, en de 2e verschijnt. Dat gaat.
Maar als ik erbij zet dat de 1e form moet verdwijnen gaat het fout en gebeurt er niks meer.
De onderstaande code heb ik ingevoerd, ik snap niet wat er fout is.
Als ik ipv Me form1 invul geeft Microsoft Visual Basic 2008 een foutmelding. Bij het onderstaande niet, maar doet ie het gewoon niet
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Jan" And TextBox2.Text = "Welkom01" Then
Form2.Visible = True And Me.Visible = False
Else
Application.Exit()
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.Enter
TextBox2.Text = ("")
End Sub
Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
TextBox1.Text = ""
End Sub
End Class
Alvast bedankt voor reacties