使用VB绘制抛物线动画曲线

绘制动画曲线是编程人员感兴趣的问题之一，下面笔者将向大家详细介
绍绘制抛物线的全过程?
首先，启动VB6，新建标准EXE工程，添加一个PictureBox控件，两个CommandButton控件到窗体，其Caption属性值分别设为抛物线和结束。
双击Command1，打开代码编辑器窗口，相应事件的代码如下：
通用声明模块:
Const pi = 3.14159
Dim a
Private Sub Command2_Click()　　注释：画抛物线
注释:     首先清除picture1内的图形
    Picture1.Cls
    注释：Scale方法设定用户坐标系，坐标原点在Picture1中心
    Picture1.ScaleMode = 0
    Picture1.ScaleMode = 3
    Picture1.Scale (-20, 20)-(20, -20)
注释:     设置绘线宽度
    Picture1.DrawWidth = 1
注释:     绘坐标系的X轴及箭头线
    Picture1.Line (-20, 0)-(20, 0), vbBlue
    Picture1.Line (18, 1)-(20, 0), vbBlue
    Picture1.Line -(18, -1), vbBlue
    Picture1.ForeColor = vbBlue
    Picture1.Print "X"
注释:     绘坐标系的Y轴及箭头线
    Picture1.Line (0, 20)-(0, -20), vbBlue
    Picture1.Line (1, 18)-(0, 20), vbBlue
    Picture1.Line -(-1, 18), vbBlue
    Picture1.Print "Y"
注释:     指定位置显示原点O
    Picture1.CurrentX = 1
    Picture1.CurrentY = -1
    Picture1.Print "O"
注释:     重设绘线宽度
    Picture1.DrawWidth = 2
    注释：用For循环绘点，使其按抛物线规律变化。步长值很小，使之形成动画效果
    For a = -10 To 10 Step pi / 6000
        Picture1.PSet (a, a ^ 2 / 5), vbRed
    Next a
注释:     指定位置显示描述文字
    Picture1.CurrentX = pi / 2
    Picture1.CurrentY = -7
    Picture1.ForeColor = vbBlack
    Picture1.Print "抛物线示意"
End Sub
Private Sub Command3_Click()
    Unload Me
End Sub

---

★VB部分相关文章推荐：★

---

☆VB 读写TXT文本文件函数

☆VB 提取TextBox 文本框中指定一行字符串

☆VB 获取汉字拼音的首字母

☆VB 汉字字符串转换成拼音

☆VB判断指定名字的进程是否存在函数

☆VB 两种方法实现热键

☆VB 使用SendMessage枚举文件与目录