VB小程序制作

《VB小程序制作》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB程序设计8.1.1实验目的1）掌握VB多重窗体程序的概念。2）掌握多重窗体程序的设计方法。3）复习各种控件的使用方法。8.1.2实验内容采用多窗体技术编写程序，分别在不同的窗体上实现不同功能。8.1.3实验步骤实验步骤如下：1）建立启动窗体界面与设置对象属性。选择“新建”工程，进入窗体设计器，在窗体中添加命令按钮组Command1（0）~Command1（5），并修改属性如图8-1左所示。系统默认窗体Form1为启动窗体。2）添加窗体。选择“工程”菜单，打开“添加窗体”对话框。按“打开”按钮，添加3个标准窗体For

2、m2~Form4。添加标准模块。选择“工程”菜单，打开“添加模块”对话框。按“打开”按钮，添加1个标准模块Module1。图8-1程序界面设计1）建立子窗体界面与设置对象属性。界面如图8-1所示，设置属性如表所示。表8-1Form1属性设置对象属性属性值说明Form1NameForm1启动窗体CaptionForm1Command1（0）CaptionWhoareyou?Command1（1）CaptiongameCommand1（2）CaptionwriteboardCommand1（3）Captioncalcula

3、torCommand1（4）CaptionbyebyePicture1autoredrawfalseLabel1captionLet'sstartawonderfuljourney表8-2Form2属性设置对象属性属性值说明Form2NameForm2输入个人资料窗口CaptionForm2Label11CaptionnameLabel12CaptiongenderLabel13CaptionIsthatagirl?Fream1CaptionhobbiescommandcaptionokeyCaptionOption1

4、CaptionfemaleValueTrue默认被选中Option2CaptionmaleValueTrue默认被选中Check1CaptionWoWCheck2CaptionLeagueofLegendsCheck3CaptionDungeonandFighterCheck4CaptionQQspeedCheck5CaptionfilmsCheck6Captionmovie表8-3Form3属性设置对象属性属性值说明Form3NameForm3CaptionForm3Command1CaptionhappinessC

5、ommand2CaptionbeginCommand3CaptionloveCommand4CaptionbeautyCommand5CaptionlaughLabel1captionscroesLabel2Caption0Timer1interval500Timer2interval71表8-4Form4属性设置对象属性属性值说明Form4NameForm4CaptionForm4LabelcaptionLabel2Caption路漫漫其修远兮Label3Caption吾将上下而求索TextBoxtextPictur

6、e1pictureCaption返回表8-5Form5属性设置对象属性属性值说明FormNameForm5CaptionForm5Command1(0~9)caption1~9,0Command1(10)caption.Command2(0~4)caption+-*/=Label2Caption路漫漫其修远兮Label3Caption吾将上下而求索TextBoxtext表8-6Form6属性设置对象属性属性值说明Form4NameForm6CaptionForm6Labelcaptionwelcometousethis

7、systemagain!!Label2Captionthankyou!Picture1pictureTimer1~12interval1Timer13interval10001）编写代码。编写“启动”窗体form1（Form1）中代码：OptionExplicitDimiAsInteger,ur1AsString,NAsIntegerPrivateSubCommand1_Click(IndexAsInteger)N=IndexSelectCaseNCase0Form2.ShowMe.HideCase1Form3.Sho

8、wMe.HideCase2Form4.ShowMe.HideCase3Form5.ShowMe.HideCase5Form6.ShowMe.HideEndSelectEndSubPrivateSubForm_Activate()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Me.Top