Private Sub MDP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Fournisseur.Hide() TextBox2.PasswordChar = "*" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text "user" And TextBox2.Text "password" Then Fournisseur.Show() Fournisseur.DGVFour.Enabled = True Me.Hide() Else Fournisseur.Hide() Fournisseur.DGVFour.Enabled = False End If End Sub
fournisseur.DGVFour.Show Me.Close()?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Form2.Hide() TextBox2.PasswordChar = "*" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text "user" And TextBox2.Text "password" Then Form2.Show() Me.Hide() Else Form2.Hide() End If End Sub