留言板
- 乌托邦2012
- Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "请登录"
End Sub
Private Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click
Dim txtName, txtpassword As Object
If txtName.Text = "zhangsan" Then
If txtpassword.Text = "123456" Then
MessageBox.Show("欢迎使用本程序！", "通过", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("密码错误！", "偶你铜火锅", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("用户密码错误", "错粗", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
End Class
