第十四章图形操作.PPTVIP

14.2坐标系统 2.使用QBColor设置颜色 例：绘制线宽大于1个像素的直线时，Visual Basic将线宽分布到指定坐标的两边。如果DrawStyle属性设置为6(内实线)，则整个形体(线、框、圆)画在指定坐标内部。 本程序代码利用Line方法在一个窗体上画坐标轴与坐标刻度： Dim x As Single Dim y As Single Private Sub Form_Load() Me.ScaleMode = 6 x = Me.ScaleWidth / 2 y = Me.ScaleHeight / 2 End Sub Private Sub Form_click() AutoRedraw = True Line (x, 0)-(x, Me.ScaleHeight), RGB(255, 0, 0) Line (0, y)-(Me.ScaleWidth, y), RGB(255, 0, 0) CurentX = x - 4 CurentY = y + 0.5 Print 0 For xt = -10 To 10 If xt 0 Then st = xt * 10 CurentX = x + st - 3 CurentY = y + 0.5 Print xt Line (x + st, y - 1)-(x + st, y), RGB(255, 0, 0) End If Next xt For yt = -5 To 7 If yt 0 Then st = yt * 10 CurentX = x - 4 CurentY = y + st - 1 Print yt Line (x, y + st)-(x + 1, y + st), RGB(255, 0, 0) End If Next yt End Sub 2. Circle方法 3. Pset方法 Pset方法用于返回指定点的RGB颜色，其语法格式如下： [对象.]Pset(x,y) [，Color] Visual Basic程序设计教学课件 课件制作：吴文斗 第14章 图形操作 线条控件 形状控件 图片框控件 图像控件 了解VB坐标系统 VB颜色设置 VB绘图方法 14.1 直线控件和形状控件 直线控件及其用途 在窗体上画出水平、垂直或斜线图形。 相关属性 X1、Y1和X2、Y2属性 BorderStyle属性 BorderWidth属性 BorderColor属性 一. X1、Y1和X2、Y2属性 X1、Y1和X2、Y2是线条控件画出的直线的位置属性，分别设置或返回直线的起点和终点坐标。 单位：twip。 设置方法： ?属性窗口 ?程序代码 二.BorderStyle属性 设置线条的样式。 取值：7种不同的线条样式。 0--Transparent：透明线条。 1--Solid(缺省)：实线。 2--Dash：虚线。 3--Dot：点线。 4--Dash_Dot：点划线。 5--Dash_Dot_Dot：双点划线。 6--Inside Solid：内部实线。 设置方法： 属性窗口 程序代码：线条控件名.BorderStyle = value 三.BorderWidth属性 设置直线的粗细(宽度)。单位：像素(pixel)。缺省值为1。 设置方法： 属性窗口 程序代码：线条控件名.BorderWidth = value 四.BorderColor属性 设置线的颜色。缺省值：黑色。 设置方法： 属性窗口，调用“调色板”。 程序代码，使用颜色函数： 　线条控件名.BorderColor = QBColor(value) 线条控件名.BorderColor = RGB(v1,v2,v3) 五.名称属性 设置线条控件的名字。在代码中标识该对象。 缺省值：Line1、Line2等。 实际值：以 lin 为前缀。 例：linLine 设置方法：只能在设计时间设置。 事件 线条控件不响应任何控件。 形状控件（Shape） 用途 使用形状控件在窗体上画出规范的图形， 如：矩形、正方形、园、椭园等。 相关属性 名称属性 Shape属性 BorderStyle属性 BorderColor属性 BorderWidth属性 FillColor属性 FillStyl