設计用户登录界面编程.docVIP

教育学院实验报告 姓名 杨培西 学号 201004401117 实验小组组号 实验小组组内编号 实验题目 Sd`1`2使用Label、Textbox、Button以及Form控件设计一个用户登录界面 实验目的 及要求 实验目的：熟悉VB.NET的开发环境，熟悉控件Label、Textbox、Button以及Form的使用，以及各控件属性的设置。 实验仪器 及用具 电脑一台，装有软件visual studio2008 实验原理 使用Label、Textbox、Button以及Form控件以及编写相应的程序代码设计一个用户登录界面 实验步骤 及内容 新建一个form1窗体，从工具栏里拖入对象label1，在复制一个label2，然后分别把属性中的text改为“账号”和“密码”，也可以设置其它的属性，如front，forecolor等。 从工具栏里拖入textbox1到窗体，（复制得到TextBox2），分别与“账号”，“密码”在窗体中呈左右 对齐如图： 然后双击空白窗口textbox1，编写代码，如下: Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If Not IsNumeric(TextBox1.Text) Then MsgBox(账号必须为数字, , 警告) TextBox1.Text = TextBox1.Focus() End If End Sub 从工具栏里拖入对象button1，在复制一个button3，然后分别把属性中的text改为“登录”和“重置”，也可以设置其它的属性，如front，forecolo，backcolor等，如图： 然后双击“登录”，编写代码，代码如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i% If TextBox3.Text 123456 Then i = MsgBox(密码错误, MsgBoxStyle.RetryCancel, 警告) End If If i = MsgBoxResult.Cancel Then Close() Else TextBox2.Text = TextBox3.Focus() If TextBox3.Text = 123456 Then i = MsgBox(登录成功) End If End If End Sub 在回到窗体中，双击“重置”，编写代码，代码如下： Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox3.Text = End Sub End Class 双击窗体form1，编写相应的代码，如下： Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = TextBox2.Text = TextBox1.MaxLength = 12 TextBox2.MaxLength = 11 TextBox3.PasswordChar = * End Sub 启动调试（点击绿色三角形图标），如图： 实验数据（结果）及结论 调试后，自动生成一个可视化窗体，分别输入“账号”975330201，“密码”1234565，然后点击“登录”，显示如下： 2.因为正确的密码是在编写程序是设置为“