VB图形操作与多文档窗体.ppt

,6.1绘图板,6.2电子相册,6.3知识进阶,第六章图形操作与多文档窗体,本章要点,常用的作图方法图形控件多文档窗体的使用,1、项目界面展示,6.1绘图板,2、项目分析,本项目实例主要运用了VB6.0的Line、Circle、Pset方法来画出各种图形。并用两个标签的背景色来标明当前绘图区域的前景色和填充色，单击标签时弹出颜色对话框，来选择前景色和填充色。利用3个组合框设置“线型”、“线宽”、“填充样式”。,6.1绘图板,3、项目实现,程序界面的设计界面对象属性设置编写对象事件过程代码,6.1绘图板,4、相关知识点,4.1坐标系统概述,每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。,6.1绘图板,包括5个属性（ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight、ScaleMode）1个方法（Scale）ScaleTop、ScaleLeft属性用于控制容器对象左边和顶端的坐标，根据这两个属性值可形成坐标原点。,一、使用默认的刻度,4、相关知识点,6.1绘图板,坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。,4、相关知识点,6.1绘图板,二、自定义坐标系,4、相关知识点,语法格式：对象名.Scale(x1,y1)-(x2,y2),6.1绘图板,1.用AutoRedraw创建持久的图形,每个窗体和图片框都具有AutoRedraw属性。（1）当AutoRedraw为默认值False时，VB会把图形输出到屏幕，而不输出到内存。（2）当AutoRedraw为True时，VB会把图形输出并保存在内存中。,注意：运行时，只有当AutoRedraw为True时，才可以用Cls方法清除。,举例:,4.2使用VisualBasic作图,4、相关知识点,6.1绘图板,2、使用CurrentX、CurrentY设置当前坐标（1）窗体或图形框或打印机的CurrentX、CurrentY属性给出这些对象在绘图时的当前坐标。（2）这两个属性在设计阶段不能使用。当坐标系确定后，坐标值(x，y)表示对象上的绝对坐标位置。（3）如果坐标值前加上关键字Step，则坐标值(x，y)表示对象上的相对坐标位置，即从当前坐标分别平移x、y个单位，其绝对坐标值为(CurrentX+x，CurrentY+y)（4）使用CLS方法后，CurrentX、CurrentY属性值为0。,4、相关知识点,6.1绘图板,3、用DrawWidth和DrawStyle属性设置线宽与线型窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值为1。例6.2用DrawWidth属性改变直线宽度。,4、相关知识点,6.1绘图板,窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。,注意：只有当DrawWidth设置为1时，DrawStyle属性才会产生如上图所示的各种效果。,4、相关知识点,6.1绘图板,4、填充与色彩由Fillstyle、Fillcolor这两个属性决定封闭图形的填充方式。（1）Fillcolor指定填充图案的颜色，默认的颜色与Forecolor相同。（2）FillStyle属性取值07，用来指定填充的图案，共有8种内部图案。,注意：如果FillStyle设置为1（透明），则忽略FillColor属性，但Form对象除外。,4、相关知识点,6.1绘图板,4、相关知识点,三个重点内容（方法）,点、线、圆,6.1绘图板,1、画点（Pset方法）,例：1.Pset(500,1000),RGB(255,0,0)2.Pset(500,1000),BackColor擦除该点,格式：对象.Pset(x,y),Color,参数说明:（X,Y）:确定画点的位置单精度,可以是常量或变量和表达式Color:设置点的颜色缺省时,点的颜色为ForeColor,4、相关知识点,6.1绘图板,2、项目实例实现（演示）,Fori=-180To180Step0.01Picture1.PSet(i/50,5*Sin(i*3.14/180)Nexti,4、相关知识点,用点画正弦曲线,6.1绘图板,直线格式：对象.LineStep(x1,y1)-Step(x2,y2),Color,参数说明:（X1,Y1）:画线的起点,省略:当前坐标为起始坐标。（X2,Y2）:直线的终点Color:设置直线的颜色缺省时,为ForeColorStep:表示后面的坐标相对于当前坐标的偏移量,4、相关知识点,2、画线（line方法）,6.1绘图板,举例:PrivateSubCommand1_Click()Line(1000,1000)-(2000,2000)Line-(300,3000)Picture1.Line(100,500)-Step(2000,2000)Picture1.Line(1500,1500)-Step(200,200),vbBlueEndSub,如何改变直线的粗细和线型?,DrawWidth属性:指定线的宽度(以磅为单位）。DrawStyle属性:指定线型。,4、相关知识点,6.1绘图板,矩形格式：对象.LineStep(x1,y1)-Step(x2,y2),Color,BF,参数说明:（X1,Y1）:矩形的左上角点,省略:当前坐标的为起始坐标,（X2,Y2）:矩形的右下角点B：表示画一个矩形;F：表示画一个实心的矩形,这时忽略Fillcolor和FillStyle属性,注意：有B参数才能使用F,例1：PrivateSubCommand1_Click()Line(500,500)-Step(1000,0)Line-Step(0,1000)Line-Step(-1000,0)Line-Step(0,-1000)Line(500,500)-Step(1000,1000),BFEndSub,4、相关知识点,6.1绘图板,怎样在窗体上绘制一幅颜色、大小各不相同的彩环？,效果如图,4、相关知识点,6.1绘图板,格式：对象.CircleStep(x,y),半径,Color,起始角,终止角,纵横比,参数说明:,起始角和终止角：取值在0时为圆弧。如果起始角的绝对值大于终止角的绝对值，则画一个角度大于180的圆弧；如果为负数，则画出扇形。,3、画圆（circle方法）,4、相关知识点,6.1绘图板,4、相关知识点,6.1绘图板,PrivateSubCommand1_Click()X=Form1.WidthY=Form1.HeightForI=1To10R=Rnd*Y*0.1Circle(X*Rnd,Y*Rnd),R,QBColor(I)NextIEndSub,（3）画圆代码实现（演示）,4、相关知识点,6.1绘图板,4、相关知识点,4.3鼠标事件,6.1绘图板,4、相关知识点,4.3鼠标事件,利用鼠标事件完成简单的绘图板,6.1绘图板,4、相关知识点,4.3鼠标事件,PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)CurrentX=XCurrentY=YEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenLine-(X,Y)EndSub,绘图板的代码,6.1绘图板,6.2电子相册,1、项目目标,本项目实例主要任务是设计完成“休闲娱乐”中的“电子相册”界面，单击“新建”菜单，打开一个通用对话框，选择一个图片文件后，产生一个新的子窗体，并在子窗体上显示图片；通过选择“层叠”、“平铺”、“排列”菜单会使打开的多个子窗口进行相应方式的排列。,6.2电子相册,2、项目分析,本项目实例主要运用了VB6.0的MDI窗体的相关知识。在窗体上添加菜单栏，然后建立一个子窗体作为模板，并按相应模式排列窗体。,6.2电子相册,3、项目实现,1.程序界面设计和属性设置,（1）建立MDI窗体。选择“工程”“添加MDI窗体”。添加一个MDI窗体，新建的MDI窗体名称为“MDIForm1”，Caption属性为“相册”。（2）在MDI窗体中添加菜单栏，4个菜单项分别为“新建”、“层叠”、“平铺”、“排列”。（3）在工程中添加新窗体Form14，设置Form14的Caption属性为“相册”，MDIChild属性为“True”。,6.2电子相册,3、项目实现,2.编写对象事件过程代码,6.2电子相册,4、相关知识,多文档界面（MultipleDocumentInterface，即MDI）与多重窗体不是一个概念。多重窗体程序中的各个窗体是彼此独立的。MDI虽然也可以含有多个窗体，但它有一个父窗体，其他窗体（子窗体）都在父窗体内。,1、什么是多文档界面？,6.2电子相册,4、相关知识,2、多文档界面有如下特性：,(1)所有子窗体均显示在MDI窗体的工作区中。用户可改变、移动子窗体的大小，但被限制在MDI窗体中。(2)当最小化子窗体时，它的图标显示于MDI窗体上而不是在任务栏中。当最小化MDI窗体时，所有的子窗体也被最小化，只有MDI窗体图标出现在任务栏中。(3)当最大化一个子窗体时，它的标题与MDI窗体的标题一起显示在MDI窗体的标题栏上。(4)MDI窗体和子窗体都可以有各自的菜单，当子窗体加载时覆盖MDI窗体的菜单。,6.2电子相册,4、相关知识,3、创建和设计MDI窗体及其子窗体开发多文档界面的一个应用程序至少需要两个窗体：一个(只能一个)MDI窗体和一个(或若干个)子窗体。在不同窗体中共用的过程、变量应存放在标准模块中。,添加MDI窗体选择“工程”菜单中的“添加MDI窗体”命令，然后从相应的对话框中选择“MDI窗体”，再单击“打开”按钮。这样就添加了一个MDI窗体。,6.2电子相册,对子窗体或子窗体图标的层叠、平铺和排列图标命令通常也放在“窗口菜单上，用Arrange方法来实现。Arrange方法的语法形式如下：排列方式取值如下：0-vbCascade：层叠所有非最小化MDI子窗体。1-vbTileHorizontal：水平平铺所有非最小化MDI子窗体。2-vbTileVertical：垂直平铺所有非最小化MDI子窗体。3-vbArrangeIcons：对任何已经最小化的子窗体排列图标。,4、相关知识,6.2电子相册,(1)活动子窗体和活动控件在VB中，提供了访问MDI窗体的两个属性，即ActiveForm和ActiveControl，前者表示具有焦点的或者最后被激活的子窗体，后者表示活动子窗体上具有焦点的控件。注意：当访问ActiveForm属性时，至少应有一个MDI子窗体被加载或可见，否则会返回一个错误。在代码中指定当前窗体的另一种方法是用Me关键字。用Me关键字来引用当前其代码正在运行的窗体。当需要把当前窗体实例的引用参数传递给过程时，这个关键字很有用。例如要关闭当前窗口，其语句为：UnloadMe,4、相关知识,6.2电子相册,(2)显示MDI窗体及其子窗体显示MDI窗体及其子窗体的方法是Show。加载子窗体时，其父窗体(MDI窗体)会自动加载并显示。而加载MDI窗体时，其子窗体并不会自动加载。,4、相关知识,MDI窗体有AutoShowChildren属性，决定是否自动显示子窗体。如果它被设置为True，则当改变子窗体的属性(如Caption等)后，会自动显示该子窗体，不再需要Show方法；如果设置AutoShowChildren为False，则改变子窗体的属性值后，不会自动显示该子窗体，子窗体处于隐藏状态，直至用Show方法把它们显示出来。MDI子窗体没有AutoShowChildren属性。,6.2电子相册,