实验四VBNET程序设计基础和常用控件.docx
- 文档编号:964293
- 上传时间:2022-10-14
- 格式:DOCX
- 页数:70
- 大小:2.33MB
实验四VBNET程序设计基础和常用控件.docx
《实验四VBNET程序设计基础和常用控件.docx》由会员分享,可在线阅读,更多相关《实验四VBNET程序设计基础和常用控件.docx(70页珍藏版)》请在冰豆网上搜索。
实验四VBNET程序设计基础和常用控件
实验四VB.NET程序设计基础和常用控件
一、实验目的
本实验主要了解面向对象程序设计语言VB.NET基本语言元素包括集成开发环境、语言基础、基本控制结构、过程、常用控件和界面设计。
通过本实验,读者将学会一些主要的面向对象的设计方法并可以利用VB.NET完成简单的应用程序开发。
二、实验环境
●MicrosofeVisualStudio.NET2008
三、实验内容
1.设计一个VisualBasic.Net的应用程序,窗体上有一个多行文本框和3个命令按钮,程序界面如图1所示。
要求应用程序运行时,当单击窗体上【显示文本信息】按钮,文本框中显示红色文字“我喜欢VB.NET,因为它简单易学,使用方便。
”当单击窗体上【改变背景色】按钮,文本框的背景色变为黄色。
当单击窗体上【结束】按钮,程序结束。
保存该应用程序。
【实验步骤】:
1)创建工程:
打开VisualStudio后,点击左上角的新建项目,选中“模板”,展开选择VisualBasic,再选中Windows桌面,再在左边的类型中选择“Windows窗体应用程序”,在下方为此项目命名为“WindowsApplication4.1”
2)先打开“工具箱”:
展开左上角的“视图”,点击工具箱。
3)修改Form1的名称:
右键选中From1,点击“属性”,在新弹出的属性菜单栏中,找到“Text”这个属性,将右边的“From1”改为“第一个VB.NET实验”即可。
4)设置一个普通文本框:
在工具栏中,选中公共空间中的TextBox,然后拖入右边的设计窗口中,然后鼠标移到TextBox后,鼠标左键按住不放可以移动此控件。
5)调整文本框的大小:
鼠标移动到文本框的左右边缘,鼠标箭头会变成一个左右的箭头,移动即可设置其宽度,而移动到文本框的上下边缘,此时还不能设置高度,因为它的属性是单行文本框,右键点击此文本框,选中“属性”,然后在新弹出的“属性窗口”中,找到“Mutiline”属性,默认值为False,我们将其改为:
True,即可实现多行功能,此时再将鼠标移至上下边缘,即可实现设置其高度的功能。
6)设置三个button及其大小位置:
首先在工具箱公共空间中选择button选项拖入到文本框中,然后鼠标移至此控件的上下左右边缘可调整其大小,将此button的做边缘与文本框对其,长度设置合理后,复制此button再粘贴,将第二个button的右边缘与文本框的右边缘对其,再粘贴出第三个button,将其放在这两个button的中间下方位置,调整其大小使得他的大小略小于前两个。
选中前两个button,利用上方工具栏中的对齐工具对齐。
7)设置三个button文本框的名称:
先右键点击button1,选中“属性”,然后在弹出的属性窗口中,找到“Text”属性,默认值为“Button1”,将其改为“显示文本信息”即可,再右键打开Button2的属性,找到“Text”属性,将默认值”Button2”修改为“改变背景色”,再打开Button3的属性,找到“Text”属性,将默认值”Button3”修改为“结束”。
8)设置Button1的语句代码,使得点击此控件时可以显示文本信息。
左键双击Button1,进入到VB编写代码的窗口:
在中间输入如下语句:
TextBox1.Text="我喜欢VB.NET,因为它简单易学,使用方便。
"
TextBox1.ForeColor=Color.Red
设置Button2的语句代码,使得点击此控件时可以将文本框的背景颜色改为黄色。
左键双击Button2,进入到VB编写代码的窗口:
输入如下代码:
TextBox1.BackColor=Color.Yellow
再设置Button3的语句代码,使得点击此控件时可以退出。
左键双击Button3,进入到VB编写代码的窗口:
输入如下代码:
END
9)运行此窗体:
点击上方的“生成“,选中“生成解决方案”,再点击“运行”键:
点击“显示文本信息”:
点击“改变背景色”:
点击“结束”后,会自动退出调试:
10)实验一出错截图及错误分析:
问题描述:
在点击“显示文本信息”时,文本没有反应。
出错原因:
显示的代码位置设置错误,将代码设置到textbox1上去了
修改方法:
剪贴掉textbox1上的错误代码,加在button1上。
修改效果:
点击button1可以正常显示文本信息
2.试编一程序,将华氏温度转换为摄氏温度。
程序运行时,单击窗体上【开始】按钮,提示输入华氏温度(用InputBox函数),然后将华氏温度转化为摄氏温度,并在窗体上显示华氏温度和摄氏温度。
转换公式为:
C=5/9*(F-32),其中,F是华氏温度,C是摄氏温度。
程序界面如图2所示。
【实验步骤】:
1)创建工程:
打开VisualStudio后,点击左上角的新建项目,选中“模板”,展开选择VisualBasic,再选中Windows桌面,再在左边的类型中选择“Windows窗体应用程序”,在下方为此项目命名为“WindowsApplication4.2”
2)先打开“工具箱”:
展开左上角的“视图”,点击工具箱。
3)修改Form1的名称:
右键选中From1,点击“属性”,在新弹出的属性菜单栏中,找到“Text”这个属性,将右边的“From1”改为“第二个VB.NET实验”即可。
4)设置一个button及其大小位置:
首先在工具箱公共空间中选择button选项拖入到文本框中,然后鼠标移至此控件的上下左右边缘可调整其大小,将其拖到From的正中偏下方的位置。
右键选择button的属性,修改其默认值为“Button”的文本属性为“开始”
5)设置Button1的VB语句,使得其实现功能:
提示输入华氏温度。
鼠标左键双击“开始”键,进入VB编写代码的窗口:
在此处输入如下代码:
DimFAsString
F=InputBox("请输入华氏摄氏度:
")
6)设置4个Label控件:
在工具栏中的公共控件中,找到“Label”控件,将其拖到合适的位置,一共拖曳四个。
通过上方的对齐工具将他们对齐。
7)为四个Lable设置名称:
先右键点击Lable1,选中“属性”,找到“Text”属性,默认值为“Lable1”,将其修改为“华氏温度”,同理将“Lable3”修改为“摄氏温度”。
再将“Label2”和“Label3”的文本属性值设置为空:
最后得到的结果图:
8)为Lable2和Lable4设置VB语言,使得实现相应的功能:
显示输入的华氏温度并且输出相应的摄氏度。
双击“开始”键,进入它的VB语言,添加上如下语句:
DimFAsString'定义华氏温度
DimCAsDouble'定义摄氏温度
F=InputBox("请输入华氏摄氏度:
")'输入华氏温度F
IfIsNumeric(F)Then'如果输入的是数字
C=5/9*(F-32)'计算摄氏度
Label2.Text=F'将F的值赋给Label2并显示
Label4.Text=C'将C的值赋给Lable4并显示
Else'若输入的不是数字,警告
MsgBox("请重新输入数字!
")
EndIf
9)点击操作栏上的启动:
会出现如下界面,再点击开始,输入合适的值
若输入的不是数字,而是字母或者不合法的字符,则会出现提示信息:
10)出错截图及原因分析:
错误原因:
在执行界面点击“取消”会报错
出错原因:
在什么也不输入的时候,inputbox会默认输入为空,此时再经行字符串转化为double类型的值会出错。
修改方法:
将inputbox的赋给一个string的变量,在进行计算的之前,应该先判断输入的字符是否为数字,是数字再进行运算,若不是则直接退出。
3.设计一程序,窗体界面如图3所示。
要求在程序运行时,根据选择可以改变文本框内文本的字体、字形等。
1)创建工程:
打开VisualStudio后,点击左上角的新建项目,选中“模板”,展开选择VisualBasic,再选中Windows桌面,再在左边的类型中选择“Windows窗体应用程序”,在下方为此项目命名为“WindowsApplication4.3”
2)修改Form1的名称:
右键选中From1,点击“属性”,在新弹出的属性菜单栏中,找到“Text”这个属性,将右边的“From1”改为“第三个VB.NET实验”即可。
3)打开“工具箱”:
展开左上角的“视图”,点击工具箱。
4)设置一个普通文本框:
在工具栏中,选中公共空间中的TextBox,然后拖入右边的设计窗口中,然后鼠标移到TextBox后,鼠标左键按住不放可以移动此控件。
5)调整文本框的大小:
鼠标移动到文本框的左右边缘,鼠标箭头会变成一个左右的箭头,移动即可设置其宽度,右键点击此文本框,选中“属性”,将“Mutiline”属性,默认值为False,我们将其改为:
True,此时再将鼠标移至上下边缘,即可实现设置其高度的功能。
6)添加两个GroupBox:
在工具箱的容器分类下,找到“GroupBox”,,拖曳两个放在from1中,调整大小与位置使得其在合适的位置。
7)修改两个group的文本属性:
右键点击groupbox1,点到属性,再在出现的属性窗口中,找到“text”属性,将默认值为“Groupbox1”修改为“颜色设置”同理将另外一个的文本属性设置为“字形设计”
8)为“颜色设置”添加三个RadioButton:
在工具栏中,拖曳三个RadioButton到“颜色设计”窗体中,注意调整相对位置,可以使用上方的对齐工具
9)修改三个RadioButton的文本属性:
右键点击RadioButton1,找到文本属性,修改为“红色”,同理将其余两个修改为“绿色”和“蓝色”
10)为“字形设置”添加三个CheckBox:
在工具栏中,拖曳三个CheckBox到“字形设计”窗体中,注意调整相对位置,可以使用上方的对齐工具
11)修改三个CheckBox的文本属性:
右键点击CheckBox,找到文本属性,修改为“下划线”,同理将其余两个修改为“粗体”和“斜体”
12)添加一个“button”:
从公共控件中拖入一个Button到窗口中,放在from1的内部正下方的位置,调整为合适的大小,然后右键点到“属性”,将其其文本属性修改为“退出”。
13)为各个控件添加VB代码:
在“颜色设置”窗口中,为了实现将字体的颜色进行修改,鼠标左键双击“红色”进入代码编辑界面,在出现的界面中输入合适的代码,再对剩余的控件挨个添加代码。
分别在三个按钮中输入以下语句
If(RadioButton1.Checked=True)Then'若选中红色按钮'
TextBox1.ForeColor=Color.Red
EndIf(以上代码输入“红色“中)
If(RadioButton2.Checked=True)Then'若选中绿色按钮'
TextBox1.ForeColor=Color.Green
EndIf(这三行代码输入到“绿色“中)
If(RadioButton3.Checked=True)Then'若选中蓝色按钮'
TextBox1.ForeColor=Color.B
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 VBNET 程序设计 基础 常用 控件