VB小程序制作.docx
《VB小程序制作.docx》由会员分享,可在线阅读,更多相关《VB小程序制作.docx(22页珍藏版)》请在冰豆网上搜索。
![VB小程序制作.docx](https://file1.bdocx.com/fileroot1/2023-1/9/fbf933d9-0394-4f51-831a-c1ed6edfcb5d/fbf933d9-0394-4f51-831a-c1ed6edfcb5d1.gif)
VB小程序制作
VB程序设计
实验目的
1)掌握VB多重窗体程序的概念。
2)掌握多重窗体程序的设计方法。
3)复习各种控件的使用方法。
实验内容
采用多窗体技术编写程序,分别在不同的窗体上实现不同功能。
实验步骤
实验步骤如下:
1)建立启动窗体界面与设置对象属性。
选择“新建”工程,进入窗体设计器,在窗体中添加命令按钮组Command1(0)~Command1(5),并修改属性如图8-1左所示。
系统默认窗体Form1为启动窗体。
2)添加窗体。
选择“工程”菜单,打开“添加窗体”对话框。
按“打开”按钮,添加3个标准窗体Form2~Form4。
添加标准模块。
选择“工程”菜单,打开“添加模块”对话框。
按“打开”按钮,添加1个标准模块Module1。
图8-1程序界面设计
3)建立子窗体界面与设置对象属性。
界面如图8-1所示,设置属性如表所示。
表8-1Form1属性设置
对象
属性
属性值
说明
Form1
Name
Form1
启动窗体
Caption
Form1
Command1(0)
Caption
Whoareyou?
Command1
(1)
Caption
game
Command1
(2)
Caption
writeboard
Command1(3)
Caption
calculator
Command1(4)
Caption
byebye
Picture1
autoredraw
false
Label1
caption
Let'sstartawonderfuljourney
表8-2Form2属性设置
对象
属性
属性值
说明
Form2
Name
Form2
输入个人资料窗口
Caption
Form2
Label11
Caption
name
Label12
Caption
gender
Label13
Caption
Isthatagirl?
Fream1
Caption
hobbies
command
caption
okey
Caption
Option1
Caption
female
Value
True
默认被选中
Option2
Caption
male
Value
True
默认被选中
Check1
Caption
WoW
Check2
Caption
LeagueofLegends
Check3
Caption
DungeonandFighter
Check4
Caption
QQspeed
Check5
Caption
films
Check6
Caption
movie
表8-3Form3属性设置
对象
属性
属性值
说明
Form3
Name
Form3
Caption
Form3
Command1
Caption
happiness
Command2
Caption
begin
Command3
Caption
love
Command4
Caption
beauty
Command5
Caption
laugh
Label1
caption
scroes
Label2
Caption
0
Timer1
interval
500
Timer2
interval
71
表8-4Form4属性设置
对象
属性
属性值
说明
Form4
Name
Form4
Caption
Form4
Label
caption
Label2
Caption
路漫漫其修远兮
Label3
Caption
吾将上下而求索
TextBox
text
Picture1
picture
Caption
返回
表8-5Form5属性设置
对象
属性
属性值
说明
Form
Name
Form5
Caption
Form5
Command1(0~9)
caption
1~9,0
Command1(10)
caption
.
Command2(0~4)
caption
+-*/=
Label2
Caption
路漫漫其修远兮
Label3
Caption
吾将上下而求索
TextBox
text
表8-6Form6属性设置
对象
属性
属性值
说明
Form4
Name
Form6
Caption
Form6
Label
caption
welcometousethissystemagain!
!
Label2
Caption
thankyou!
Picture1
picture
Timer1~12
interval
1
Timer13
interval
1000
4)编写代码。
编写“启动”窗体form1(Form1)中代码:
OptionExplicit
DimiAsInteger,ur1AsString,NAsInteger
PrivateSubCommand1_Click(IndexAsInteger)
N=Index
SelectCaseN
Case0
Case1
Case2
Case3
Case5
EndSelect
EndSub
PrivateSubForm_Activate()
=True
EndSub
PrivateSubForm_Load()
=-/2
=-/2
Picture2=LoadPicture("C:
\Users\LQR\Desktop\VB.\")
=True
0,0,3000,3000,,,,,vbSrcCopy
EndSub
PrivateSubTimer1_Timer()
OnErrorGoToErr
ur1="C:
\Users\LQR\Desktop\VB.\"&i&".gif"
=LoadPicture(ur1)
i=i+1
=True
0,0,3000,3000,,,,,vbSrcCopy
ExitSub
Err:
i=1
EndSub
编写“输入个人资料”窗体form2(Form2)中的代码:
PrivateSubCommand1_Click()
If=""Then
a=InputBox("Youforgettoinputyourname?
","Attention!
","Yourname!
")
Ifa=""Ora="Yourname!
"ThenExitSub
=a
Else:
EndIf
EndSub
PrivateSubForm_Load()
=-/2
=-/2
Picture1=LoadPicture("C:
\Users\LQR\Desktop\VB.\")
=True
0,0,3750,4900,,,,,vbSrcCopy
EndSub
编写“GAME”窗体form3(Form3)中的代码:
DimaAsInteger,iAsInteger,ur1AsString
PrivateSubCommand1_Click()
If=RGB(225,0,0)Then
Label2=Val+1
EndIf
EndSub
PrivateSubCommand2_Click()
=True
EndSub
PrivateSubCommand3_Click()
If=RGB(225,0,0)Then
Label2=Val+1
EndIf
EndSub
PrivateSubCommand4_Click()
If=RGB(225,0,0)Then
Label2=Val+1
EndIf
EndSub
PrivateSubCommand5_Click()
If=RGB(225,0,0)Then
Label2=Val+1
EndIf
EndSub
PrivateSubcw_Click()
Label2=""
EndSub
PrivateSubTimer2_Timer()
OnErrorGoToErr
ur1="C:
\Users\LQR\Desktop\新建文件夹.\"&i&".jpg"
=LoadPicture(ur1)
i=i+1
=True
0,0,12135,8295,,,,,vbSrcCopy
ExitSub
Err:
i=45
EndSub
PrivateSubForm_Load()
=-/2
=-/2
Picture1=LoadPicture("C:
\Users\LQR\Desktop\新建文件夹.\")
=True
0,0,12135,8295,,,,,vbSrcCopy
EndSub
PrivateSubTimer1_Timer()
StaticxAsInteger
a=Int(Rnd()*4)
SelectCasea
Case0
=RGB(225,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
Case1
=RGB(225,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
Case2
=RGB(225,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
Case3
=RGB(225,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
EndSelect
Ifx<50Then
x=x+1
Else
=False
=RGB(15,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
=RGB(15,0,0)
x=0
EndIf
EndSub
PrivateSubtui_Click()
EndSub
PrivateSubwf_Click()
MsgBox"rules:
"&Chr(13)&"Hitthedifferentthefixedtime,morehits,morescores!
!
",vbOKOnly,"Rule"
EndSub
编写“writeboard”窗体form4(Form4)中的代码:
PrivateSubN_Click()
=""
EndSub
PrivateSubO_Click()
="所有文件(*.*)|*.*|文本文件(*.TXT)|*.txt"
=1
=
EndSub
PrivateSubS_Click()
=
EndSub
PrivateSubT_Click()
EndSub
PrivateSubText1_Change()
=
EndSub
PrivateSubY_Click()
=
EndSub
PrivateSubZ_Click()
=3Or256
WithText1
.FontName=
.FontSize=
.FontStrikethru=
.FontBold=
.FontItalic=
.FontUnderline=
.ForeColor=
EndWith
EndSub
PrivateSubForm_Load()
=-/2
=-/2
Picture1=LoadPicture("C:
\Users\LQR\Desktop\VB.\")
=True
0,0,1500,2500,,,,,vbSrcCopy
EndSub
编写“calculator”窗体form5(Form5)中的代码:
DimvAsBoolean
DimSAsInteger
DimxAsDouble
DimYAsDouble
PrivateSubCommand1_Click(IndexAsInteger)
If="T"Then
IfIndex=10Then
="0"
Else
=Command1(Index).Caption
EndIf
=""
Else
=&Command1(Index).Caption
EndIf
EndSub
PrivateSubCommand2_Click(IndexAsInteger)
="T"
IfvThen
x=Val
v=Notv
Else
Y=Val
SelectCaseS
Case0
=x+Y
Case1
=x-Y
Case2
=x*Y
Case3
IfY<>0Then
=x/Y
Else
MsgBox"傻了?
不能以0为除数啊!
",vbOKOnly,"提示"
=x
v=False
EndIf
Case4
Y=0
v=False
EndSelect
x=Val
EndIf
S=Index
EndSub
PrivateSubForm_Load()
=-/2
=-/2
EndSub
PrivateSubtui_Click()
EndSub
PrivateSubxin_Click()
=""
EndSub
编写结束窗体form6(Form6)中的代码:
OptionExplicit
DimxAsInteger,YAsInteger,aAsInteger,mAsLong,NAsLong
PrivateSubForm_Activate()
=True
=True
=True
=True
=True
=True
EndSub
PrivateSubForm_Load()
=-/2
=-/2
Picture1=LoadPicture("C:
\Users\LQR\Desktop\VB.\")
=True
0,0,2250,2250,,,,,vbSrcCopy
Picture2=LoadPicture("C:
\Users\LQR\Desktop\VB.\")
=True
0,0,2250,2250,,,,,vbSrcCopy
Picture3=LoadPicture("C:
\Users\LQR\Desktop\VB.\")
=True
0,0,2250,2250,,,,,vbSrcCopy
EndSub
PrivateSubTimer1_Timer()
If+>=Then
=True
=False
Else
=+50
EndIf
EndSub
PrivateSubTimer2_Timer()
If<=0Then
=True
=False
Else
=-50
EndIf
EndSub
PrivateSubTimer3_Timer()
If+>6700Then
=True
=False
Else
=+50
EndIf
EndSub
PrivateSubTimer4_Timer()
If<0Then
=True
=False
Else
=-50
EndIf
EndSub
PrivateSubTimer5_Timer()
If+>=Then
=True
=False
Else
=+50
EndIf
EndSub
PrivateSubTimer6_Timer()
If<=0Then
=True
=False
Else
=-50
EndIf
EndSub
PrivateSubTimer7_Timer()
If+>6700Then
=True
=False
Else
=+50
EndIf
EndSub
PrivateSubTimer8_Timer()
If<0Then
=True
=False
Else
=-50
EndIf
EndSub
PrivateSubTimer9_Timer()
If+>=Then
=True
=False
Else
=+50
EndIf
EndSub
PrivateSubTimer10_Timer()
If<=0Then
=True
=False
Else
=-50
EndIf
EndSub
PrivateSubTimer11_Timer()
If+>6700Then
=True
=False
Else
=+50
EndIf
EndSub
PrivateSubTimer12_Timer()
If<0Then
=True
=False
Else
=-50
EndIf
EndSub
PrivateSubTimer13_Timer()
Ifa<11Then
a=a+1
Else
End
EndIf
EndSub
5)运行窗体。
启动程序后,屏幕出现启动窗体,单击按钮,显示相应窗体,可以执行相应的命令,如图10-2所示。
图10-2多重窗体程序