實驗一 畫圖形

代碼

Private Sub Form_Click()Scale (0, 30)-(120, 0)Circle (15, 15), 10Circle (45, 15), 10, , , , 2Circle (75, 15), 10, , -0.7, -2.1Circle (105, 15), 10, , -2.1, 0.7 End Sub

實驗二 畫圓形

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)FillColor = QBColor(Int(Rnd * 15))FillStyle = Int(Rnd * 8)Circle (x, y), 500 End Sub

實驗三 蝴蝶動畫

Dim i As Integer Private Sub Command1_Click()Timer1.Interval = 100 End SubPrivate Sub Command2_Click()Timer1.Interval = 0 End SubPrivate Sub Command3_Click()End End SubPrivate Sub Form_Load()i = 0 End SubPrivate Sub Timer1_Timer()i = i + 2Picture1.Picture = LoadPicture(App.Path & "\DH\" & i & ".bmp")If i = 8 Then i = 0End Sub

總結(jié)

以上是生活随笔為你收集整理的vb 绘制图形/蝴蝶动画的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。