VB程序设计第3版第11章.pptVIP

第11章 图 形 设 计 11.1 图形设计基础 11.1.1 坐标系统 1. 刻度单位：缺省刻度单位: 缇(Twip) 改变刻度单位: 对象名.ScaleMode = 属性值 2. 改变坐标系 1) ScaleLeft、ScaleTop属性 重定义对象的左上角坐标，改变坐标系的原点位置。 【例11-2】将一个图形(Shape1)的左上角移动到窗体的中央位置。 3. 当前坐标 CurrentX属性: 设置或返回的当前坐标的水平坐标 CurrentY属性: 设置或返回的当前坐标的垂直坐标 例如: 在点(200,200)处显示“当前坐标为(200,200)” Form1.CurrentX = 200 Form1.CurrentY = 200 Form1.Print 当前坐标为(200,200) 4. 与位置和大小有关的属性 11.1.2 颜色 11.2 图形控件 图形控件用于在对象（窗体、图片框）上绘制特定形状的图形，如圆、直线等。图形控件的属性，既可以在设计阶段设置，也可以在运行阶段由程序动态的改变。 11.2.1 Shape控件 1. 属性 Shape（见P228表11-4） BorderStyle BorderColor BorderWidth BackStyle BackColor FillStyle FillColor 2. Move方法 对象名.Move left[, top[, width[, height]]] 例：在窗体上移动一正方形，每次移动时使正方形的长和宽增加100缇。 Private Sub Command1_Click() Shape1.Move Shape1.Left + 100, Shape1.Top + 100, _ Shape1.Width + 100, _ Shape1.Height + 100 End Sub 11.2.2 Line控件 1. 作用 设计时在窗体上绘制直线。 2. 属性 BorderStyle（见P229表11-5） BorderWidth X1、X2、Y1 、Y2 BorderStyle属性 当BorderStyle属性为“0”（透明）时，将忽略BorderColor和BorderWidth属性的设置值。 当BorderWidth为1时，BorderStyle属性设置为1（实线）和6（内收实线）看上去效果相同。 【例11-4】设计一个简单的秒表。运行时，单击“开始”按钮开始移动秒针，单击“停止”按钮停止移动。 11.3 绘图方法 11.3.1 画点方法(Pset) 格式: [对象名.]PSet [Step] (x, y) [,颜色] 功能: 在对象指定位置，用指定的颜色画点 说明: 对象名：窗体、图片框、缺省为当前窗体。 Step ：指定相对于由 CurrentX 和 CurrentY 属性提供的当前位置的坐标。 (x, y) ：点的水平和垂直坐标。 颜色—绘制该点的 RGB 颜色。省略时使用“对象名” 的 ForeColor属性值。 【例11-7】用PSet方法在窗体上绘制一条如下图所示的星形曲线,曲线由以下参数方程决定: x=sin2t*cost y=sin2t*sint 其中t的取值范围为0≤t≤2π Private Sub Form_Click() Scale (-1, 1)-(1, -1) DrawWidth = 2 ForeColor = vbRed For t = 0 To 2 * 3.1415926 Step 0.001 x = Sin(2 * t) * Cos(t) y = Sin(2 * t) * Sin(t) PSet (x, y) Next t End Sub 11.3.2 画直线、矩形方法(Line) 格式: [对象名.]Line [Step][(x1, y1)]–[Step](x2, y2) [,颜色 [,B[F]]] 功能: 在指定两点之间用指定颜色画线或矩形 说明: 对象名：窗体、图片框，缺省为当前窗体Step：可选的，指定相对于由 Curren