《VB程序设计》实验报告
一、实验目的及要求见实验书要求手填
1了解VBNET系统对计算机软件、硬件的要求。
2掌握启动与退出VBNET的方法。
3掌握建立、编辑和运行VBNET应用程序的全过程。
4掌握常用控件的使用如文本框、标签、命令按钮、图片框。
二、实验完成情况
三、界面设计与程序代码
要求给出界面设计示意图在属性窗口修改过的对象属性需列出列出方式如下
1、创建一个程序
步骤①在窗体上建立3个标签、一个命令按钮和一个文本框。
②在代码窗口中选择Butto
1对象Click事件在Butto
1Click事件模板内输入代码。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。
①界面设计
f对象名属性名属性值
Label1
Text
Fo
t
AutoSize
TextAlig
欢迎学习VBNET
二号字隶书
False
MiddleCe
ter
Label2Text
Fo
t请输入你的姓名宋体有下划线
Butto
1Text请输入你的姓名
Label3AutoSize
BorderStyle
FalseFixed3D
②程序代码
PublicClassForm1
PrivateSubButto
1_ClickByValse
derAsSystemObjectByValeAsSystemEve
tArgsHa
dlesButto
1Click
Label3TextTextBox1Text
E
dSub③运行结果
2、左右移动文字
步骤①在窗体上建立1个标签、1个命令按钮、1个定时器。
②在代码窗口分别对3个控件编写代码最后编写左右移动的单位。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。
①界面设计
对象名属性名属性值
Form1Text
Backgrou
dImage
引例
自己喜欢的图片
Label1Text
Fo
t欢迎使用VBNET自己设置
fButto
1Text
TextAlig
ImageAlig
自动
对齐方式为中左对齐方式为中右
Butto
2Text
TextAlig
ImageAlig
手动
对齐方式为中左对齐方式为中右
Timer1I
terval200
②程序代码
PublicClassForm1
PrivateSubButto
1_ClickByValse
derAsSystemObjectByValeAsSystemEve
tArgsHa
dlesButto
1Click
Timer1E
abledTrue
E
dSub
PrivateSubButto
2_ClickByValse
derAsSystemObjectByValeAsSystemEve
tArgsHa
dlesButto
2Click
Timer1E
abledFalse
Callmymove
E
dSub
PrivateSubTimer1_TickByValse
derAsSystemObjectByValeAsSystemEve
tArgsHa
dlesTimer1Tick
Callmymove
E
dSub
Submymove
Label1LeftLabel1Left50
IfLabel1LeftMeHeightThe
Label1Left0
E
dSub
E
dClass
③运行结
f3、统计鼠标单击窗口的次数
步骤①在窗体上建立一个标签、一个文本框。
②在代码窗口分别对2个控件编辑代码。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。
①界面设计
对象名属性名属性值
Label1Text你单击窗体的次数为
②程序代码
PublicClassForm1
PrivateSubForm1_ClickByValse
derAsObjectByValeAsSystemEve
tArgsHa
dlesMeClickTextBox1TextValTextBox1Text1
E
dSub
PrivateSubForm1_Loadr