新Visual Basic程序设计教程 教学课件 邱李华 郭全 vb第10章.pptVIP

第10章 图形操作 10.1 坐 标 系 【例10-2】将窗体的内部显示区域的宽度和高度定义为2个单位，通过移动某图形到指定的位置验证该定义。 在窗体的Load事件过程中为图片框定义新坐标系： Private Sub Form_Load() Picture1.ScaleWidth = 4 Picture1.ScaleHeight = -4 Picture1.ScaleTop = 4 End Sub 5．当前坐标 CurrentX——设置或返回容器对象的当前水平坐标。 CurrentY——设置或返回容器对象的当前垂直坐标。 例如在图片框Picture1的坐标系中，使用以下语句可以在指定的当前坐标位置打印文本“当前坐标”： Picture1.CurrentX = 1 Picture1.CurrentY = 1 Picture1.Print 当前坐标 10.2 颜 色 （5）使用系统颜色。VB允许在应用程序中直接引用系统的颜色来设置窗体和控件的颜色属性，如果改变了系统颜色，应用程序中被引用的相应颜色也会随着变化。 在VB中，系统颜色有两种表示方法： 用系统内部常量表示； 用十六进制的四字节长整型数表示。 用十六进制表示的系统颜色值的第1个字节为80，其余字节指定的是一种系统颜色。例如，选择“活动标题栏”颜色，所产生的颜色值为而选择“非活动边框”的颜色，所产生的颜色值为H8000000B。 10.3 图 形 控 件 Private Sub Command1_Click() Timer1.Enabled = True 启动定时器 End Sub Private Sub Timer1_Timer() 每隔1秒旋转一次秒针 arph = arph + 3/ 30 旋转角度增加6° 以下语句将秒针的另一端移动到旋转后的位置 Line1.Y2 = 0.7 * Cos(arph) Line1.X2 = 0.7 * Sin(arph) End Sub Private Sub Command2_Click() “停止”按钮 Timer1.Enabled = False 关闭定时器 End Sub 10.4 绘 图 方 法 【例10-7】使用Line方法绘制矩形的功能画一个黑白格相间的棋盘。 代码设计：本例假设棋盘有10行10列，因此可以首先用Scale方法将窗体的高度和宽度划分成10个单位。为了实现黑白相间的效果，在代码中引入一个标志变量Flag，当Flag为1时，用白色画矩形，当Flag为-1时，用黑色画矩形。在Line方法中使用BF参数指定画填充矩形。 【例10-9】在图片框中画3个扇形和1个小圆，配合定时器使扇形旋转起来。 代码设计：首先在窗体模块的通用声明段声明变量alpha1，用于保存第1个扇形的起始角度，其他两个扇形的起始角由alpha1推出，每个扇形的终止角由其起始角加上60得出。 10.5 与绘图有关的常用属性、事件和方法 【例10-10】在窗体的AutoRedraw属性设置为True时，画一个绿色大圆，在窗体的Auto- Redraw属性设置为False时，画一个红色小圆。将一个图片框移过这两个圆，观察AutoRedraw属性的作用。 Private Sub form_Click() Form1.Scale (-1, 1)-(1, -1) 定义坐标系 Form1.AutoRedraw = True 设置窗体的AutoRedraw为True Form1.FillColor = vbGreen 设置填充颜色为绿色 Form1.FillStyle = 0 设置填充样式为实心 Form1.Circle (0, 0), 1 画一个绿色实心圆（持久图形） Form1.AutoRedraw = False 设置窗体的AutoRedraw为False Form1.FillColor = vbRed 设置填充颜色为红色 Form1.Circle (0, 0), 0.5 画一个红色实心圆（临时图形） End Sub Private Sub Picture1_Click() Timer1.Enabled = True End Sub 在定时器Timer1的Timer事件过程中将图片框向窗体右下角逐渐移动: Private Sub Timer1_Timer() Pic