(中职）Visual Basic 6.0程序设计第5章ppt课件-【中职专用】《计算机类》同步教学课件

图形与图像 【实例20】 缤纷彩环 【实例21】 图形展示 【实例22】 沙滩赛车 【实例20】 缤纷彩环 案例效果 程序运行中，当鼠标在窗体上单击时会在窗体上绘制出若干个颜色、大小各不相同的彩色圆环 技术分析 1．图形坐标系统 （1）屏幕坐标系统与窗体坐标系统 （2）自定义坐标系统 2．绘图方法 （1）Print方法 （2）Pset方法 （3）Point方法 （4）Line方法 （5）Circle方法 （6）Cls方法 （7）Scale方法 （8）DrawWidth属性 （9）DrawMode属性 （10）DrawStyle属性 （11）FillColor属性 （12）FillStyle属性 （13）CurrentX 和CurrentY属性 操作步骤 1．创建程序界面 新建一个“标准 EXE”工程，设置窗体的Caption属性为“缤纷彩环”。 2．程序代码编辑 在程序代码编辑窗口输入以下的程序代码。 程序代码： Private Sub Form_Click() Dim i As Integer Dim cX As Integer, cY As Integer, cR As Integer For i = 1 To 10 '通过循环绘制10个圆形 Randomize cX = Rnd * 200 - 100 '获取圆心X坐标 cY = Rnd * 200 - 100 '获取圆心Y坐标 cR = Rnd * 20 + 5 '获取圆半径大小 Form1.DrawWidth = Int(Rnd * 10 + 1) '获取绘图线条宽度 Form1.Circle (cX, cY), cR, RGB(Rnd * 255, Rnd * 255, Rnd * 255)'画圆 Next End Sub Private Sub Form_DblClick() Form1.Cls '清除窗体所绘内容 End Sub Private Sub Form_Load() Form1.Scale (-100, -100)-(100, 100) '自定义坐标系统 End Sub 知识进阶 1．进阶实例——基本图形与函数图形 2．进阶实例——四度空间 思考练习 1．填空题 （1）VB的坐标系统由 、 和 构成。 （2）画线的方法是 ，画圆的方法是 ，画矩形的方法是 。 2．程序设计题 （1）设计一个程序，窗体上有四个按钮，单击时分别可绘制圆、直线、椭圆和矩形。 （2）设计一个程序，可以绘制出由大到小套在一起的一组不同颜色的方框。方框的个数、颜色、间距均随机产生。 【实例21】 图形展示 案例效果 程序窗口中展示了形状控件与直线控件的不同形式 技术分析 1．形状控件 （1）Shape属性 （2）BorderColor （3）FillColor （4）BorderStyle （5）BorderWidth （6）FillStyle （7）DrawMode 2．直线控件 （1）X1，Y1，X2，Y2属性 （2）其他属性 操作步骤 1．创建程序界面 2．程序代码编辑 在代码窗口中为程序添加如下代码。 程序代码： Private Sub Form_Activate() ' 0表示vbShapeRectangle , 即矩形 Shape1.FillColor = RGB(0, 0, 0) Shape1.FillStyle = 0 Shape1.Shape = 0 ' 1表示vbShapeSquare，即正方形 Shape2.FillColor = RGB(255, 0, 255) Shape2.FillStyle = 2 Shape2.Shape = 1 ' 2表示vbShapeOval，即椭圆形 Shape3.FillColor = RGB(255, 0, 0) Shape3.FillStyle = 3 Shape3.Shape = 2 ' 3表示vbShapeCircle，即圆形 Shape4.FillColor = RGB(255, 25