多重窗体程序设计与图形操作13.1与多重窗体程序设计有关的语句和方法Load语句说明装入窗体到内存：Load窗体名称说明：执行Load语句后，窗体并不显示出来，但可引用该窗体中的控件及各种属性。注意：这里的窗体名称是窗体的Name属性，而不是窗体的文件名，以下相同。Show方法说明：（1）它有两种可能值：vbModal（缺省）或vbModeless，参数表示从当前窗口或对话框切换到其他窗口或对话框之前用户必须采取的动作。当参数为vbModal时，要求用户必须对当前的窗口或对话框做出响应，才能切换到其他窗口。（2）如果要显示的窗体事先未装入，该方法会自动装入该窗体再显示。试比较下面两个程序的结果。‘Form2显示出来；在其关闭之前，后面的提示信息不会显示出来。只有关闭了form2时才会显示提示信息。PrivateSubForm_DblClick()Form2.ShowvbModalMsgBox"Test"EndSubPrivateSubForm_DblClick()Form2.ShowvbModelessMsgBox"Test"EndSubHide方法说明：当一个窗体从屏幕上隐去时，其Visible属性被设置成False，并且该窗体上的控件也变得不可访问，但对运行程序间的数据引用无影响。若要隐去的窗体没有装入，则Hide方法会装入该窗体但不显示。13.2多重窗体程序的执行在窗体的卸载过程的各阶段所用一的语句或方法以及所触发的事件如下图：指定启动窗体这是在一个工程里建立了四个窗口，其中一个为主窗口，单击按钮可以显示其它窗口内容。13.5图形操作13.5.1图形操作基础坐标度量单位由容器对象的ScaleMode属性决定，ScaleMode属性设置如下表：自定义坐标系[例13.2]本例用窗体内两个命令按钮的单击事件说明用Scale方法改变坐标系统后产生的影响，命令Line（0，0）-（1500，1500）表示从坐标原点到（1500，1500）画一根直线。PrivateSubCommand1_Click()ClsForm1.Scale’采用缺省坐标系Line(0,0)-(1500,1500)EndSubCommandl_Click事件采用缺省坐标系,坐标原点在窗体的左上角,此时,Height=3600,Width＝4800,ScaleHeight＝3195,ScaleWidth＝4680（twip）PrivateSubCommand2_Click()ClsForm1.Scale(0,1500)-(1500,0)’定义用户坐标系Line(0,0)-(1500,1500)EndSubCommand2_Click事件定义用户坐标系,坐标原点在窗体的左下角,X轴的正向向左,Y轴的正向向上,窗体的左上角坐标为（0,1500）,右下角坐标为（1500,0）。此时,Height=3600,Width=4800，ScaleHeight=-1500，ScaleWidth＝1500（twip）。程序运行后,单击Commandl,结果如图中左图所示,单击Command2,结果如图中右图所示。图:改变坐标系产生的影响图形层图形层使用VB颜色表--QBColor函数可选择的颜色BorderStyle属性BorderWidth属性DrawMode属性DrawMode属性DrawStyle属性DrawWidth属性FillColor属性FillStyle属性13.5.3图形控件PictureBox控件（图片框）Image控件（图像框）Line控件（线条）Shape控件（形状）Shape控件（形状）[例133]本例显示Shape控件的6种形状，如图所示。PrivateSubForm_Activate()DimiAsIntegerPrint"012345"Shape1(0).Shape=0:Shape1(i).FillStyle=2Fori=1To5LoadShape1(i)Shape1(i).Left=Shape1(i-1).Left+750Shape1(i).Shape=iShape1(i).FillStyle=i+2Shape1(i).Visible=TrueNextiEndSub图形控件的使用设计时添加图片运行时添加图片运行时删除图片13.5.3图形方法Cls方法Pset方法[例13.4]如下图电子贺年卡。使用Pset方法在窗体上画100个大小不同的随机点，点的颜色也随机变化。PrivateSubCommand1_Click()DimMAsStringDimX0,Y0,IAsIntegerScaleMode=0FontSize=24M="新年快乐!"IfComman