VisualBasic程序设计第9章图形设计.ppt

VisualBasic程序设计第9章图形设计 2009年月日 计算机学院 教师 傅茂洺 9 1坐标系统和颜色 提要 9 2图形控件 9 3常用绘图方法 9 4显示图片 9 1坐标系统和颜色9 1 1坐标系统 坐标原点 坐标度量单位 坐标轴的长度与方向1 坐标度量单位 坐标刻度 由容器对象的ScaleMode属性决定如 在窗体上绘制控件及图形 窗体为容器对象 2 VB的缺省坐标系统 3 自定义坐标系方法一 设置对象的相关坐标属性 表9 2坐标属性 例9 1 在窗体的单击事件中定义窗体Form1的坐标系PrivateSubForm Click ClsForm1 ScaleLeft 200Form1 ScaleTop 250Form1 ScaleWidth 500Form1 ScaleHeight 400EndSub 方法二 采用Scale方法来设置坐标系 对象 Scale 左上角坐标 右下角坐标 例9 2 假定当前对象为窗体Form1 则代码 Me Scale 200 250 300 150 采用的Scale方法所定义的坐标系与例9 1是等效的 9 1 2使用VB颜色 1 QBColor函数QBColor color color参数是介于0 15的整型值 表9 3color参数的设置值所选择的颜色 2 RGB函数RGB R G B R G B分别指明三原色中红色 绿色 蓝色的比例 它们的取值范围为0 255 表9 4常见的标准颜色RGB值 1 线条控件 Line 在窗体 图片框和框架中画各种直线段 通过使用Line控件在窗体上可视化地安排直线的位置 长度 宽度 颜色等 常用属性 X1 X2 Y1和Y2BorderStyle 边框风格 属性BorderWidth 线宽 属性 9 2图形控件 2 形状控件 Shape Shape控件预定义了6种形状 通过设置Shape属性来实现所需形状 表9 5Shape属性设置值及对应的形状 9 2 3图形控件与动画 例9 3 Shape Line Timer Timer1的Timer事件代码 PrivateSubTimer1 Timer t t 1Shape3 Left x0 Shape1 Tag Cos pi t 30 90Shape3 Top y0 Shape1 Tag Sin pi t 30 90Line1 X2 Shape3 Left 90Line1 Y2 Shape3 Top 90Line2 Y2 y0 Shape1 Tag Sin pi t 30 Sqr Line2 Tag 2 Shape1 Tag Cos pi t 30 2 Line2 X1 Line1 X2Line2 Y1 Line1 Y2Shape4 Top Line2 Y2 200EndSub 9 2 4与图形有关的属性 表9 8对象的图形属性 1 DrawMode属性决定绘制线条的真实颜色 对象 DrawMode 值 2 DrawWidth属性和DrawStyle属性DrawWidth属性用来设置绘图线的宽度 对象 DrawWidth 值 DrawStyle属性用于指定用图形方式创建的线是实线还是虚线 对象 DrawStyle 值 DrawWidth属性和DrawStyle属性设置对应的线宽和线型 3 FillColor属性和FillStyle属性FillColor属性为填充色和FillStyle属性为填充样式 对象 FillColor 值 对象 FillStyle 值 图9 8FillStyle属性不同设置值的效果 9 3常用绘图方法1 画点方法 PSet 可以在对象的指定位置 x y 按确定的像素颜色画点 对象 Pset Step x y 颜色 例9 4 使用PSet方法绘制阿基米德螺线 X t cost Y t sint Fort 0To12Step0 01y t Sin t x t Cos t PSet x y vbRedNextt 图9 9用Pset方法绘制数学曲线 2 画直线 矩形方法画直线 矩形方法可以在对象上的两点之间画直线或矩形对象 Line Step x1 y1 Step x2 y2 颜色 B F 例9 5 使用Line方法的不同参数画出图形 起始点坐标 终点坐标 画菱形的左上边Line ScaleLeft my mx ScaleTop 画菱形的右上边Line ScaleWidth ScaleLeft my 画菱形的右下边Line mx ScaleHeight ScaleTop 画菱形的左下边Line ScaleLeft my 3 画圆方法可以在容器对象上画圆 椭圆或弧 对象 Circle Step x y 半径 颜色 开始 结束 方位 Constpi 3 1415926Circle 1500 1200 1000 vbRed pi 2 2 piCircleStep 500 500 500CircleStep 0 0 500 5 25 说明 x y 指定圆 椭圆或弧的中心坐标 开始 和 结束 指定弧或扇形的起始点以及终点位置方位为垂直半径与水平半径之比 不能为负数 例9 6 利用Circle方法在窗体中央画出如图9 11所示的图形 4 清除图形方法可以清除窗体或PictureBox等容器对象中由图形和打印语句在运行时所生成的图形和文本 语法 对象 Cls调用Cls之后 对象的CurrentX和CurrentY属性复位为0 返回坐标原点 9 4显示图片图片可以在三个对象中出现Form PicutreBox Image1 直接加载图片到窗体使用窗体的Picture属性要在运行时显示或替换图片 可利用函数LoadPicture来设置Picture属性LoadPicture 文件名 注明 文件名 是一个字符串表达式 包括驱动器 文件夹和文件的名称 也可以使用App Path获得当前路径 2 使用图像框 Image 控件Picture属性LoadPicture函数Strech 伸展属性 例9 7 设计一个窗体 在窗体上添加3个图像框和2个命令按钮 当用户单击 交换 命令按钮时 交换两个图像框中的图形 单击 结束 命令按钮时 结束程序运行 程序界面设计及运行结果 3 使用图片框 PictureBox 控件PictureAutoSizeImage 例9 8 利用图片框 PictureBox 输出图形和文本 4 使用滚动条控件 ScrollBar 滚动条属性 Value LargeChange SmallChange 滚动条事件 Change Scroll 滚动条应用 例9 9 水平滚动条 HScrollBar 垂直滚动条 VScrollBar 利用滚动条控制设置R 红 G 绿 B 蓝 三原色彩的调合比例并返回调合色彩的RGB值 习题8