[IT认证]计算机等级考试二级VB教程.ppt

第9章 图形处理及多媒体应用 掌握 窗体的ScaleMode属性 色彩常量，色彩函数 绘图控件：shape和line 绘图方法：Pset,Line,Circle,Cls 图片框，图像控件 鼠标事件：MouseDown,MouseUp,MouseMove 鼠标事件过程参数：Button,Shift,X,Y 计算机的绘图和动画是一件奇妙且引人入胜的主题，Visual Basic下的图象处理技术，包括绘图，色彩，动画，三维空间，虚拟现实，甚至计算机仿真的基础。听起来很诱人的东西往往需要大量不诱人的知识，本章是这些奇妙东西的入门。 　 VB可以利用绘图方法在窗体或某容器类对象上画图。也可以用绘图控件画图。 　 其多媒体控件可以让你感受动画、声音等。 可读系统由控件的ScaleMode属性设置的。ScaleMode的值有： ScaleMode值 意义 0 用户自定义 1 点素（Twip　即“特维”，缺省刻度） 2 点（Point） 3 象素（Pixel，这与屏幕分辨率有关） 4 字符（Character） 5 英寸（Inch） 6 毫米（Millimeter） 7 厘米（Centimeter） (1) 当前坐标 ? 对象：窗体、图形框等。 ? 属性：CurrentX、CurrentY，该属性设计阶段不可用 ? 绝对坐标 ：(x,y) ? 相对坐标：step ( x, y) (2) 线宽 ? 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。 DrawWidth属性以像素为单位来度量，最小值为1。 (3) 线型（DrawStyle） VB采用对象前景色（ForeColor）来绘图 ? RGB函数 格式：RGB（红，绿，蓝） 其中： 红、绿、蓝三基色的成分使用0~255之间的整数，共有 256×256×256种颜色 ? QBColor函数 格式：QBColor（颜色码） 其中： 颜色码使用0~15之间的整数，共有16色 例：Label1.forecolor=RGB(255,0,0) Label1.forecolor=vbred (1) Pset方法：用于画点 格式：[object.]Pset[Step](x,y)[,颜色] 其中：objec 是用于绘图板的“容器”对象名，如在本窗体画点，可以省去，(x,y)为点的坐标；Step表示采用采用相对坐标； 注：采用背景颜色可清除某个位置上的点。 例9-3在图片框上生成“天女散花” Option Explicit Private Sub Command1_Click() Dim i As Integer For i = 1 To 30000 Call draw Next i End Sub Private Sub Command2_Click() End End Sub Private Sub draw() Dim r As Integer, g As Integer, b As Integer Dim x As Single, y As Single Dim w As Integer, h As Integer Randomize r = Int(Rnd * 256) g = Int(Rnd * 256) b = Int(Rnd * 256) w = pic1.Width h = pic1.Height x = Int(Rnd * w) y = Int(Rnd * h) pic1.PSet (x, y), RGB(r, g, b) End Sub (2) Line方法：用于画直线或矩形 例9-4在窗体上画“三角形” Private Sub Command1_Click() Line (1500, 500)-(2500,750) Line -(1750, 1500) Line -(1500, 500) End Sub (3) Circle方法：用于画圆、椭圆、圆弧和扇形 例9-6在窗体上画出一个扇形、圆 Private Sub Form_Load() Const PI = 3.14159 Show Circle (2500, 1500), 1200, vbBlue, -PI, -PI/2 Cir