第五章图形设计.ppt

第五章 图形设计;坐 标 系 统 ;用户自定义坐标系统;说明： 1.当设置容器对象的ScaleMode属性值0，将使容器对象的ScaleLeft 和 ScaleTop 自动设置为0，ScaleHeight 和 ScaleWidth 的度量单位也将发生改变。 2.用ScaleMode属性只能改变刻度单位，不能改变坐标原点及坐标轴的方向。 ;2. 使用Scale属性建立自己的坐标系 第一：重新定义坐标原点 属性ScaleTop，ScaleLeft的值用于控制对象左上角坐标，所有对象的ScaleTop，ScaleLeft属性的缺省值为0，坐标原点在对象的左上角。 = N，表示将X轴向Y轴的负方向平移N个单位 ScaleTop = －N，表示X轴向Y轴的正方向平移N个单位 同样，ScaleLeft的设置值可向左或向右平移坐标系的Y轴。 ;X;;第三：利用Scale方法设置坐标系 [对象.]Scale[(x1,y1)-(x2,y2)] ; Shape控件可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。;Shape形状控件; Shape属性：设置其显示形状。 FillStyle属性：设置图形填充样式，可以构成不同的填充效果。 Fillcolor:设置图形填充色 Bordercolor:设置图形边框色 Borderwidth:设置图形边框宽度 ;Shape属性值;形状控件的FillStyle属性;Line直线控件;线条控件的主要属性： BorderStyle属性:设置线条的类型。 BorderWidth属性:设置线条的宽度，即线条的粗细。 BorderColor属性设置线条的颜色。;0 — 透明线 1 — 实心线 2 — 虚线 3 — 点线 4 — 点划线 5 — 点点相间的长划线 6 — 内部实线 ;使用绘图方法绘图;Pset方法： 在指定位置用指定颜色画点。其语法格式如下： [对象]．Pset [Step] (X,Y) [颜色] 其中： Step：可选参数，使用此参数表明所画的点位于相对当前坐标点的(X，Y)处；缺省时,(X，Y)为点相对于当前坐标系的的位置坐标； Co1or：参数可选，用于设置点的颜色。;图形颜色;一、使用RGB函数 RGB函数可返回一个Long整数，用来表示一个RGB颜色值。其使用格式如下： RGB(red, green, blue) 说明： red, green, blue3种颜色，从0～255之间的一个亮度值(0表示亮度最低，而255表示亮度最高)。 例：Form1.BackColor = RGB(255, 0, 0) 设定背景红色 ;二、使用QBColor函数 QBColor函数可返回一个Long值，用来表示所对应颜色值的RGB颜色码。其使???格式如下： QBColor(color) 说明： color参数是一个界于0～15的整型数，分别代表16种颜色。0-黑，1-蓝，2-绿，3-青，4-红，等等。 ;三、使用系统定义的颜色常数 在VB系统中已经预先定义了常用颜色的颜色常数，如常数vbRed就代表红色，vbGreen代表绿色等等。可在“对象浏览器”中查询常数列表。;四、直接使用颜色设置值 用十六进制数指定颜色的格式为： HBBGGRR 其中，BB指定蓝颜色的值，GG指定绿颜色的值，RR指定红色的值。每个数段都是两位十六进制数，即从00～FF。 例如， Form1.BackColor = HFF0000 它相当于： Form1.BackColor = RGB(0, 0, 255) ;例：颜色的渐变过程。 Private Sub Form_Click() Dim j As Integer Dim x As Single Dim y As Single y = Form1.ScaleHeight x = Form1.ScaleWidth sp = 255 / y For j = 0 To y Line(0,j)-(x,j),RGB(j*sp,j*sp,j*sp) Next j End Sub;例：随机产生多条彩色射线。 Private Sub Form_Click() Dim i%, x%, y% Form1.Scale (-100, 100)-(100, -100) For i = 1 To 100 x = 100 * Rnd If Rnd 0.5 Then x = -x y = 100 * Rnd If Rnd 0.5 Then y = -y