第14章多窗体程序设计

第14章多窗体程序设计人民邮电出版社21世纪高等学校计算机基础教育系列教材建立多窗体应用程序多窗体程序设计相关的语句：Load语句Unload语句Show语句Hide语句多窗体的执行与应用详细举例完成可调用程序代码（form1）PrivateSubCommand1_Click()Form2.ShowMe.HideEndSubPrivateSubCommand2_Click()Form3.ShowMe.HideEndSubPrivateSubCommand3_Click()Form4.ShowMe.HideEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)StaticiAsIntegeri=i+1IfiMod10=0ThenPrintChr$(KeyCode);"---";Hex$(KeyCode);"";Print:PrintElseIfKeyCode=13Theni=0Print:Print:PrintElsePrintChr$(KeyCode);"---";Hex$(KeyCode);"";EndIfEndSub程序代码（form2）DimpaintnowAsBooleanPrivateSubCommand1_Click()Form1.ShowUnloadMeEndSubPrivateSubForm_DblClick()ClsEndSubPrivateSubForm_Load()DrawWidth=4ForeColor=RGB(255,0,0)EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)paintnow=TrueEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfpaintnowThenPSet(X,Y)EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)paintnow=FalseEndSubDimtraceAsBooleanPrivateSubCommand1_Click()Form1.ShowUnloadMeEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)r=Rnd*800Ifr<200Thenr=200trace=TrueCircle(X,Y),rEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)trace=FalseEndSub程序代码（form3）PrivateSubCommand1_Click()Form1.ShowUnloadMeEndSubPrivateSubForm_Click()MouseIcon=LoadPicture("f:\djks\ppt\on.ico")EndSubPrivateSubPicture1_Click()picture1.Picture=LoadPicture("f:\djks\ppt\hn.jpg")EndSub程序代码（form4）多窗体程序的保存与执行设置工程的启动窗体，如果没有启动窗体或过程的话，工程将无法运行，执行方法如下：工程工程1属性，打开如下窗口，在其中选择启动对象。保存多窗体：在新建工程中直接保存即可（要同时保存工程和窗体）装入工程，打开工程即可，无须每个窗体打开一次。工程的扩展名vbp窗体的扩展名frm

注意：可以从最新和现存中选择，以最快速度地找到你的工程文件Visualbasic工程结构包括标准模块、窗体模块和submain过程如：下列选项中，不属于vb主要模块的是：A标准模块C工程模块B窗体模块D类模块答案是：完整的应用程序的组成：结构图工程组V