文档介绍：第11章图形与图像
杨章伟
e-mail:yang505412@
课程内容安排
坐标系统
图形的基本属性
图形控件
图形的基本方法
小结<br****题
坐标系统
坐标系统是一个生活中很常见的概念。例如直角坐标系,用横坐标X和纵坐标Y来定义一个点在平面上的位置。
在Visual Basic Basic 。Visual Basic 。不同的是,系统默认的坐标系是以对象左上角为坐标原点(0,0),以Twips(缇)为量度单位
图形的基本属性
获取当前坐标
CurrentX属性和CurrentY属性分别返回或设置下一次打印或绘图的水平或垂直坐标,这两个属性在设计时不可用。可以通过CurrentX属性和CurrentY属性来获取当前坐标,或者是设置要绘制图形的下一个坐标位置。
设置颜色属性
BackColor属性用于返回或设置对象的背景颜色;ForeColor属性用于返回或设置对象中显示图形或文本的前景颜色。
设置线条属性
DrawWidth属性用于返回或设置图形输出的线宽。
【范例11-1】
根据CurrentX和CurrentY属性的值,在窗体上输出“CurrentX属性和CurrentY属性”字样。
01 Option Explicit
02 'CurrentX属性和CurrentY属性
03 Private Sub Form_Load()
04 = 20 '设置窗体字号
05 = 800 '设置窗体CurrentX值
06 = 800 '设置窗体CurrentY值
07 Print "CurrentX属性和CurrentY属性" '显示内容
08 End Sub
图形控件
图形控件用于完成基本图形的绘制,可以借助图形控件提供的属性和方法,方便地绘制出基本图形。在Visual Basic 。
通过Shape控件在不用编写代码的情况下绘制出基本的图形。例如,矩形、正方形、椭圆、圆角矩形或者是圆角正方形。该控件也可以设置图形的颜色、填充样式、边框颜色和边框样式。
Line控件用于在窗体或其他容器控件中画出直线。
【范例11-7】
利用Line控件的X1、X2、Y1及Y2属性,在窗体上随机画出直线。在程序中加入一个Timer控件,设置Interval属性为500。为Timer事件添加代码.
01 Option Explicit
02 'Line控件使用演示
03 Private Sub Timer1_Timer()
04 With Line1 '设置Line控件的属性
05 Randomize
06 .BorderColor = QBColor(Int(Rnd * 16)) '设置Line控件的颜色
07 .X1 = 2000 '设置起点坐标
08 .Y1 = 2000
09 .X2 = 3000 * Rnd + 500 '随机生成终点坐标
10 .Y2 = 3000 * Rnd + 500
11 End With
12 End Sub
图形的基本方法
如果用户想在程序中绘制稍微复杂的图形,只用Shape控件和Line控件是不够的。Visual Basic 。
PSet方法用于将对象上的点设置为指定的颜色。该方法其实是通过改变指定点的颜色来绘制点,当PSet方法的颜色设置与对象相同时,没有绘图效果。
Line方法用于在对象上画直线或矩形。
Circle方法可画出圆形和椭圆形的各种形状。
Cls方法用于清除运行时Form窗体或PictureBox控件中所生成的图形和文本。
【范例11-9】
在窗体上用自定义坐标系画出区间[0,2π]的三角函数sin(x)图形曲线。
小结
本章介绍了Visual Basic 、图形的绘制、图形和图像控件的使用及图像的保存方法。读者应该将重点放在图形的绘制方面,对于用PSet方法、Line方法及Circle方法必须能够灵活应用。其中范例统计图例的绘制是笔者在实际项目中摘录出的部分代码,具有一定的实用价值,读者从中可以仔细体会基本图形的绘制方法。