這篇文章將為大家詳細講解有關(guān)VB語言中如何實現(xiàn)circle畫圖模擬煙花效果，文章內(nèi)容質(zhì)量較高，因此小編分享給大家做個參考，希望大家閱讀完這篇文章后對相關(guān)知識有一定的了解。

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供天峨網(wǎng)站建設(shè)、天峨做網(wǎng)站、天峨網(wǎng)站設(shè)計、天峨網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、天峨企業(yè)網(wǎng)站模板建站服務(wù)，10多年天峨做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

circle畫圖模擬煙花效果

在VB中，使用Circle函數(shù)可以畫圓、環(huán)、弧、扇形

我們從數(shù)學(xué)和美術(shù)的常規(guī)思路來考慮一下：

• 如果要畫一個圓，要知道：圓心、半徑

• 可以給圓填充顏色

• 如果只畫出圓的部分，那就是弧，或扇形

如何使用circle函數(shù)呢？

Circle繪圖格式

Circle (x,y),r [,[rgb],決定圓還是弧-2pi~2pi]

對應(yīng)解釋：

Circle 圓心，半徑，顏色，弧度 

有思路如何畫同心圓了嗎？

畫N個同心圓

1、圓心不變

2、半徑逐漸變大

如何給畫出來的圓填充自己喜歡的顏色？

'填充顏色設(shè)置

FillStyle = vbSolid

FillColor = RGB(red, green, blue)

如何模擬煙花效果？

煙花的爆炸就像一個個不同顏色的圓，那么我們從以下幾個方面可以考慮：

1、給圓上色

2、隨機位置

3、隨機半徑

程序界面：

同心圓效果：

代碼：

Private Sub Command1_Click()'使用單精度浮點型single來表示坐標Dim x As SingleDim y As SingleDim r As Singlex = ScaleWidth / 2y = ScaleHeight / 2r = 100Dim i As Long'N個同心圓For i = 1 To y Step 10    r = i    Circle (x, y), r
Next i
End Sub
Private Sub Command2_Click()Timer1.Enabled = True


End Sub
Private Sub Timer1_Timer()
End Sub

關(guān)于VB語言中如何實現(xiàn)circle畫圖模擬煙花效果就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，可以學(xué)到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。

網(wǎng)頁題目：VB語言中如何實現(xiàn)circle畫圖模擬煙花效果
轉(zhuǎn)載來于：http://chinadenli.net/article48/joieep.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供關(guān)鍵詞優(yōu)化、營銷型網(wǎng)站建設(shè)、網(wǎng)站營銷、移動網(wǎng)站建設(shè)、網(wǎng)站改版、建站公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)