实验五VBNET程序设计基础和常用控件.docx
- 文档编号:7369621
- 上传时间:2023-05-11
- 格式:DOCX
- 页数:23
- 大小:228.87KB
实验五VBNET程序设计基础和常用控件.docx
《实验五VBNET程序设计基础和常用控件.docx》由会员分享,可在线阅读,更多相关《实验五VBNET程序设计基础和常用控件.docx(23页珍藏版)》请在冰点文库上搜索。
实验五VBNET程序设计基础和常用控件
实验五VB.NET程序设计基础和常用控件
一、实验目的
本实验主要了解面向对象程序设计语言VB.NET基本语言元素包括集成开发环境、语言基础、基本控制结构、过程、常用控件和界面设计。
通过本实验,读者将学会一些主要的面向对象的设计方法并可以利用VB.NET完成简单的应用程序开发。
二、实验环境
●MicrosofeVisualStudio.NET2008
三、实验内容
1.设计一个Visual的应用程序,窗体上有一个多行文本框和3个命令按钮,程序界面如图所示。
要求应用程序运行时,当单击窗体上【显示文本信息】按钮,文本框中显示红色文字“我喜欢VB.NET,因为它简单易学,使用方便。
”当单击窗体上【改变背景色】按钮,文本框的背景色变为黄色。
当单击窗体上【结束】按钮,程序结束。
保存该应用程序。
工程的运行截图及按钮响应的事件的vb代码:
1)
2)
vb代码:
PrivateSubButton1_Click(ByValsenderAst,ByValeAsArgs)Handles
="我喜欢VB.NET,因为它简单易学,使用方便。
"
olor=
EndSub
3)
vb代码:
PrivateSubButton2_Click(ByValsenderAst,ByValeAsArgs)Handles
olor=w
EndSub
4)
vb代码:
PrivateSubButton3_Click(ByValsenderAst,ByValeAsArgs)Handles
End
EndSub
2.试编一程序,将华氏温度转换为摄氏温度。
程序运行时,单击窗体上【开始】按钮,提示输入华氏温度(用InputBox函数),然后将华氏温度转化为摄氏温度,并在窗体上显示华氏温度和摄氏温度。
转换公式为:
C=5/9*(F-32),其中,F是华氏温度,C是摄氏温度。
程序界面如图所示。
工程的运行截图及按钮响应的事件的vb代码:
1)
2)
3)
vb代码:
PrivateSubButton1_Click(ByValsenderAst,ByValeAsArgs)Handles
DimF,CAsDouble
=InputBox("输入华氏温度",,,,)
F=Val()
C=5/9*(F-32)
=C
EndSub
3.设计一程序,窗体界面如图所示。
要求在程序运行时,根据选择可以改变文本框内文本的字体、字形等。
工程的运行截图及按钮响应的事件的vb代码:
1)
2)
vb代码:
PrivateSubRadioButton1_CheckedChanged(ByValsenderAst,ByValeAsArgs)HandlesedChanged
olor=
EndSub
3)
vb代码:
PrivateSubRadioButton2_CheckedChanged(ByValsenderAst,ByValeAsArgs)HandlesedChanged
olor=
EndSub
4)
vb代码:
PrivateSubRadioButton3_CheckedChanged(ByValsenderAst,ByValeAsArgs)HandlesedChanged
olor=
EndSub
5)
vb代码:
PrivateSubCheckBox1_CheckedChanged(ByValsenderAst,ByValeAsArgs)HandlesedChanged
DimnewFontStyleAsng.FontStyle'定义新字体字形
newFontStyle=ar
IfedThen'选中下划线时加下划线
newFontStyle+=line
EndIf
IfedThen'选中粗体时加粗
newFontStyle+=
EndIf
IfedThen'选中斜体时变斜
newFontStyle+=c
EndIf
=NewFont(.Name,.Size,newFontStyle)
EndSub
6)
vb代码:
PrivateSubCheckBox2_CheckedChanged(ByValsenderAst,ByValeAsArgs)HandlesedChanged
DimnewFontStyleAsng.FontStyle'定义新字体字形
newFontStyle=ar
IfedThen'选中粗体时加粗
newFontStyle+=
EndIf
IfedThen'选中下划线时加下划线
newFontStyle+=line
EndIf
IfedThen'选中斜体时变斜
newFontStyle+=c
EndIf
=NewFont(.Name,.Size,newFontStyle)
EndSub
7)
vb代码:
PrivateSubCheckBox3_CheckedChanged(ByValsenderAst,ByValeAsArgs)HandlesedChanged
DimnewFontStyleAsng.FontStyle'定义新字体字形
newFontStyle=ar
IfedThen'选中斜体时变斜
newFontStyle+=c
EndIf
IfedThen'选中下划线时加下划线
newFontStyle+=line
EndIf
IfedThen'选中粗体时加粗
newFontStyle+=
EndIf
=NewFont(.Name,.Size,newFontStyle)
EndSub
8)
vb代码:
PrivateSubButton1_Click(ByValsenderAst,ByValeAsArgs)Handles
End
EndSub
4.设计一程序,其界面如图所示,程序运行时,单击“添加”按钮,可将文本框的内容添加到列表框中;单击“删除”按钮,可删除选中的内容;单击“清除”按钮,清除列表框中的所有内容;双击列表框中某一项,该项内容可在文本框中显示。
工程的运行截图及按钮响应的事件的vb代码:
1)
2)
vb代码:
PrivateSubButton1_Click(ByValsenderAst,ByValeAsArgs)Handles
DimsNameAsString'定义添加的姓名,为TextBox1的文字
sName=
IfLen(Trim(sName))=0Then'TextBox1为空时提示输入姓名
MsgBox("请输入歌手的姓名!
")
Return
EndIf
DimiAsInteger'定义列表中姓名的标号
Fori=0To.Count-1
IfsName=(i)Then'姓名已存在时提示
MsgBox(sName&"已存在!
")
Return
EndIf
Next
.Add(sName)'将姓名添加进列表
EndSub
3)
vb代码:
PrivateSubButton2_Click(ByValsenderAst,ByValeAsArgs)Handles
DimiAsInteger=tedIndex'定义选中姓名的标号
Ifi<0Then'未选中时提示
MsgBox("请选中一项,再使用本功能!
")
Return
EndIf
.RemoveAt(i)'删除选中的姓名
EndSub
4)
vb代码:
PrivateSubButton3_Click(ByValsenderAst,ByValeAsArgs)Handles
.Clear()
EndSub
5)
vb代码:
PrivateSubListBox1_DoubleClick(ByValsenderAsObject,ByValeAsArgs)HandleseClick
DimiAsInteger=tedIndex'定义选中姓名的标号
Ifi>=0Then'选中时在TextBox1中显示选中的姓名
=(i)
EndIf
EndSub
5.设计一个具有3个窗体的应用程序。
其中“算术运算”窗口具有主菜单,菜单内容如图所示;“加、减运算”和“乘、除运算”窗口具有弹出式菜单,如图所示。
应用程序运行时,可从“算术运算”窗口的主菜单中选择“计算加、减”或“计算乘、除”菜单命令,进入“加、减运算”窗口或“乘、除运算”窗口,然后从键盘上输入两个数到文本框中,利用窗体上的弹出式菜单命令求出它们的和、差或乘、除,并显示运算结果。
工程的运行截图及按钮响应的事件的vb代码:
1)
2)
vb代码:
PrivateSubToolStripMenuItem2_Click(ByValsenderAst,ByValeAsArgs)Handles
()
EndSub
3)
vb代码:
PrivateSubForm2_Load(ByValsenderAst,ByValeAsArgs)Handles
Me.ContextMenuStrip=ContextMenuStrip1
EndSub
4)
vb代码:
PrivateSubToolStripMenuItem1_Click(ByValsenderAst,ByValeAsArgs)Handles
Dima,bAsInteger'定义第一个数a、第二个数b
a=
b=
=a+b'计算结果为(a+b)
EndSub
5)
vb代码:
PrivateSubToolStripMenuItem2_Click(ByValsenderAst,ByValeAsArgs)Handles
Dima,bAsInteger'定义第一个数a、第二个数b
a=
b=
=a-b'计算结果为(a-b)
EndSub
6)
vb代码:
PrivateSubToolStripMenuItem3_Click(ByValsenderAst,ByValeAsArgs)Handles
()
()
()
EndSub
7)
vb代码:
PrivateSubToolStripMenuItem4_Click(ByValsenderAst,ByValeAsArgs)Handles
Me.Close()
EndSub
8)
vb代码:
PrivateSubToolStripMenuItem3_Click(ByValsenderAst,ByValeAsArgs)Handles
()
EndSub
9)
vb代码:
PrivateSubForm3_Load(ByValsenderAst,ByValeAsArgs)Handles
Me.ContextMenuStrip=ContextMenuStrip1
EndSub
10)
vb代码:
PrivateSubToolStripMenuItem1_Click(ByValsenderAst,ByValeAsArgs)Handles
Dima,bAsInteger'定义第一个数a、第二个数b
a=
b=
=a*b'计算结果为(a*b)
EndSub
11)
vb代码:
PrivateSubToolStripMenuItem2_Click(ByValsenderAst,ByValeAsArgs)Handles
Dima,bAsInteger'定义第一个数a、第二个数b
a=
b=
=a/b'计算结果为(a/b)
EndSub
12)
vb代码:
PrivateSubToolStripMenuItem3_Click(ByValsenderAst,ByValeAsArgs)Handles
()
()
()
EndSub
13)
vb代码:
PrivateSubToolStripMenuItem4_Click(ByValsenderAst,ByValeAsArgs)Handles
Me.Close()
EndSub
14)
vb代码:
PrivateSubToolStripMenuItem5_Click(ByValsenderAst,ByValeAsArgs)Handles
End
EndSub
四、问题及解决
1.问题描述:
运行出错。
错误信息如下图所示:
问题原因:
Underline为只读,不能赋值
解决办法:
定义新字体字形newFontStyle,当选中下划线时,newFontStyle+=line。
所得结果如下图所示:
2.问题描述:
运行出错。
错误信息如下图所示:
问题原因:
在中使用了xtMenuStrip
解决办法:
将xtMenuStrip改为Me.ContextMenuStrip。
所得结果如下图所示:
五、经验及教训
通过本次实验,我了解了VB.NET的集成开发环境、语言基础、基本控制结构、过程、常用控件和界面设计等基本语言元素,学会了一些主要的面向对象的设计方法。
实验中出现了一些问题,我觉得在遇到问题时要学会根据错误信息进行修改,并进行适当的调试。
要认真听从老师的讲解,尽量减少错误的发生。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 VBNET 程序设计 基础 常用 控件