畫圓
10年積累的成都做網(wǎng)站、成都網(wǎng)站設(shè)計經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有海州免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
Circle 方法可畫出圓形和橢圓形的各種形狀。另外，Circle 方法還可以畫出圓弧（圓的一部分）和楔形餅塊。使用變化的 Circle 方法，可畫出多種曲線。
為了畫圓，Visual Basic 需要給出該圓的圓心位置和它的半徑。畫一個理想圓的語法是：
[object.]Circle [Step](x, y), radius[, color]
方括號表明 object 和 Step 關(guān)鍵字是任選項。如果不指定 object，則認為指定的就是當前的窗體。x 參數(shù)和 y 參數(shù)是圓心的坐標，radius 參數(shù)是圓的半徑。例如，下面語句將畫出一個以 (1200,1000) 為圓心、750 為半徑的圓：
Circle (1200, 1000), 750
這個語句產(chǎn)生的精確作用，還要依賴于窗體的大小和窗體的坐標系。如果不知道窗體的大小，也就不能知道這個圓是否可見。可使用繪圖區(qū)的標尺屬性，將該圓的圓心置于窗體的中心處：
Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + _
ScaleTop) / 2), ScaleWidth / 4
此時，關(guān)于 ScaleWidth 和 ScaleHeight 所有應(yīng)知道的是，它們能幫助將圖形定位于窗體的中心。
用Circle 畫圓 圓弧 橢圓 都 具體參照面詳細說明 Circle(一000,一000),500,吧,-陸,-三 一000,一000,圓坐標 500,半徑 面別代表起始角,終止角,短軸比率 吧,詳細點,Circle都說遍 象畫圓、橢圓或弧 語 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 語象限定符部： 部 描述 object 選 象表達式其值應(yīng)用于列表象object 省略具焦點窗體作object Step 選關(guān)鍵字 指定圓、橢圓或弧相于前 object CurrentX CurrentY 屬性提供坐標 (x, y) 必需 Single （單精度浮點數(shù)）圓、橢圓或弧坐標object ScaleMode 屬性決定使用度量單位 radius 必需Single （單精度浮點數(shù)）圓、橢圓或弧半徑 object ScaleMode 屬性決定使用度量單位 color 選Long （整型數(shù)）圓輪廓 RGB 顏色省略則使用 ForeColor 屬性值用 RGB 函數(shù)或 QBColor 函數(shù)指定顏色 start, end 選 Single （單精度浮點數(shù)）弧、或部圓或橢圓畫完start end 指定（弧度單位）弧起點終點位置其范圍 -二 pi 二 pi 起點缺省值0; 終點缺省值二 * pi aspect 選 Single （單精度浮點數(shù)）圓縱橫尺寸比缺省值 一.0何屏幕都產(chǎn)標準圓（非橢圓） 說明 想要填充圓使用圓或橢圓所屬象 FillColor FillStyle 屬性封閉圖形才能填充封閉圖形包括圓、橢圓、或扇形 畫部圓或橢圓 start 負Circle 畫半徑 start并角度處理； end 負Circle 畫半徑 end并角度處理Circle 總逆針（）向繪圖 畫圓、橢圓或弧線段粗細取決于 DrawWidth 屬性值背景畫圓取決于 DrawMode DrawStyle 屬性值 畫角度 0 扇形要畫條半徑（向右畫水平線段）給 start 規(guī)定負值要給 0 .省略語間某參數(shù)能省略隔參數(shù)逗號您指定參數(shù)面逗號省略 Circle 執(zhí)行CurrentX CurrentY 屬性參數(shù)設(shè)置點 能用 With匛nd With 語句塊 -------------------------------------------------------------------------------- Circle 示例 示例用Circle 窗體央畫許同圓要運行示例代碼放入窗體 General 部按 F5 并單擊窗體 Sub Form_Click () Dim CX, CY, Radius, Limit ' Declare variable. ScaleMode = 三 ' 像素單位 CX = ScaleWidth / 二 ' X 位置 CY = ScaleHeight / 二 ' Y 位置 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半徑 Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55) Next Radius End Sub -------------------------------------------------------------------------------
窗體上添加一個按鈕，在該按鈕的單擊事件里編寫代碼如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'聲明窗體的Me.CreateGraphics對象
Dim MyGraphics As Graphics = Me.CreateGraphics
Dim Cx As Integer = 150 '圓心的X坐標
Dim Cy As Integer = 150 '圓心的Y坐標
Dim R As Integer '圓的半徑
'繪制半徑為R的圓
For R = 5 To 100 Step 5
MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))
Next
End Sub
‘用黑色畫筆繪制一組同心圓，半徑從5開始，增量為5。
說明：
DrawEllipse是VB.Net的Graphics類的繪制橢圓的方法；他有幾種格式，上面使用的是一種；
DrawEllipse（畫筆的顏色，繪制橢圓所需要的矩形區(qū)域）
其中：繪制橢圓所需要的矩形區(qū)域，如果被定義為正方形，就演變成繪制圓，定義該區(qū)域由死個數(shù)值確定，第1個數(shù)值，確定該區(qū)域左上角的X坐標，第2個數(shù)值，確定該區(qū)域左上角的Y坐標，第3個數(shù)值，確定該區(qū)域的寬度，第4個數(shù)值，確定該區(qū)域的高度。
例如1：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))
就是以圓心坐標為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計算，知道如何繪制了。
同理例如2：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))
就是以圓心坐標為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標（150,150），長軸為100，短軸為50的內(nèi)切橢圓。
vb 畫圓問題
建立一個工程，視窗上面放一個PictureBox，大小相對大一些，將其ScaleMode屬性設(shè)為3。
然后放一個按鈕，其中加入以下程式碼：
'這段程式碼演示了如何使用VB的Circle方法繪制各種各樣的圓。
Form1.Picture1.Circle (60, 60), 40, vbRed '畫一個圓心(60,60)半徑40的紅色的圓（預(yù)設(shè)空心）
Form1.Picture1.FillStyle = 0 '設(shè)定填充模式為實心
Form1.Picture1.FillColor = vbBlue '設(shè)定填充色藍色
Form1.Picture1.Circle (190, 60), 40, vbRed '下來畫出來的就是填充了實心藍色的圓了
Form1.Picture1.DrawWidth = 3 '設(shè)定邊框?qū)挾葹?
Form1.Picture1.Circle (60, 190), 40, vbRed '這次繪制出來的圓邊框粗細為3
Form1.Picture1.DrawStyle = 5 '設(shè)定邊框不可見
Form1.Picture1.FillColor = vbRed '設(shè)定填充色紅色
Form1.Picture1.Circle (190, 190), 40 '這次繪制出來一個無邊框、填充顏色是紅色的圓
Form1.Picture1.Refresh
然后試試看，對照注釋應(yīng)該就明白了。
————————————————
PS：對樓上 wys_sans給出的方法的評價：
其方法1、根本不能稱作畫圓；
其方法2、很顯然Circle可以直接畫實心的圓，只是這位不知道而已；
其方法3、效率極低效果極差的最糟糕方法。
vb關(guān)于畫圓座標問題？
編寫過程中還是程式執(zhí)行過程中？
執(zhí)行過程中mouse的各種事件可以讀取x,y
編寫過程中直接給控制元件的，left屬性賦值就可以改變座標
Ansys Workbench 畫圓的問題
把滑鼠放到座標原點的時候會變?yōu)榉娇虻男螤睿瑫r在畫圓的時候會顯示字母P，以確定圓心在座標原點。
vb右鍵畫圓
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then '左鍵
End If
If Button = 2 Then '右鍵
End If
End Sub
vb 畫圓 畫在picture里
Private Sub Command1_Click()
Dim x, y, r
x = InputBox("請輸入圓心座標x", "引數(shù)輸入", 30)
y = InputBox("請輸入圓心座標y", "引數(shù)輸入", 30)
r = InputBox("請輸入半徑r", "引數(shù)輸入", 15)
Picture1.ScaleMode = 3
Picture1.Circle (x, y), r, , 0, 0
End Sub
畫圓的問題，求解答
可先嘗試用歸納法
在平面上任意作1個圓,這些圓最多可把這個平面分成2個部分
在平面上任意作2個圓,這些圓最多可把這個平面分成4個部分
在平面上任意作3個圓,這些圓最多可把這個平面分成8個部分
在平面上任意作4個圓,這些圓最多可把這個平面分成16個部分
.....
通過總結(jié)發(fā)現(xiàn)數(shù)字之間的規(guī)律可得：
在平面上任意作6個圓,這些圓最多可把這個平面分成2^6個部分
用VB程式設(shè)計畫圓
新增以個TEXT2,一個按鈕，復(fù)制一下程式碼即可Private Sub Command2_Click()
Dim i As Integer
'i = Val(Text2.Text)
For i = 1 To Val(Text2.Text)
Form3.Picture1.Circle (120, 260), i * 10, vbRed
Next
'Form3.Picture1.Circle (60, 60), 40, vbRed '畫一個圓心(60,60)半徑40的紅色的圓（預(yù)設(shè)空心）
'
'
'Form3.Picture1.FillStyle = 0 '設(shè)定填充模式為實心
'Form3.Picture1.FillColor = vbBlue '設(shè)定填充色藍色
'Form3.Picture1.Circle (190, 60), 40, vbRed '下來畫出來的就是填充了實心藍色的圓了
'
'
'Form3.Picture1.DrawWidth = 3 '設(shè)定邊框?qū)挾葹?
'Form3.Picture1.Circle (60, 190), 40, vbRed '這次繪制出來的圓邊框粗細為3
'
'Form3.Picture1.DrawStyle = 5 '設(shè)定邊框不可見
'Form3.Picture1.FillColor = vbRed '設(shè)定填充色紅色
'Form3.Picture1.Circle (190, 190), 40 '這次繪制出來一個無邊框、填充顏色是紅色的圓
Form3.Picture1.Refresh
End Sub
Flash cs6矩形畫圓角問題
畫一個矩形 復(fù)制一個在同位置不同圖層，然后一個設(shè)定圓角 然后二者取半組合
求助關(guān)于mfc畫圓的問題
用畫橢圓的函式Ellipse(x1,y1,x2,y2); x1,y1是橢圓外切矩形的左上角座標，x2,y2是右下角座標。
你只要確保這兩點確定的是一個正方形，那么內(nèi)切的橢圓就正好是圓了。
VB程式設(shè)計 滑鼠畫圓
建立一個工程，介面上放一個PictureBox控制元件，控制元件名字叫Picture1，然后把下面的程式碼復(fù)制到工程中，執(zhí)行檢視效果。
Option?Explicit
Private?Type?POINTAPI
x?As?Long
y?As?Long
End?Type
Private?Declare?Function?Ellipse?Lib?"gdi32"?(ByVal?hdc?As?Long,?ByVal?X1?As?Long,?ByVal?Y1?As?Long,?ByVal?X2?As?Long,?ByVal?Y2?As?Long)?As?Long
Private?DrawEllipse?As?Boolean
Private?dwPoint(1)?As?POINTAPI
Private?Sub?Form_Load()
Picture1.ScaleMode?=?vbPixels
Picture1.AutoRedraw?=?True
End?Sub
Private?Sub?Picture1_MouseDown(Button?As?Integer,?Shift?As?Integer,?x?As?Single,?y?As?Single)
If?Button?=?vbLeftButton?Then
DrawEllipse?=?True
dwPoint(0).x?=?CLng(x)
dwPoint(0).y?=?CLng(y)
End?If
End?Sub
Private?Sub?Picture1_MouseMove(Button?As?Integer,?Shift?As?Integer,?x?As?Single,?y?As?Single)
If?DrawEllipse?=?True?Then
dwPoint(1).x?=?CLng(x)
dwPoint(1).y?=?CLng(y)
Picture1.Cls
Ellipse?Picture1.hdc,?dwPoint(0).x,?dwPoint(0).y,?dwPoint(1).x,?dwPoint(1).y
Picture1.Refresh
End?If
End?Sub
Private?Sub?Picture1_MouseUp(Button?As?Integer,?Shift?As?Integer,?x?As?Single,?y?As?Single)
If?Button?=?vbLeftButton?Then
DrawEllipse?=?False
End?If
End?Sub
重慶分公司
重慶分公司
