關(guān)于vb.net中顯示圓形的信息

如何用VB.NET畫同心圓

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

石棉網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),石棉網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為石棉成百上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢，請找那個售后服務(wù)好的石棉做網(wǎng)站的公司定做！

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坐標(biāo)

Dim Cy As Integer = 150 '圓心的Y坐標(biāo)

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坐標(biāo)，第2個數(shù)值，確定該區(qū)域左上角的Y坐標(biāo)，第3個數(shù)值，確定該區(qū)域的寬度，第4個數(shù)值，確定該區(qū)域的高度。

例如1：

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

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計算，知道如何繪制了。

同理例如2：

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

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

VB.net該如何將圖片圓形顯示？

新建一個Winform，拖兩個圖片框。圖片框1在設(shè)計器中選擇一個圖片（尺寸在圖片框容納為佳）。如下代碼測試通過：

private?void?button1_Click(object?sender,?EventArgs?e)

{

Image?img1?=?this.pictureBox1.Image;

Image?img2?=?CropToCircle(img1);

this.pictureBox2.Image?=?img2;

}

public?Image?CropToCircle(Image?img1)

{

Image?img2?=?new?Bitmap(img1.Width,?img1.Height,?

img1.PixelFormat);

Graphics?g?=?Graphics.FromImage(img2);

using?(Brush?br?=?

new?SolidBrush(SystemColors.Control))//背景色

{

g.FillRectangle(br,?0,?0,?

img2.Width,?img2.Height);

}

GraphicsPath?path?=?new?GraphicsPath();

path.AddEllipse(0,?0,?img2.Width,?img2.Height);

g.SetClip(path);

g.DrawImage(img1,?0,?0);

return?img2;

}

vb.net中有沒有哪個控件可以自定義形狀（如圓形，多邊形）和顏色，如果有，希望你您給出代碼

記得VB6當(dāng)中有Shape控件，但是VB.net里這個控件不存在了。

提個思路：使用Picture控件或Label控件，通過代碼在控件里繪圖想要的圖形，可以試試。

VB.Net怎么做圓形窗體

設(shè)置Region屬性：

Dim path As New System.Drawing.Drawing2D.GraphicsPath

path.AddEllipse(0, 0, 400, 300)

Region = New Region(path)

網(wǎng)站標(biāo)題：關(guān)于vb.net中顯示圓形的信息
文章起源：http://muchs.cn/article40/hgiheo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、動態(tài)網(wǎng)站、用戶體驗、品牌網(wǎng)站制作、網(wǎng)站制作、虛擬主機(jī)

廣告

聲明：本網(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)