'我給你找到了,設置region屬性就可
我們提供的服務有:網站制作、做網站、微信公眾號開發、網站優化、網站認證、平房ssl等。為成百上千企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務,是有科學管理、有技術的平房網站制作公司
Private?Sub?PictureBox1_DoubleClick(sender?As?System.Object,?e?As?System.EventArgs)?Handles?PictureBox1.DoubleClick
If?PictureBox1.Region?Is?Nothing?Then
Dim?path?As?New?System.Drawing.Drawing2D.GraphicsPath
path.AddEllipse(0,?0,?200,?200)
PictureBox1.Region?=?New?Region(path)
Else
PictureBox1.Region?=?Nothing
End?If
End?Sub
'這個雙擊圖片框使其變形,通過GraphicsPath對象可以作出各種形態來,比如可作出文字形狀
Dim?stringText?As?String?=?"我是誰"
Dim?family?As?New?FontFamily("Arial")
Dim?myfontStyle?As?Integer?=?CInt(FontStyle.Italic)
Dim?emSize?As?Integer?=?86
Dim?origin?As?New?Point(20,?20)
Dim?format?As?StringFormat?=?StringFormat.GenericDefault
path.AddString(stringText,?family,?myfontStyle,?emSize,?_
origin,?format)
PictureBox1.Region?=?New?Region(path)
新建一個Winform,拖兩個圖片框。圖片框1在設計器中選擇一個圖片(尺寸在圖片框容納為佳)。如下代碼測試通過:
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;
}
這個簡單.
加入一個圖片框:picture1.
一個命今按鈕:command1.
按鈕的單擊事件在圖片框里畫圖:
Private Sub Command1_Click()
Picture1.Circle (600, 800), 500, vbRed '畫圓
Picture1.Line (300, 400)-(1700, 1800), vbBlue '畫線
Picture1.Line (600, 500)-(600, 1500), vbGreen '下面四項都是畫矩形的
Picture1.Line (600, 1500)-(2500, 1500), vbGreen
Picture1.Line (2500, 1500)-(2500, 500), vbGreen
Picture1.Line (2500, 500)-(600, 500), vbGreen
End Sub
vb.net 怎么來回切換圖片?1、添加控件Picturebox1和控件Timer1,將Timer1的Interval屬性改為1000(即1秒),Enabled屬性改為True
2、假設你要循環切換4張圖片,你可以添加如下代碼即可實現:
Dim a As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If a = 4 Then
a = 0
Else
a = a + 1
End If
If a = 0 Then Me.PictureBox1.Image = Image.FromFile("1.jpg")
If a = 1 Then Me.PictureBox1.Image = Image.FromFile("2.jpg")
If a = 2 Then Me.PictureBox1.Image = Image.FromFile("3.jpg")
If a = 3 Then Me.PictureBox1.Image = Image.FromFile("4.jpg")
End Sub
可以
做一個ocx控件,思路如下:用api函數做一個圓形窗體,在里面放置按鈕或者圖片框,將窗體的屬性綁定到按鈕或者圖片框的屬性,打包生成ocx控件,就成為你想要的圓形按鈕了
如果嫌麻煩,可以直接下一個這樣的控件,網上很多的
分享文章:vb.net圓形圖片框 VB圖片框和圖像框的特點
當前網址:http://m.newbst.com/article34/dodhgpe.html
成都網站建設公司_創新互聯,為您提供App開發、用戶體驗、網站制作、響應式網站、商城網站、網站設計
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯