Ch8-绘图方法与图形控.ppt

Visual Basic程序设计 第8章 绘图方法与图形控件 Visual BASIC 程序设计 主要内容 n绘图方法： nPSet nLine nCircle nPrint nCls n图形控件： nShape形状 nLine直线 有关问题： n”画板“：窗体、图 片框 n坐标系： n坐标轴 n度量单位 n自定义坐标系 n与绘图有关的属性 Visual BASIC 程序设计 坐标系 n单位：Twip(缇)=1/1440 英 寸 默认： ScaleMode属性 0自定义 1缇 2磅(1”/72) 3像素 4字符 5英寸 6毫米 7厘米 Visual BASIC 程序设计 自定义坐标系 n使用Scale语句： Scale (x1,y1)- (x2,y2) 例 Scale (-4,2)-(4,-2) n始终有： Scalewidth=x2-x1 ScaleHeight=y2-y1 均可能为负！ (0,0) - 4 4 -2 2 Visual BASIC 程序设计 “画板”及其与绘图有关的属性 n画板：窗体、图片框或打印机 n坐标属性 nScaleLeft 、 ScaleTop 左上角坐标 nScaleWidth、ScaleHeight 宽度和高度 nCurrentX、CurrentY 当前坐标 nAutoRedraw 自动重画 nDrawWidth 线条宽度 nDrawStyle 线条虚实样式 nFillColor 填充色，FillStyle 填充样式 若DrawWidth1，则 DrawStyle不起作用。 Visual BASIC 程序设计 DrawStyle 属性 n常数 设置值 描述 nVbSolid 0 （缺省值）实 线 nVbDash 1 虚线 nVbDot 2 点线 nVbDashDot 3 点划线 nVbDashDotDot 4 双点划线 nVbInvisible 5 无线 nVbInsideSolid 6 内收实线 Visual BASIC 程序设计 DrawMode属性 DrawMode 的设 置值决定运行时所 画图形的颜色与其 背景颜色的合成效 果。 1 Blackness 2 Not Merge Pen 3 Mask Not Pen 4 Not Copy Pen 5 Mask Pen Not 6 Invert 7 Xor Pen 8 Not Mask Pen 9 Mask Pen 10 Not Xor Pen 11 Nop 12 Merge Not pen 13 Copy Pen 14 Merge Pen Not 15 Merge Pen 16 Whiteness Visual BASIC 程序设计 画点方法 PSet n格式： 对象名.Pset Step (x,y) ,颜色 n例如，在点(300,500)画一红点: Pset (300,500),vbRed nStep 表示使用相对坐标即： CurrentX=CurrentX+x CurrentY=CurrentY+y 然后画点 n点的大小由DrawWidth属性决定。例如： DrawWidth = 3 例1 例2 Visual BASIC 程序设计 画直线方法 Line n格式： Line Step (x1,y1)-Step(x2,y2) ,颜色 ,BF 其中： nStep 表示使用相对坐标 n起点坐标(x1,y1)的缺省值为 (CurrentX,CurrentY) n终点坐标(x2,y2)不能省。 n选择“B”将画出一个以(x1,y1)和(x2,y2) 为对角 线的矩形。 如果再选择“F”，则以指定的颜色填充。 例：Line (0,0)-(100,50),vbBlue 画一条蓝线 Visual BASIC 程序设计 例8.1：画曲线 单击窗体时，画出黑色坐标轴和一条红色正弦 曲线。曲线逐点画出。代码： Const pi = 3.1415926 Private Sub Form_Click() Dim x As Double 定义坐标系 Scale (-8, 3)-(8, -3) Line (-7, 0)-(7, 0) 画x轴 Print “X“ Line (0, -2.5)-(0, 2.5) 画y轴 Print “ Y“ PSet (0, 0) 画笔到原点 Print “(0,0)“ 打印原点标记 画正弦曲线 For x = -2 * pi To 2 * pi Step pi / 1000 PSet (x, 2 * Sin(x), vbRed Next x End Sub Visual BASIC 程序设计 画圆或椭圆 n格式： 对象名.Circle Step, , n说明：起点、终点用于画弧(弧度)，比例用于 画椭圆。起点、终点为负时，画出与圆心连线。 n例如： PictureBox1.Circle (0,0),100,vbBlue,0.5 画一个蓝色椭圆 Visual BASIC 程序设计 Cls（清除）方法 n用于清除用画图方法画出的图形和用Print 语 句打印的信息 n语句格式：对象名.Cls 例如：me.Cls Picture1.Cls n注意：如果AutoRedraw=False,则Cls方法不能 清除在AutoRedraw为True时所产生的图形和打 印的信息。 Visual BASIC 程序设计 颜色及有关函数 n颜色值用长整型数表示，如： 蓝色：&H00FF0000& 绿色：&H0000FF00& 红色：&H000000FF& n内置颜色函数： RGB(red,green,blue) red,green,blue: 0255 QBColor(n) n=0,1,2,15 n颜色常量： Visual BASIC 程序设计 Shape形状控件的主要属性 nShape属性：决定6种形状之一 nFillStyle属性：决定填充的图案 nBorderStyle属性：决定边界线的虚实 nFillColor：填充色，BorderColor：边框色 nBorderWidth：边框宽度。如宽度1，则边界 只能是实线。 Visual BASIC 程序设计 例8.2：生蛋 Dim n As Integer, sh As Shape 按钮 Private Sub Command1_Click() If n 0 Then Unload Shape1(n) 吃掉一个 n = n - 1 Else MsgBox “只剩下一个种蛋，不能再吃了！“ End If End Sub Visual BASIC 程序设计 点击窗体 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) n = n + 1 Load Shape1 (n) 生下一个 Shape1 (n).Visible = True Shape1 (n).Zorder 0 放到最前面 中心移动到鼠标单击处 Shape1 (n).Move x,y End Sub Visual BASIC 程序设计 Line（直线）控件的主要属性 nX1,Y1 起点坐标 nX2,Y2 终点坐标 nBorderWidth 线条宽度 nBorderStyle 线条虚实样式 如BorderWidth 1，则BorderStyle不起作用， 只能是实线。 nBorderColor 线条颜色 注意：在运行时想改变直线的位置，应改变其 端点的坐标。Line 没有 Left 和 Top 属性 Visual BASIC 程序设计 例8.3：小钟 1、时钟3根指针用3个直线控件，起点都在中心 位置，终点位置根据系统时间计算。 2、为了使指针