新建一個Winform,拖兩個圖片框。圖片框1在設(shè)計器中選擇一個圖片(尺寸在圖片框容納為佳)。如下代碼測試通過:
創(chuàng)新互聯(lián)主營曾都網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都app軟件開發(fā)公司,曾都h5小程序制作搭建,曾都網(wǎng)站營銷推廣歡迎曾都等地區(qū)企業(yè)咨詢
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;
}
窗體上添加一個按鈕,在該按鈕的單擊事件里編寫代碼如下:
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)切橢圓。
可以啊
me_paint 事件中添加畫圖語句
me.creategraphic.drawellipse(pen,center,r,r)
center 是圓心位置point 類型數(shù)據(jù)
添加一個timer控件 控制動畫
在控件的tick事件中添加語句
center.x+=1
center.y=center.x * 10+50
me.invalidate '(以一次函數(shù)y=10x+50運動,可以換成你需要的運動軌跡)
網(wǎng)站題目:vb.net圓形動畫 vb圓形按鈕控件
文章轉(zhuǎn)載:http://muchs.cn/article14/dosjhge.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、標簽優(yōu)化、電子商務(wù)、面包屑導(dǎo)航、網(wǎng)站營銷、響應(yī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)