Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If UserName.Text = "admin" And PassWord.Text = "admin" Then MainForm.Show() LoginForm.Hide() Else MessageBox.Show("错误的用户名或密码") End If End Sub
以下是引用桂圆在2006-12-27 22:18:09的发言: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If UserName.Text = "admin" And PassWord.Text = "admin" Then Dim mf as new MainForm() LoginForm.Hide() mf.Show() Else MessageBox.Show("错误的用户名或密码") End If End Sub