Prima di dire il mio problema volevo dire che sto programmando con VisualBasic.Net che sarebbe Visual Basic 2010 express?
Esiste anche un Visual Basic senza il .Net?
Ora veniamo al mio problema.
Questo è il programma che ho creato:
E ho aggiunta la funzione che se si sbaglia la password compare un msgbox.
Il problema sta nel fatto,che quando a fare il debug,quando metto la password errata va tutto bene,ma se metto quella giusta compare sia la calcolatrice ma anche il messaggio di sistema che io avevo solo impostato quando dovevo sbagliare password.
Spero di essermi fatto capire XD
Grazie in anticipo :D
Esiste anche un Visual Basic senza il .Net?
Ora veniamo al mio problema.
Questo è il programma che ho creato:
Se guardate bene ho programmato che quando metto nel TextBox1.text la parola password entra senza problemi.Public Class Form1 Dim variabile As Integer
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If TextBox1.Text = "password" Then
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = True
Button6.Visible = True
Button7.Visible = True
Button8.Visible = True
Button9.Visible = True
Button10.Visible = True
Button12.Visible = True
Button13.Visible = True
Button14.Visible = True
Button11.Visible = False
TextBox1.Text = ""
TextBox1.PasswordChar = ""
End If
If TextBox1.Text <> "password" Then
MsgBox("Password Errata!", MsgBoxStyle.Critical, "Attenzione")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + "1"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + "2"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text + "3"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text + "4"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text + "5"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text + "6"
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text + "7"
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text + "8"
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text + "9"
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text + "0"
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
variabile = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
TextBox1.Text = Val(TextBox1.Text) + variabile
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
TextBox1.Text = ""
End Sub
End Class
E ho aggiunta la funzione che se si sbaglia la password compare un msgbox.
Il problema sta nel fatto,che quando a fare il debug,quando metto la password errata va tutto bene,ma se metto quella giusta compare sia la calcolatrice ma anche il messaggio di sistema che io avevo solo impostato quando dovevo sbagliare password.
Spero di essermi fatto capire XD
Grazie in anticipo :D