实验二窗体和基本控件的使用(2)

实验二窗体和基本控件的使用(2)

ID:35342261

大小:114.17 KB

页数:4页

时间:2019-03-23

实验二窗体和基本控件的使用(2)_第1页
实验二窗体和基本控件的使用(2)_第2页
实验二窗体和基本控件的使用(2)_第3页
实验二窗体和基本控件的使用(2)_第4页
资源描述:

《实验二窗体和基本控件的使用(2)》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、姓名:学号:专业:实验内容:实验地点:实验时间:所用软件:实验成绩:教师签名:实验二窗体和基本控件的使用(2)一、实验目的:1、掌握标准控件的使用方法。2、熟悉标准控件常用属性的使用方法。二、实验准备:1、计算机基本操作练习。2、VisualBasic软件使用预习。3、设计岀下面问题的程序。三、实验步骤及内容:本次实验所用控件较多。包括:框架控件、单选按钮控件、复选框控件等。1、设计一个学生档案录入界面。如图1所示:图1要求:(1)初始运行吋要清空文件框和标签控件。同吋所有的框架控件均不可用。(2)当单击“编辑”命令按钮后,用户才可输入信息;(3)单击“确定”命令按钮将用户输入的信息

2、显示于标签中。如图2所示:「特长——17文学专业C数控技术C模具设计李雪档案:性别:女专业:电子商务特长:文学音乐美术厂体育17音乐疋美术G电子商务編辑确定提示:(1)在窗体上添加4个框架(Frame)。在“姓名”框架(Framel)中放置一文本框(Text)用于输入姓名,在“性别”框架(Fnime2)中放置2个单选按钮(Option)用于选择性别,在"专业”框架(Frame3)中放置3个单选按钮(Option)用于选择专业,在“特长”框架中放置4个复选框(Check)用于选择4种特长。一个标签(Label)用于显示输入信息。两个命令按钮(Button)。(2)窗体和控件属性设置如下

3、表1所示:对象名称属性名属性值FormlCaption学生档案Frame1Caption姓名Frame2Caption性别Frame3Caption专业Frame4Caption特长TextlText空Label1Caption空Option1Caption男Option2Caption女Option3Caption数控技术Option4Caption模具设计Option5Caption电子商务Check1Caption文学Check2Caption体育Check3Caption咅乐Check4Caption美术Command1Caption编辑Command2Caption确定表1

4、(3)部分代码如下:PrivateSubForm_Load()Text1.Text二””Label1.Caption二”"Frame1.Enabled=FalseFrame2.Enabled=FalseFrame3.Enabled=FalseFrame4.Enabled=FalseEndSubPrivateSubCommand1_Click()Text1.Text二””Option1.Value=FalseOption2.Value=FalseOption3.Value=FalseOption4.Value二FalseOption5.Value=FalseCheckl.Value=v

5、bUncheckedCheck2.Value=vbUncheckedCheck3.Value=vbUncheckedCheck4.Value=vbUncheckedFrame1.Enabled=TrueFrame2.Enabled=TrueFrame3.Enabled=TrueFrame4.Enabled=TrueTextl.SetFocusEndSubPrivateSubCommand2_Click()Label1.Caption=Text1.Text&”档案:”&vbCriLf&vbCrLfIfOption1.Value=TrueThenLabel1.Caption=Label1

6、.Caption&”性别:男”&vbCrLfElselfOption2.Value=TrueThenLabel1.Caption=Label1.Caption&”性别:女”&vbCrLfEndIfIfOption3.Value=TrueThenLabel1.Caption=Label1.Caption&”专业:数控技术”&vbCrLf&”特长:”ElselfOption4.Value=TrueThenLabel1.Caption=Label1.Caption&”专业:模具设计”&vbCrLf&"特长:”ElselfOption5.Value=TrueThenLabel1.Captio

7、n=Label1.Caption&”专业:电子商务”&vbCrLf&”特长:”EndIfIfCheck1.Value=vbCheckedThenLabel1.Caption=Label1.Caption&"文学”IfCheck2.Value=vbCheckedThenLabel1.Caption=Label1.Caption&"体育"IfCheck3.Value=vbCheckedThenLabel1.Caption=Label1.Caption&"音乐”

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。