用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


　　以上程序代碼在VB6.0，Windows 98中調試通過。

原文轉自：http://www.anti-gravitydesign.com