用VB繪制拋物線動(dòng)畫(huà)曲線
（作者：許俊　2000年10月13日 10:04）

　　繪制動(dòng)畫(huà)曲線是編程人員感興趣的問(wèn)題之一，下面筆者將向大家詳細(xì)介紹繪制拋物線的全過(guò)程。 

　　首先，啟動(dòng)VB6，新建標(biāo)準(zhǔn)EXE工程，添加一個(gè)PictureBox控件，兩個(gè)CommandButton控件到窗體，其Caption屬性值分別設(shè)為拋物線和結(jié)束。 

　　雙擊Command1，打開(kāi)代碼編輯器窗口，相應(yīng)事件的代碼如下： 

　　通用聲明模塊： 

　　Const pi = 3.14159 

　　Dim a 

　　Private Sub Command2_Click()　　注釋：畫(huà)拋物線 

　　　　注釋：首先清除picture1內(nèi)的圖形 

　　　　Picture1.Cls 

　　　　注釋：Scale方法設(shè)定用戶坐標(biāo)系，坐標(biāo)原點(diǎn)在Picture1中心 

　　　　Picture1.ScaleMode = 0 

　　　　Picture1.ScaleMode = 3 

　　　　Picture1.Scale (-20, 20)-(20, -20) 

　　　　注釋：設(shè)置繪線寬度 

　　　　Picture1.DrawWidth = 1 

　　　　注釋：繪坐標(biāo)系的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" 

　　　　注釋：繪坐標(biāo)系的Y軸及箭頭線 

　　　　Picture1.Line (0, 20)-(0, -20), vbBlue 

　　　　Picture1.Line (1, 18)-(0, 20), vbBlue 

　　　　Picture1.Line -(-1, 18), vbBlue 

　　　　Picture1.Print "Y" 

　　　　注釋：指定位置顯示原點(diǎn)O 

　　　　Picture1.CurrentX = 1 

　　　　Picture1.CurrentY = -1 

　　　　Picture1.Print "O" 

　　　　注釋：重設(shè)繪線寬度 

　　　　Picture1.DrawWidth = 2 

　　　　注釋：用For循環(huán)繪點(diǎn)，使其按拋物線規(guī)律變化。步長(zhǎng)值很小，使之形成動(dòng)畫(huà)效果 

　　　　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()　　注釋：運(yùn)行結(jié)果如圖1 

　　圖1 

　　　　Unload Me 

　　End Sub 

　　以上程序代碼在VB6.0，Windows 98中調(diào)試通過(guò)。