Visual Basic 程序设计教程第12章 多媒体应用.pptVIP

1 默认坐标系 （0，0） 容器坐标系的默认设置为： 坐标原点设在容器的左上角，横向向右为X轴正向， 纵向向下为Y轴的正方向。 窗体高度Height=3600, 窗体宽度Width=4800 （单位为Twip,1 twip=1/20 磅） 一：图形设计基础 2 定义颜色 1）颜色常量 如：将窗体的背景色改为黄色。 Form1.BackColor=VbYellow 或 Form1.BackColor=HFFFF QBColor函数提供了16种颜色。 QBColor函数的使用格式：QBColor（C） 其中：C参数值是一个0~15之间的整数，分别对应16种颜色。 2） QBColor函数 3） RGB函数 RGB函数的使用格式：RGB（R，G，B） 其中：R，G，B三个参数值是0~255之间的整数，分别表示红色、绿色、蓝色，由这三种原色混合可以产生256×256×256种颜色。 如：将窗体的前景色改为黄色。 Form1.ForeColor=RGB（255，255，0） 3 图形控件 1） Line控件 BorderStyle属性的取值和对应的线型 2） Shape控件 shape控件的形状和底纹 Private Sub Form_Click() Dim i As Integer For i = 0 To 5 Shape1(i).Shape = i Shape1(i).FillStyle = i Next i End Sub 4 绘图方法 1） Line方法 Line方法的功能：绘制直线或矩形。 Line方法的使用格式： [对象.] Line [[Step] (x1,y1)] -[Step] (x2,y2) [，颜色][，B[F]] Private Sub Form_Click() Line (800, 600)-(4000, 600) Line (800, 1000)-(4000, 2500), RGB(0, 120, 0), BF End Sub 2) Circle方法 Circle方法的功能：绘制圆、椭圆、圆弧和扇形。 Circle方法的格式： [对象.] Circle [Step](x,y),半径[,颜色][,起始角][,终止角][,长短轴比率] Circle (1600, 1000), 500 ‘1圆 Circle (3000, 1000), 500, , -1, -5.1 ‘2扇形 Circle (1600, 2500), 500, , , , 2 ‘3椭圆 Circle (3000, 2500), 500, , -2, 0.7 ‘4圆弧 3) Pset方法 Pset方法的功能：画点。 Pset方法的使用格式：[对象.] Pset [Step](x,y) [,颜色] 格式说明：(x,y)为画点的坐标，其他参数与Line方法相同。 例1 用Pset方法绘制抛物线y= - x2 。 Private Sub Form_Click() Dim x As Single, y As Single Scale (-1800, -2500)-(2000, 1000) Line (-1800, 0)-(2000, 0) Line (0, -2500)-(0, 1000) For x = -800 To 800 Step 0.01 y = -1 / 300 * x * x PSet (x, y) Next x End Sub 坐标轴 抛物线 5 绘图属性 在默认情况下，第一次使用Print方法输出的文本显示在窗体的左上角。通过CurrentX和CurrentY属性可以指定当前坐标，但这两个属性在设计阶段不能使用。 当使用Cls方法后，CurrentX,CurrenY属性值为0。 1)当前坐标 例2 指定当前坐标输出文本内容。 程序一： 程序二： Private Sub Form_Click() Private Sub Form_Click() Dim i As Integer Dim i As Integer For i = 50 To 2000 Step 300 For i = 50 To 2000 Step 300 CurrentX = i：CurrentY = i Print 江南大学 Print 江南大学 Next i Next i End Sub End Sub   (a)程序一运行结果