在vb中怎么用line畫圓

VB中有專門畫圓的函數(shù)Circle，命令如下：

成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比和平網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式和平網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務覆蓋和平地區(qū)。費用合理售后完善，10多年實體公司更值得信賴。

Circle (x, y), r, c 其中(x, y)是原點坐標,r是半徑,c是顏色

如果一定要用Line，以圓心（x,y）為例，在為r(x-1+cosi,y+sini)起點，以r(x+cosi,y+sini)為終點畫一個點的線。用for 循環(huán)來做。步長i越小，效果越好。

Private?Sub?Command1_Click()

Dim?i?As?Single,?x?As?Integer,?y?As?Integer,?r?As?Integer

x?=?Form1.Width?/?3

y?=?Form1.Height?/?3

r?=?Form1.Width?/?4

For?i?=?0?To?6.3?Step?0.00001

Line?(x?-?1?+?r?*?Cos(i),?y?+?r?*?Sin(i))-(x?+?r?*?Cos(i),?y?+?r?*?Sin(i)),?vbRed

Next?i

End?Sub

效果如下：

vb畫圓代碼

VB畫圓代碼：主要使用函數(shù)【Circle (x, y), 半徑, 顏色 】 ：Circle(圓圈中心的坐標X，圓圈中心的坐標Y),圓圈的半徑,圓圈線的顏色

代碼start===========

'控件：

'名稱:Command1，屬性Caption:開始

'名稱:Command2，屬性Caption:結(jié)束

Private Sub Command1_Click() '****開始按鈕

Circle (1500, 1000), 700, vbBlack '此為畫圓函數(shù)：【Circle(圓圈中心的坐標X，圓圈中心的坐標Y),圓圈的半徑,圓圈線的顏色】

End Sub

Private Sub Command2_Click() '***結(jié)束按鈕

Unload Form1 '退出Form1

End Sub

Private Sub Form_Load()

Form1.AutoRedraw = True '程序開始時設(shè)置AutoRedraw屬性(即重畫屬性)為ture，否則畫的圖可能消失

End Sub

代碼end=============

如何三步做出圓的切線？

三步做出圓的切線：過圓上一點作圓的切線，先在圓上確定一點，作圓心與該點連線的垂線即可得到切線。

1、在一個平面內(nèi)，先畫一個半徑適當?shù)膱A，確定圓上任意一點。

2、接圓心與圓上確定的這一點，即找到圓的一條半徑。

3、過圓上確定那一點做該半徑的垂線，即可得到過圓的一條切線。

切線簡介

幾何上，切線指的是一條剛好觸碰到曲線上某一點的直線。更準確的說，當切線經(jīng)過曲線上的某點（即切點）時，切線的方向與曲線上該點的方向是相同的，此時，“切線在切點附近的部分”最接近“曲線在切點附近的部分”（無限逼近思想）。tangent在拉丁語中就是to touch的意思。類似的概念也可以推廣到平面相切等概念中。

如何用VB畫圓？需要具體的過程，詳細一些。。。

用Circel方法。

首先要做個容器，指明你在什么地方畫。比如在窗體上，那么就是form1.Circel

Circel方法需要的參數(shù)、格式：

[容器名.]Circel[[step]

(X,Y),

半徑,

[,顏色][,起始角][,終止角][,長短軸比率]]

例：form1.Circel(25,25),

10,

RGB(100,100,50)

就是說在（25，25）為圓心半徑為10畫個該顏色的圓。

VB.NET中怎樣畫圓弧

用Circle 畫圓 圓弧 橢圓 都 具體參照面詳細說明 Circle(一000,一000),500,吧,-陸,-三 一000,一000,圓坐標 500,半徑 面別代表起始角,終止角,短軸比率 吧,詳細點,Circle都說遍 象畫圓、橢圓或弧 語 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 語象限定符部： 部 描述 object 選 象表達式其值應用于列表象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 -------------------------------------------------------------------------------

如何用VB.NET畫同心圓

窗體上添加一個按鈕，在該按鈕的單擊事件里編寫代碼如下：

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ù)學計算，知道如何繪制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圓心坐標為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標（150,150），長軸為100，短軸為50的內(nèi)切橢圓。

當前文章：vb.net畫圓的切線,vb畫直線
本文URL：http://chinadenli.net/article10/dsiosgo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、企業(yè)建站、網(wǎng)站改版、云服務器、微信公眾號、全網(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)