VB小程序制作Word文件下载.docx
- 文档编号:19756219
- 上传时间:2023-01-09
- 格式:DOCX
- 页数:22
- 大小:4.54MB
VB小程序制作Word文件下载.docx
《VB小程序制作Word文件下载.docx》由会员分享,可在线阅读,更多相关《VB小程序制作Word文件下载.docx(22页珍藏版)》请在冰豆网上搜索。
启动窗体
Caption
Command1(0)
Whoareyou?
Command1
(1)
game
Command1
(2)
writeboard
Command1(3)
calculator
Command1(4)
byebye
Picture1
autoredraw
false
Label1
caption
Let'
sstartawonderfuljourney
表8-2Form2属性设置
Form2
输入个人资料窗口
Label11
name
Label12
gender
Label13
Isthatagirl?
Fream1
hobbies
command
okey
Option1
female
Value
True
默认被选中
Option2
male
Check1
WoW
Check2
LeagueofLegends
Check3
DungeonandFighter
Check4
QQspeed
Check5
films
Check6
movie
表8-3Form3属性设置
Form3
Command1
happiness
Command2
begin
Command3
love
Command4
beauty
Command5
laugh
scroes
Label2
Timer1
interval
500
Timer2
71
表8-4Form4属性设置
Form4
Label
路漫漫其修远兮
Label3
吾将上下而求索
TextBox
text
picture
返回
表8-5Form5属性设置
Form
Form5
Command1(0~9)
1~9,0
Command1(10)
.
Command2(0~4)
+-*/=
表8-6Form6属性设置
Form6
welcometousethissystemagain!
!
thankyou!
Timer1~12
1
Timer13
1000
4)编写代码。
编写“启动”窗体form1(Form1)中代码:
OptionExplicit
DimiAsInteger,ur1AsString,NAsInteger
PrivateSubCommand1_Click(IndexAsInteger)
N=Index
SelectCaseN
Case0
Case1
Case2
Case3
Case5
EndSelect
EndSub
PrivateSubForm_Activate()
=True
PrivateSubForm_Load()
=-/2
Picture2=LoadPicture("
C:
\Users\LQR\Desktop\VB.\"
)
0,0,3000,3000,,,,,vbSrcCopy
PrivateSubTimer1_Timer()
OnErrorGoToErr
ur1="
&
i&
"
.gif"
=LoadPicture(ur1)
i=i+1
ExitSub
Err:
i=1
编写“输入个人资料”窗体form2(Form2)中的代码:
PrivateSubCommand1_Click()
If="
"
Then
a=InputBox("
Youforgettoinputyourname?
"
Attention!
Yourname!
Ifa="
Ora="
ThenExitSub
=a
Else:
EndIf
Picture1=LoadPicture("
0,0,3750,4900,,,,,vbSrcCopy
编写“GAME”窗体form3(Form3)中的代码:
DimaAsInteger,iAsInteger,ur1AsString
If=RGB(225,0,0)Then
Label2=Val+1
PrivateSubCommand2_Click()
PrivateSubCommand3_Click()
PrivateSubCommand4_Click()
PrivateSubCommand5_Click()
PrivateSubcw_Click()
Label2="
PrivateSubTimer2_Timer()
\Users\LQR\Desktop\新建文件夹.\"
.jpg"
0,0,12135,8295,,,,,vbSrcCopy
i=45
StaticxAsInteger
a=Int(Rnd()*4)
SelectCasea
=RGB(225,0,0)
=RGB(15,0,0)
Ifx<
50Then
x=x+1
Else
=False
x=0
EndIf
PrivateSubtui_Click()
PrivateSubwf_Click()
MsgBox"
rules:
Chr(13)&
Hitthedifferentthefixedtime,morehits,morescores!
!
vbOKOnly,"
Rule"
编写“writeboard”窗体form4(Form4)中的代码:
PrivateSubN_Click()
="
PrivateSubO_Click()
所有文件(*.*)|*.*|文本文件(*.TXT)|*.txt"
=1
=
PrivateSubS_Click()
PrivateSubT_Click()
PrivateSubText1_Change()
PrivateSubY_Click()
PrivateSubZ_Click()
=3Or256
WithText1
.FontName=
.FontSize=
.FontStrikethru=
.FontBold=
.FontItalic=
.FontUnderline=
.ForeColor=
EndWith
0,0,1500,2500,,,,,vbSrcCopy
编写“calculator”窗体form5(Form5)中的代码:
DimvAsBoolean
DimSAsInteger
DimxAsDouble
DimYAsDouble
T"
IfIndex=10Then
0"
Else
=Command1(Index).Caption
=&
Command1(Index).Caption
PrivateSubCommand2_Click(IndexAsInteger)
IfvThen
x=Val
v=Notv
Y=Val
SelectCaseS
=x+Y
=x-Y
=x*Y
IfY<
>
0Then
=x/Y
傻了?
不能以0为除数啊!
提示"
=x
v=False
Case4
Y=0
S=Index
PrivateSubxin_Click()
编写结束窗体form6(Form6)中的代码:
DimxAsInteger,YAsInteger,aAsInteger,mAsLong,NAsLong
0,0,2250,2250,,,,,vbSrcCopy
Picture3=LoadPicture("
If+>
=Then
=+50
If<
=0Then
=-50
PrivateSubTimer3_Timer()
6700Then
PrivateSubTimer4_Timer()
PrivateSubTimer5_Timer()
PrivateSubTimer6_Timer()
PrivateSubTimer7_Timer()
PrivateSubTimer8_Timer()
PrivateSubTimer9_Timer()
PrivateSubTimer10_Timer()
PrivateSubTimer11_Timer()
PrivateSubTimer12_Timer()
PrivateSubTimer13_Timer()
Ifa<
11Then
a=a+1
End
5)运行窗体。
启动程序后,屏幕出现启动窗体,单击按钮,显示相应窗体,可以执行相应的命令,如图10-2所示。
图10-2多重窗体程序
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 制作