表9-6 与绘图有关的属性
绘图属性用途
AutoRedraw、ClipControls显示处理
CurrentX、CurrentY当前绘图位置的x与y坐标
DrawMode、DrawStyle、DrawWidth绘图模式、线型、线宽
FillStyle、FillColor填充的图案、颜
ForeColor、BackColor前景颜、背景颜
③调用绘图方法绘制图形。即利用PSet、Line和Circle等方法画点、线和圆等图形。
9.4.1 几何图形绘制
几何图形都是由点、线、面等基本图形构成。要画一个复杂的几何图形，就是要画出构成这个复杂几何
图形的点、线和面。为此，就要掌握点、线、面等基本几何图形的画法。由于绘图控件上的坐标系统（设备坐标系统）是两维直角坐标系统，所以要在其上画空间平面或者曲面，就要进行三维坐标到两维坐标之间的转换，比较复杂。这里只举例说明点和线在几何图形中的画法。
【例9-14】画出0度到360度之间的正弦曲线和余弦曲线。程序代码如下，运行结果如图9-18所示。
Option Explicit '强制变量在使用前定义
Const PAI As Single = 3.1415927 '定义符号常量（圆周率）
Private Sub cmdDrawSin_Click() '画正弦曲线的事件过程
Dim angle As Integer
Dim x As Single, y As Single
If (cmdDrawSin.Caption = "画正弦曲线") Then
Call draw_axis(picSin) '设置并画图片框picSin的坐标轴
For angle = 0 To 360 Step 1 '从0度到360度画正弦曲线
x = angle * PAI / 180# '度转换为弧度
y = Sin(x) '计算Sin(x)
picSin.PSet (x, y) '以前景(ForeColor)画一点
Next angle
cmdDrawSin.Caption = "清除正弦曲线"
Else
picSin.Cls '清除所画正弦曲线
cmdDrawSin.Caption = "画正弦曲线"
End If
End Sub
Private Sub cmdDrawCos_Click()              '画余弦曲线的事件过程Dim angle As Integervisual basic pdf
Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
If (cmdDrawCos.Caption = "画余弦曲线") Then
232

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。