单选按钮复选框和框架控件实验Word文件下载.docx

上传人:b****3 文档编号:6539162 上传时间:2023-05-06 格式:DOCX 页数:7 大小:92.38KB
下载 相关 举报
单选按钮复选框和框架控件实验Word文件下载.docx_第1页
第1页 / 共7页
单选按钮复选框和框架控件实验Word文件下载.docx_第2页
第2页 / 共7页
单选按钮复选框和框架控件实验Word文件下载.docx_第3页
第3页 / 共7页
单选按钮复选框和框架控件实验Word文件下载.docx_第4页
第4页 / 共7页
单选按钮复选框和框架控件实验Word文件下载.docx_第5页
第5页 / 共7页
单选按钮复选框和框架控件实验Word文件下载.docx_第6页
第6页 / 共7页
单选按钮复选框和框架控件实验Word文件下载.docx_第7页
第7页 / 共7页
亲,该文档总共7页,全部预览完了,如果喜欢就下载吧!
下载资源
资源描述

单选按钮复选框和框架控件实验Word文件下载.docx

《单选按钮复选框和框架控件实验Word文件下载.docx》由会员分享,可在线阅读,更多相关《单选按钮复选框和框架控件实验Word文件下载.docx(7页珍藏版)》请在冰点文库上搜索。

单选按钮复选框和框架控件实验Word文件下载.docx

实验室

机房

同组人数

1

实验时间

2011年月日

成绩

指导教师

赵立英、杨东

一、实验目的

1、熟练掌握VisualBasic标准控件的主要属性、方法、事件及在实际编程中的应用。

2、掌握单选按钮(OptionButton)、复选框(CheckBox)、框架(Frame)、列表框(ListBox)、组合框(ComboBox)控件的常用属性、方法、事件和基本用法。

3、通过实验进一步理解应用程序界面设计及常用控件的使用技巧。

二、实验内容

1、单选按钮、复选框和框架控件实验

设计如图所示的窗体界面,设置Text1中文本的字体、字号和字形,要求字体和字号用控件数组实现。

程序清单:

PrivateSubCheck1_Click()

IfCheck1.Value=1Then

Text1.FontBold=True

Else

Text1.FontBold=False

EndIf

EndSub

PrivateSubCheck2_Click()

IfCheck2.Value=1Then

Text1.FontItalic=True

Text1.FontItalic=False

PrivateSubCheck3_Click()

IfCheck3.Value=1Then

Text1.FontUnderline=True

Text1.FontUnderline=False

PrivateSubOptzh_Click(IndexAsInteger)

Text1.FontSize=Optzh(Index).Caption

PrivateSubOptzt_Click(IndexAsInteger)

Text1.FontName=Optzt(Index).Caption

运行界面:

2、列边框控件实验

设计如图所示的界面,具体要求如下:

1在Form_Load事件中利用AddItem方法实现对列表框添加若干项目;

2选定某项目,项目内容和下标自动在Label1控件中显示;

3“添加”按钮,将Text1控件输入的项目添加在列表框最后;

4“删除”按钮,对选定的项目删除;

5“清除”按钮,清除列表框中所有项目。

PrivateSubCommand1_Click()

List1.AddItemText1.Text

PrivateSubCommand2_Click()

List1.RemoveItemList1.ListIndex

PrivateSubCommand3_Click()

List1.Clear

PrivateSubForm_Load()

List1.AddItem"

大学计算机基础"

VB程序设计"

C语言程序设计"

数据库基础"

Java程序设计"

PrivateSubList1_Click()

Label1.Caption=List1.Text&

"

下标为:

"

&

List1.ListIndex

3、组合框控件实验。

实验指导P119实验9-2

PrivateSubCombo1_Click()

Label4.FontName=Combo1.Text

PrivateSubCombo2_Change()

IfVal(Combo2.Text)>

8Then

Label4.FontSize=Val(Combo2.Text)

PrivateSubCombo2_Click()

Label4.FontSize=Val(Combo2.Text)

PrivateSubCombo3_Click()

SelectCaseCombo3.Text

Case"

常规"

Label4.FontBold=False

Label4.FontItalic=False

斜体"

Label4.FontItalic=True

粗体"

Label4.FontBold=True

粗斜体"

EndSelect

WelcomeTo

Download!

!

欢迎您的下载,资料仅供参考!

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 表格模板 > 合同协议

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2