vb实验六_窗体标签文本框和按钮_实验报告.doc

PAGE 第 PAGE 1 页 共 NUMPAGES 4 页 电子信息工程学系实验报告 成 绩：课程名称： 成 绩： 指导教师（签名）：实验项目名称： 实验六 窗体、标签、文本框和按钮 实验时间： 指导教师（签名）： 班级： 姓名： 学号： 一 实 验 目 的: 1)学会添加多个窗体。 2)掌握启动窗体和切换窗体。 3)掌握为窗体添加事件代码。 4)掌握标签在属性和事件代码。 5)掌握文本框属性和事件代码。 6)掌握按钮事件代码。 二 实 验 环 境: Windows XP Visual Studio.NET 2003 三 实 验 内 容 过 程 及 结 果 分 析: 一．窗体和控件应用 1.创建窗体 创建一个项目。由两个窗体组成。Form1用于输入用户名和用户密码，当输入正确时单击 确定按钮显示form2，同时掩藏form1；当输入出错则提示出错，单击退出按钮结束程序；form2中显示“欢迎登录！“，单击form2中在返回按钮回到form1.并关闭form2 新建一个 项目form1，然后选择项目菜单在添加windows窗体命令，添加一个窗体form2。 2设置启动窗体 本程序默认的启动窗体是form1.，选择项目菜单在属性命令，再单击启动对象选择form1如下图所示： 3．界面设计如下图所示： 对form1设计属性窗口如下： Form2的界面窗口如下图所示： 4.编写事件代码： 在窗体1的文本框中分别输入用户名和口令，单击确定按钮，当用户名为“abc”并且口令为“123”是显示窗体2，否则提示出错。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "abc" And TextBox2.Text = "123" Then Dim form2 As New Form2 form2.Show() Else MsgBox("请输入正确在用户名和密码！", MsgBoxStyle.Critical) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '单击"退出"按钮结束程序。 End End Sub End Class 在form2中单击“返回”按钮，卸载form2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '单击"返回"按钮，退出form2。 Me.Close() End Sub 5.保存和运行 单击文件菜单选择全部保存命令来保存项目和窗体form1、form2 程序运行后，输入正确在用户名和密码显示入下图： 二．密码验证 1键盘事件 给form1的textbox1文本框添加代码，使程序能实现当在该文本框输入结束后，按回车键焦点将自动跳到textbox2文本框中该功能的实现需要在textbox1对象的keypress事件中编写代码，检查该事件中e对象的keychar属性。当keychar的值为chr（13），表示用户按下了键盘的回车键，此时再调用textbox2对象的focus方法，可以实现焦点的转移。 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If e.keychar = Chr(1