Ch8-绘图方法与图形控件.pptVIP

Visual Basic程序设计第8章绘图方法与图形控件 主要内容 绘图方法： PSet Line Circle Print Cls 图形控件： Shape 形状 Line 直线 有关问题： ”画板“：窗体、图片框 坐标系： 坐标轴 度量单位 自定义坐标系 与绘图有关的属性 坐标系 单位：Twip(缇)=1/1440 英寸 自定义坐标系 使用Scale语句： Scale (x1,y1)-(x2,y2)例 Scale (-4,2)-(4,-2) “画板”及其与绘图有关的属性 画板：窗体、图片框或打印机 坐标属性 ScaleLeft 、 ScaleTop －左上角坐标 ScaleWidth、ScaleHeight － 宽度和高度 CurrentX、CurrentY － 当前坐标 AutoRedraw －自动重画 DrawWidth － 线条宽度 DrawStyle － 线条虚实样式 FillColor －填充色，FillStyle －填充样式 DrawStyle 属性 常数 设置值 描述 VbSolid 0 （缺省值）实线 VbDash 1 虚线 VbDot 2 点线 VbDashDot 3 点划线 VbDashDotDot 4 双点划线 VbInvisible 5 无线 VbInsideSolid 6 内收实线 DrawMode属性 DrawMode 的设置值决定运行时所画图形的颜色与其背景颜色的合成效果。 画点方法 PSet 格式：[对象名.]Pset [Step] (x,y) [,颜色] 例如，在点(300,500)画一红点: Pset (300,500),vbRed Step 表示使用相对坐标即： CurrentX=CurrentX+x CurrentY=CurrentY+y 然后画点 点的大小由DrawWidth属性决定。例如： DrawWidth = 3 画直线方法 Line 格式： Line [Step] [(x1,y1)]-[Step](x2,y2) [,颜色] [,B[F]] 其中： Step 表示使用相对坐标 起点坐标(x1,y1)的缺省值为(CurrentX,CurrentY) 终点坐标(x2,y2)不能省。 选择“B”将画出一个以(x1,y1)和(x2,y2) 为对角线的矩形。如果再选择“F”，则以指定的颜色填充。 例：Line (0,0)-(100,50),vbBlue 画一条蓝线 例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) 打印原点标记 画圆或椭圆 格式： [对象名.]Circle [Step]圆心坐标,半径 [,颜色,起点,终点,比例] 说明：起点、终点用于画弧(弧度)，比例用于画椭圆。起点、终点为负时，画出与圆心连线。 例如： PictureBox1.Circle (0,0),100,vbBlue,,,0.5 画一个蓝色椭圆 Cls（清除）方法 用于清除用画图方法画出的图形和用Print 语句打印的信息 语句格式：对象名.Cls例如：me.Cls Picture1.Cls 注意：如果AutoRedraw=False,则Cls方法不能清除在AutoRedraw为True时所产生的图形和打印的信息。 颜色及有关函数 颜色值用长整型数表示，如： 蓝色：H00FF0000 绿色：H0000FF00 红色：H000000FF 内置颜色函数： RGB(red,green,blue) red,green,blue: 0~255 QBColor(n) n=0,1,2,…,15 颜色常量： Shape－形状控件的主要属性 Shape属性：决定6种形状之一 Fill