在VB6.0中如何畫扇形的呀？

扇形也是圓的一部分，所以畫扇形也用Circle語(yǔ)句。格式為：

為西秀等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及西秀網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、西秀網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

[對(duì)象.]Circle [Step](x,y),半徑,[顏色],[起始角],[終止角]

[Step](x,y)指定圓心的位置。如果加上Step選擇項(xiàng)，則表示x,y是相對(duì)于當(dāng)前作圖位置的偏移量。

這里的起始角和終止角都是以弧度為單位。如果畫扇形，則要將起始角與終止角分別取負(fù)即可。

VB怎樣畫扇形，橢圓，弧形

用Circle 畫圓 圓弧 橢圓 都可以

具體參照下面的詳細(xì)說(shuō)明

Circle(1000,1000),500,8,-6,-3

1000,1000,圓心坐標(biāo)

500,半徑

后面分別代表起始角,終止角,長(zhǎng)短軸比率

好吧,詳細(xì)點(diǎn),就把Circle方法都說(shuō)一遍

在對(duì)象上畫圓、橢圓或弧。

語(yǔ)法

object.Circle [Step] (x, y), radius, [color, start, end, aspect]

Circle 方法的語(yǔ)法有如下的對(duì)象限定符和部分：

部分 描述

object 可選的。 對(duì)象表達(dá)式，其值為“應(yīng)用于”列表中的對(duì)象。如果object 省略，具有焦點(diǎn)的窗體作為object。

Step 可選的。關(guān)鍵字 ，指定圓、橢圓或弧的中心，它們相對(duì)于當(dāng)前 object 的 CurrentX 和 CurrentY 屬性提供的坐標(biāo)。

(x, y) 必需的。 Single （單精度浮點(diǎn)數(shù)），圓、橢圓或弧的中心坐標(biāo)。object 的 ScaleMode 屬性決定了使用的度量單位。

radius 必需的。Single （單精度浮點(diǎn)數(shù)），圓、橢圓或弧的半徑。 object 的 ScaleMode 屬性決定了使用的度量單位。

color 可選的。Long （長(zhǎng)整型數(shù)），圓的輪廓的 RGB 顏色。如果它被省略，則使用 ForeColor 屬性值。可用 RGB 函數(shù)或 QBColor 函數(shù)指定顏色。

start, end 可選的。 Single （單精度浮點(diǎn)數(shù)），當(dāng)弧、或部分圓或橢圓畫完以后，start 和 end 指定（以弧度為單位）弧的起點(diǎn)和終點(diǎn)位置。其范圍從 -2 pi 到 2 pi 。起點(diǎn)的缺省值是0; 終點(diǎn)的缺省值是2 * pi。

aspect 可選的。 Single （單精度浮點(diǎn)數(shù)），圓的縱橫尺寸比。缺省值為 1.0，它在如何屏幕上都產(chǎn)生一個(gè)標(biāo)準(zhǔn)圓（非橢圓）。

說(shuō)明

想要填充圓，使用圓或橢圓所屬對(duì)象的 FillColor 和 FillStyle 屬性。只有封閉的圖形才能填充。封閉圖形包括圓、橢圓、或扇形。

畫部分圓或橢圓時(shí)，如果 start 為負(fù)，Circle 畫一半徑到 start，并將角度處理為正的；如果 end 為負(fù)，Circle 畫一半徑到 end，并將角度處理為正的。Circle 方法總是逆時(shí)針（正）方向繪圖。

畫圓、橢圓或弧時(shí)線段的粗細(xì)取決于 DrawWidth 屬性值。在背景上畫圓的方法取決于 DrawMode 和 DrawStyle 屬性值。

畫角度為 0 的扇形時(shí)，要畫出一條半徑（向右畫一水平線段），這時(shí)給 start 規(guī)定一很小的負(fù)值，不要給 0。

.可以省略語(yǔ)法中間的某個(gè)參數(shù)，但不能省略分隔參數(shù)的逗號(hào)。您指定的最后一個(gè)參數(shù)后面的逗號(hào)是可以省略的。

Circle 執(zhí)行時(shí)，CurrentX 和 CurrentY 屬性被參數(shù)設(shè)置為中心點(diǎn)。

這個(gè)方法不能用在 With匛nd With 語(yǔ)句塊中。

--------------------------------------------------------------------------------

Circle 方法示例

這個(gè)示例用Circle 方法在窗體中央畫許多同心圓。要運(yùn)行這個(gè)示例，將此代碼放入窗體的 General 部分。按 F5 并單擊窗體。

Sub Form_Click ()

Dim CX, CY, Radius, Limit ' Declare variable.

ScaleMode = 3 ' 以像素為單位。

CX = ScaleWidth / 2 ' X 位置。

CY = ScaleHeight / 2 ' Y 位置。

If CX CY Then Limit = CY Else Limit = CX

For Radius = 0 To Limit ' 半徑。

Circle (CX, CY), Radius,RGB(Rnd * 255, Rnd * 255, Rnd * 255)

Next Radius

End Sub

--------------------------------------------------------------------------------

vb 畫扇形

'添加窗體Form1,Picture1,然后添加如下代碼:

Private?Sub?Form_Load()

Me.Show

Dim?angleN,?stepN,?originX,?originY?As?Double

stepN?=?0.01

originX?=?2500

originY?=?2500

For?angleN?=?3.134952627?*?3?/?4?To?3.134952627?/?2?Step?-stepN

Picture1.Line?(originX,?originY)-(originX?+?1000?*?Sin(angleN),?originY?+?1000?*?Cos(angleN)),?vbRed

Next

Picture1.Line?(originX,?originY)-(originX?+?1000?*?Sin(3.134952627?*?3?/?4),?originY?+?1000?*?Cos(3.134952627?*?3?/?4)),?vbGreen

Picture1.Line?(originX,?originY)-(originX?+?1000?*?Sin(angleN),?originY?+?1000?*?Cos(angleN)),?vbGreen

Picture1.Circle?(originX,?originY),?1000,?vbGreen,?0,?3.14?/?4

End?Sub

分享名稱：vb.net畫扇形圖,vb畫扇形程序代碼
鏈接地址：http://aaarwkj.com/article38/dsiidsp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站排名、App開(kāi)發(fā)、品牌網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司、域名注冊(cè)

廣告

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