欢迎来到天天文库
浏览记录
ID:47863557
大小:5.87 MB
页数:18页
时间:2019-07-05
《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
此文档下载收益归作者所有