《vb实验六_窗体、标签、文本框和按钮_实验报告.doc》由会员分享,可在线阅读,更多相关《vb实验六_窗体、标签、文本框和按钮_实验报告.doc(4页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、【精品文档】如有侵权,请联系网站删除,仅供学习与交流vb实验六_窗体、标签、文本框和按钮_实验报告.精品文档.电子信息工程学系实验报告成 绩:课程名称:面向对象程序设计 指导教师(签名):实验项目名称: 实验六 窗体、标签、文本框和按钮 实验时间: 班级: 姓名: 学号: 一 实 验 目 的: 1)学会添加多个窗体。2)掌握启动窗体和切换窗体。3)掌握为窗体添加事件代码。4)掌握标签在属性和事件代码。5)掌握文本框属性和事件代码。6)掌握按钮事件代码。二 实 验 环 境:Windows XPVisual Studio.NET 2003三 实 验 内 容 过 程 及 结 果 分 析: 一窗体和控
2、件应用1.创建窗体创建一个项目。由两个窗体组成。Form1用于输入用户名和用户密码,当输入正确时单击 确定按钮显示form2,同时掩藏form1;当输入出错则提示出错,单击退出按钮结束程序;form2中显示“欢迎登录!“,单击form2中在返回按钮回到form1.并关闭form2新建一个 项目form1,然后选择项目菜单在添加windows窗体命令,添加一个窗体form2。2设置启动窗体本程序默认的启动窗体是form1.,选择项目菜单在属性命令,再单击启动对象选择form1如下图所示:3界面设计如下图所示: 对form1设计属性窗口如下: Form2的界面窗口如下图所示:4.编写事件代码:在窗
3、体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.Critic
4、al) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 单击退出按钮结束程序。 End End SubEnd Class在form2中单击“返回”按钮,卸载form2.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 单击返回按钮,退出
5、form2。 Me.Close() End Sub5.保存和运行单击文件菜单选择全部保存命令来保存项目和窗体form1、form2程序运行后,输入正确在用户名和密码显示入下图:二密码验证1键盘事件给form1的textbox1文本框添加代码,使程序能实现当在该文本框输入结束后,按回车键焦点将自动跳到textbox2文本框中该功能的实现需要在textbox1对象的keypress事件中编写代码,检查该事件中e对象的keychar属性。当keychar的值为chr(13),表示用户按下了键盘的回车键,此时再调用textbox2对象的focus方法,可以实现焦点的转移。Private Sub Tex
6、tBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If e.keychar = Chr(13) Then TextBox2.Focus() TextBox2.SelectAll() End If End Sub给textbox2文本框的keypress事件编写代码,实现用户在密码框中按回车键,焦点自动跳转到确定按钮上:Private Sub TextBox2_TextChanged(ByVal sender As System.Ob
7、ject, ByVal e As System.EventArgs) Handles TextBox2.TextChanged If e.keychar = Chr(13) Then Button1.Focus() End If End Sub2根据错误的次数做不同的选择修改form1中“确定”按钮的click事件,当用户名或密码错误三次,则将“确定”禁用。修改程序代码为:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Stat
8、ic n As Integer If TextBox1.Text = abc And TextBox2.Text = 123 Then Dim form2 As New Form2 form2.Show() Else n = n + 1 If n 3 Then MsgBox(请输入正确在用户名和密码!, MsgBoxStyle.Critical) Else MsgBox(你无权登入!, MsgBoxStyle.Critical) Button1.Enabled = False End If End If End Sub程序修改后,输入的用户名或密码,按“确定”按钮后,系统将弹出错误的提示如下图所示:四 实 验 心 得:通过实验学会添加多个窗体。掌握启动窗体和切换窗体和为窗体添加事件代码。掌握标签在属性和事件代码、文本框属性和事件代码和按钮事件代码。