VS2008--VB编程实例(3)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = TextBox2.Text And Val(TextBox1.Text) > 10 Then Label2.Visible = False Button1.Visible = False GroupBox1.Visible = False Label1.Enabled = True Label1.Visible = True

Label1.Text = \欢迎登录本网站\ End If

If TextBox1.Text <> TextBox2.Text Or Val(TextBox1.Text) = 0 Or Val(TextBox2.Text) = 0 Then

Label1.Enabled = False