1、 FillStyle为0是实填充，1为透明方式。填充图案的颜色由FillColor属性来决定。 对于窗体和图片框对象，FillStyle 属性设置后，并不能看到其填充效果，而只能在使用Circle 和 Line 图形方法生成的圆和方框时，在圆和方框中显示其填充效果。二、FillColor属性用于设置填充形状的颜色，缺省情况下，FillColor设置为0（黑色）。 11.2.4 AutoRedraw属性AutoRedraw属性设置和返回对象或控件是否能自动重绘。若值为True，使Form对象或PictureBox控件的自动重绘有效,图形和文本输出到屏幕，并存储在内存中，该对象不接受绘制事件（Pa
2、int事件）。 重绘：当改变对象大小或隐藏在另一个对象后又重新显示的情况下，重新将以前使用Print方法输出的文本信息和绘图方法绘制的图形显示出来。11.2.5 图形颜色在Visual Basic系统中，所有的颜色属性都由一个Long整数表示。在代码中可使用4种方式给颜色赋值： 使用RGB函数 使用QBColor函数，选择16种Qbasic颜色中的一种。 使用系统提供的颜色常数。 直接使用Long型颜色值。 一、使用RGB函数RGB函数可返回一个Long整数，用来表示一个RGB颜色值。格式：RGB(red, green, blue)说明： 可以用RGB函数来指定任何颜色，因为每一种可视的颜色，
3、都是由red，green，blue(红、绿、蓝)3种颜色组合产生，对每种颜色赋给从0255之间的一个亮度值(0表示亮度最低，而255表示亮度最高)。例如：Form1.BackColor=RGB(255, 0, 0) 设定背景为红色二、使用QBColor函数QBColor函数可返回一个Long值，用来表示所对应颜色值的RGB颜色码。格式：QBColor(color) 说明： color参数是一个界于015的整型数，分别代表16种颜色，其中：0黑色1蓝色2绿色3青色4红色5紫红色6黄色7浅灰色815为07颜色加亮。 三、使用系统定义的颜色常数在VB系统中已经预先定义了常用颜色的颜色常数，如常数vb
4、Red就代表红色，vbGreen代表绿色等等。可在“对象浏览器”中查询常数列表。VbBlack：黑色VbRed：红色VbGreen：绿色VbYellow：黄色VbBlue：蓝色VbMagenta：洋红色VbCyan：青色VbWhite：白色例如，要将窗体的背景色设为红色。则可使用如下语句：Form1.BackColor=vbRed四、直接使用颜色设置值用十六进制数指定颜色的格式为：&HBBGGRR其中，BB指定蓝颜色的值，GG指定绿颜色的值，RR指定红颜色的值。每个数段都是两位十六进制数，即从00FF。例如：Form1.BackColor=&HFF0000它相当于：Form1.BackColo
5、r=RGB(0, 0, 255)11.3.1 图片框控件PictureBox和图像框控件Image在设计Windows应用程序的用户界面时，如果适当地加入一些图形，会使界面丰富多彩。人们往往事先制作好一些图形，并把它们以文件的形式存储在磁盘或光盘中。VB提供了图片框（PictureBox）工具和图像框(Image) 工具。它们都是VB工具箱中的控件。图片框图标为，图像框图标为。图片框控件（PictureBox）和图像框控件（Image）主要支持以下格式的图形文件。1、位图(bitmap)：位图通常以.bmp或.dib为文件扩展名。2、图标(icon)：以.ico为文件扩展名。3、元文件(met
6、afile)：元文件的类型有两种，分别是标准型（.wmf）和增强型（.emf）。4、JPEG文件：JPEG是一种支持 8 位和 24 位颜色的压缩位图格式。它是 Internet 上一种流行的文件格式。5、GIF文件：GIF是一种压缩位图格式。它可支持多达 256 种的颜色，是 Internet 上一种流行的文件格式。一、图片框控件PictureBox（一）图形文件的加载1、在设计阶段加载 可以用属性窗口中的Picture属性装入图形文件。 利用剪贴板把图形粘贴到图片框中。2、在运行期间加载在运行期间，可以用LoadPicture函数把图形文件装入图片框中。格式：对象名.Picture=Loa
7、dPicture（filename）其中： filename为包含全路径名或有效路径名的图片文件名。例如：Picture1.Picture=LoadPicture(c:ProgramFilesMicrosoftOffice Clipart Popular clock.wmf)可以把一个图元文件加载到名为Picture1的图片框中。如果图片框中已有图形，则被新装入的图形覆盖。图片框中的图形也可以用LoadPicture函数删除，只要用一个“空”图形覆盖原来的图形就能实现。（二）图形文件的保存图形文件的保存，可以使用SavePicture语句。格式：SavePicture 对象名.Picture|
8、Image, FileName 一般以BMP格式保的文件进行保存。但若图片框或图像框原来的格式为ICON或Meta格式，则保存时以原格式进行保存。二、图像框控件Image图像框（Image）也可以用来装入图形文件，具体的使用方法与图片框类似。既可以在设计阶段给Image控件的Picture属性赋值（赋以一个图形文件的名字），也可以在运行阶段通过LoadPicture函数装入图形文件。图像框控件与图片框控件的用法基本一致，但有以下区别：（一）图片框控件可以作为其它控件的容器，例如可以在图片框内画一个命令按钮。如果移动图片框，则命令按钮随之一起移动（命令按钮成为图片框的一个组成部分）。如果单独移动
9、命令按钮，只能在图片框范围内移动，不能移到图片框外去。而图像框控件不行。（二）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。（三）图像框比图片框占用的内存少，显示速度快。在用图像框控件与图片框控件都能满足需要的情况下，应优先考虑使用图像框控件。三、两个重要属性（一）AutoSize属性该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）。（二）stretch 属性用于图像框。当该属性的取值为False
10、时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。【例】将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变大小。用户设计界面如图11-9所示。图11-9Private Sub Command1_Click()Image1.Left=Image1.Left-Image1.Width / 2Image1.Width=Image1.Width * 2End SubPrivate Sub Command2_Click()Image1.Left=2325Image1.Top=600Image1.Hei
11、ght=1515Image1.Width=1515End SubPrivate Sub Command3_Click()Image1.Left=Image1.Left-Image1.Width / 2Image1.Height=Image1.Height*2Image1.Width=Image1.Width*2End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()Image1.Picture=LoadPicture(C:Program FilesCommon FilesMicrosoft SharedClipar
12、tcagcat50AN02097_.WMF)End Sub单击“改变高和宽”按钮，结果如图11-10所示。图11-1011.3.2 形状控件Shape使用Shape控件可在窗体、框架或图片框中创建矩形、正方形、椭圆形、圆形、圆角矩形或圆角正方形等图形。一、属性Shape控件预定义形状是由Shape属性的取值决定的。Shape控件的Shape属性、FillStyle属性、BackColor属性、FillColor属性取不同值对应的形状如图11-11所示。图11-11程序代码如下：Private Sub cmdcolor_Click()For i=0 To 5shape1(i).FillStyle
13、=1shape1(i).BackStyle=1shape1(i).BackColor=QBColor(i)Label1(i).Caption=i=&Str(i)Next iEnd SubPrivate Sub cmdexit_Click()EndEnd SubPrivate Sub cmdfill_Click()For i=0 To 5shape1(i).FillStyle=i+2Label1(i).Caption=i=&Str(i+2)Next iEnd SubPrivate Sub cmdshape_Click()For i=0 To 5shape1(i).Shape=iLabel1(i)
14、.Caption=i=&Str(i)Next iEnd Sub 二、Move方法格式：对象名.Move left, top, width, height【例】在窗体上移动一正方形，每次移动时使正方形的长和宽增加100缇。代码如下：Private Sub Command1_Click()Shape1.Move Shape1.Left+100, Shape1.Top+100,_Shape1.Width+100, Shape1.Height+100End Sub11.3.3 直线控件Line一、作用设计时在窗体上绘制直线。利用线与形状控件，用户可以迅速地显示简单的线与形状或将之打印输出，与其他大部分
15、控件不同的是，这两种控件不会响应任何事件，它们只用来显示或打印。二、属性BorderStyle、BorderWidth、X1、X2、Y1、Y2。对于线控件来说，程序运行时最重要的属性是“X1”、“Y1”、“X2”、“Y2”属性，这些属性决定着线显示时的位置坐标，“X1”属性设置（或返回）了线的最左端水平位置坐标，“Y1”属性设置（或返回）了最左端垂直坐标，“X2”、“Y2”则表示右端的坐标。注意：运行时可以通过改变 X1、X2、Y1 和 Y2属性来移动它或者调整它的大小。而不能使用Move方法。【例】利用Line控件在图片框上画出八种类型的线，如图11-12所示。图11-12按钮“显示”的程序
16、代码如下：Private Sub Command2_Click()Picture1.BackColor=QBColor(0)For i=0 To 7Picture1.FillStyle=iPicture1.FillColor=QBColor(i+7)i1=i+1Picture1.Line (300*i1, 400*i1)-(110*i1,220*i1), QBColor(12), BNext iEnd Sub11.4.1 Pset方法用Pset方法能够在屏幕上画出一个点。例如：Pset (100，150)。上述语句的作用是在窗体上（100，150）处画出一个点。格式：.PSet Step (x
17、,y),功能：在对象的指定位置，用一定的颜色画点。说明： ：窗体、图片框、缺省为当前窗体。 Step：可选的，指定相对于由CurrentX和CurrentY属性提供的当前图形位置的坐标。 (x,y)：点的水平和垂直坐标。 ：绘制该点的RGB颜色。省略时使用的ForeColor属性值。【例】用PSet方法在窗体上绘制一条如图11-13所示的星形曲线,曲线由以下参数方程决定：图11-13程序代码如下：Private Sub Form_Click()Scale (-1,1)-(1,-1)DrawWidth=2ForeColor=vbRedFor t=0 To 2*3.1415926 Step 0.0
18、01x=Sin(2*t)*Cos(t)y=Sin(2*t)*Sin(t)PSet (x,y)Next tEnd Sub11.4.2 Line方法为了在两点之间绘制一条直线，除了使用直线控件外，VB还提供了Line方法。格式：.Line Step(x1, y1)-Step(x2, y2) , ,BF功能: 在指定两点之间用指定的颜色画线或矩形说明: ：窗体、图片框，缺省为当前窗体。 Step：可选的，指定相对于由CurrentX和CurrentY属性提供的当前位置的坐标，即从当前坐标移动相应的步长后所得的点为画线起点。 (x1, y1)：直线或矩形的起点坐标。如果省略，线起始于由CurrentX
19、和CurrentY指示的位置。 Step：可选的，指定相对于起点的终点坐标。 (x2, y2)：直线或矩形的终点坐标。 ：可选参数，指定画线的颜色，缺省取对象的前景颜色，即ForeColor。 B：利用对角坐标画出矩形。 F：规定矩形以矩形边框的颜色填充。注意：各参数可根据实际要求进行取舍，但如果舍去的是中间参数，参数的位置分隔符不能舍去。【例】画一条从(250,300)到(400,500)点的直线。Line (250,300)-(400,500) 【例】从当前位置（由CurrentX，CurrentY决定）画到(400,500)。Line(-400,500) 【例】出发点是(150,250)
20、，终点是向X轴正向走150，向Y轴正向走50的点。Line (150,250)-Step(150,50) 等同于：Line (150,250)-(300,300)【例】画一个左上角在(20,40)，右下角在(150,200)的矩形，注意在color参数省略时，逗号并不省略。Line (20,40)-(150,200),B 【例】用红色从(20,40)到(70,110)画一个实心的矩形。 Line (20,40)-Step (50,70),RGB(255,0,0),BF 【例】在窗体上以随机的颜色从外向里画矩形，每隔一秒画一个。程序代码如下：Dim X1, Y1, X2, Y2, DX, DYP
21、rivate Sub Form_Load()X1=0Y1=0X2=ScaleWidthY2=ScaleHeightDX=ScaleWidth/20DY=ScaleHeight/20DrawWidth=8RandomizeTimer1.Interval=1End SubPrivate Sub Timer1_Timer()If X1X2 And Y1Y2 ThenLine (X1,Y1)-(X2,Y2), QBColor(Int(Rnd*15), BX1=X1+DXY1=Y1+DYX2=X2-DXY2=Y2-DYElseTimer1.Enabled=FalseMsgBox 绘制完毕End IfEn
22、d Sub图11-1411.4.3 Circle方法Circle方法用于在指定对象上画圆、椭圆、圆弧和扇形。格式：.Circle Step(x,y),功能：在对象上画圆、椭圆或弧。说明： ：窗体、图片框。缺省为当前窗体。 Step：指定圆、椭圆或弧的中心相对坐标。 (x,y)：圆、椭圆或弧的中心坐标。 ：圆、椭圆或弧的半径。为最长轴的尺寸。 ：圆的轮廓颜色。省略则使用ForeColor值。 , ：以弧度为单位，范围-2p,2p。指定弧或扇形的起点和终点位置。起点的缺省值是0；终点的缺省值是2p。若为负数，在画弧的同时画圆心到弧端点的连线。 ：圆的纵横尺寸比。缺省值为1.0(标准圆)。注意：Ci
23、rcle 方法总是沿逆时针方向绘图。【例】在窗体上绘制如图11-15所示图形。图11-15程序代码如下：Private Sub Form_Click()FillStyle=0定义填充风格SolidScale (0,100)-(100,0)cx=50 圆心X坐标cy=0 圆心Y坐标r=60半径For i=45 To 130 Step 5If i Mod 100 ThenFillColor=vbRedElseFillColor=vbYellowEnd IfCircle (cx,cy),r, ,-i*3.1416/180,-(i+5)*3.1416/180Next iEnd Sub第十一章 图形操作
24、 本章主要教学内容总结 。 针对丰田章男社长坚持认为汽车的电子系统没有缺陷 ， 美国运输部长拉胡德力主不能排除 ， 就显示了美国与丰田为难到底的强硬立场。 但是 ， 在这次风波中 ， 丰田绝对不是无辜遭到美国打压 ， 而是在很大程度上咎由自取 。 一如丰田章男在听证会上承认的 ， 丰田业务发展过急 ， 忽略传统以安全为先的经营方针 。 其实 ， 发展业务过急 ， 就是要打败通用 ， 赢得世界龙头老大的位子 。 这个隐患 ， 在被称为成本杀手的渡边捷昭执掌丰田的五年时间里 ， 公司成本下降了 100亿美元，而大野耐一发明的丰田生产方式（ TPS)则在全球推广 ，美国人之外，中国人、印度人、英国人
25、、捷克人、澳大利亚人都在造丰田车 ， 丰田偏离了日本企业精神的核心 ， 那就是安全品牌第一 ， 消费者第一 。 丰田等日本品牌自所以扬威世界，就在于他们的认真负责，丰田在产品质量监管上出差错 ，投资参考 第 10页 3/1/10开利财经开利财经开利财经开利财经那绝对是 “ 自杀行为 ” 。在走向第一的过程中 ， 傲慢也成为常态 ， 大野十条训诫的最后一条 （ 即客户投诉是企业成功的最好契机 ， 不要抱怨 ， 不要逃避 ， 深入思考 ， 积极应对 ） 被丰田领导人丢在脑后 ， 日本企业强调诚信的精神丧失 ， 无视消费者投诉 ， 隐瞒错误 ，拖延处理 （ 如果有行贿官员 ， 问题更为严重 ） 成为常态 ， 因此被美国众议院能源与商业委员会负责调查和监督的小组委员会主席斥责为 “ 误导美国大众 ” 。丰 田 章 男 在 美 国 众 院 的 道 歉 能 否 挽 回 美 国 民 众 的 原 谅 和 信 任 ， 恐 怕 还 要 观察 ， 美国消费者对丰田的集体诉讼也刚开了头 。 通用与丰田的竞争已经成为辉煌的历史，两家全球最大汽车公司最后都导致了美国国会与政府某种程度的介入 ，写下了美日竞争历史的新一
