Visual Basic程序设计教程第10章.pptVIP

界面设计：在窗体上画一个图片框Picture1，设运行时单击图片框在图片框内画图。 代码设计：根据表达式可以看出，f的值在50到150之间。根据f的取值范围和sin、cos函数的取值范围可以推导出 x坐标值在170到470之间， y坐标的值在50到350之间。 据此，可以用scale方法定义图片框的坐标范围，其宽度和高度应大于或等于x和y的取值范围，以保证所画的线条落在图片框内。 * Private Sub Picture1_Click() Const pi = 3 d = 100 Dim a As Single, f As Single Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer 使用Scale方法定义坐标系统 Picture1.Scale (170, 50)-(470, 350) For a = 0 To 4 * pi Step pi / 100 f = d * (1 + 1 / 2 * Cos(2.5 * a)) x1 = 320 + f * Cos(a) y1 = 200 - f * Sin(a) x2 = 320 + f * Cos(a + pi / 5) y2 = 200 - f * Sin(a + pi / 9) 使用Line方法画蓝色线条 Picture1.Line (x1, y1)-(x2, y2), vbBlue Next a End Sub * 【例10-7】使用Line方法绘制矩形的功能画一个黑白格相间的棋盘。 代码设计：本例假设棋盘有10行10列，因此可以首先用Scale方法将窗体的高度和宽度划分成10个单位。为了实现黑白相间的效果，在代码中引入一个标志变量Flag，当Flag为1时，用白色画矩形，当Flag为-1时，用黑色画矩形。在Line方法中使用BF参数指定画填充矩形。 * Private Sub Form_Click() Scale (0, 0)-(10, 10) 定义窗体宽度和高度为10个单位 Flag = 1 For i = 0 To 9 Flag = Flag * (-1) For j = 0 To 9 X1 = i: Y1 = j 设置小矩形的左上角坐标 X2 = i + 1: Y2 = j + 1 设置小矩形的右下角坐标 If Flag = -1 Then C = vbWhite Else C = vbBlack End If Line (X1, Y1)-(X2, Y2), C, BF 画矩形 Flag = Flag * (-1) Next j Next i End Sub * 10.4.3 Circle方法 Circle方法用于在容器对象上画圆形、椭圆形、圆弧和扇形 [对象名.]Circle [Step](x,y),半径,[颜色],[起始角],[终止角][,纵横比] 【例10-8】使用Circle方法绘制如图10-12所示的艺术图案。该艺术图案由一系列的圆组成，这些圆的圆心在另外一个固定圆（轨迹圆）的圆周上。 (0,0) (x0,y0) * 分析：使用缺省的坐标系统，设轨迹圆的圆心坐标为（x0，y0），将该圆30等分，以圆周上的每一个等分点为圆心画圆，圆心的坐标为（x0+r*Cos(i)，y0-r*Sin(i)），其中，i为等分点和（x0，y0）的连线与x轴正方向之间的夹角（以弧度为单位），r为轨迹圆的半径。 * Private Sub Form_Click() Const pi = 3 Dim x As Single, y As Single, x0 As Single, y0 As Single Dim r As Single, pace As Single Cls r = ScaleHeight / 4 将窗体1/4高作为轨迹圆半径 将窗体的中心位置设置为轨迹圆的圆心坐标 x0 = ScaleWidth / 2: y0 = ScaleHeight / 2 pace = (2 * pi) / 30 将圆周30等分 For i = 0 To 2 * pi Ste