- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
設计用户登录界面编程
教育学院实验报告
姓名 杨培西 学号 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.因为正确的密码是在编写程序是设置为“
您可能关注的文档
最近下载
- 2023-2024年度执业药师继续教育消化系统常见疾病的诊疗进展及处方审核要点参考答案.docx VIP
- 《植物组织培养》课程教学大纲(本科).pdf VIP
- 高速公路项目质量管理制度考核实施细则.doc VIP
- 《植物组织培养》课程教学大纲(本科).pdf VIP
- 一例糖尿病酮症酸中毒个案护理.ppt VIP
- 虚症及补虚类中成药的合理应用答案-2024年执业药师继续教育答案.docx VIP
- 护士素质、护士礼仪幻灯片.ppt VIP
- 1.2+原始农业与史前社会+课件+2024-2025学年统编版七年级历史上册.pptx VIP
- 《材料成型自动控制基础》课程教学大纲(本科).pdf VIP
- 第2课+原始农业与史前社会(课件)-2024-2025学年七年级历史上册素养提升课件(统编版2024).pptx VIP
文档评论(0)