可以的,下面的這個例子是把picturebox 的形狀改成橢圓形的。
成都創(chuàng)新互聯公司主要從事網站設計制作、成都網站建設、網頁設計、企業(yè)做網站、公司建網站等業(yè)務。立足成都服務白云鄂,十余年網站建設經驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'圓形的picturebox
Me.PictureBox1.BackColor = Color.Red
Dim path1 As New System.Drawing.Drawing2D.GraphicsPath
path1.AddEllipse(New Rectangle(0, 0, 30, 30))
Dim region1 As New System.Drawing.Region(path1)
Me.PictureBox1.Region = region1
End Sub
'我給你找到了,設置region屬性就可
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對象可以作出各種形態(tài)來,比如可作出文字形狀
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)
記得VB6當中有Shape控件,但是VB.net里這個控件不存在了。
提個思路:使用Picture控件或Label控件,通過代碼在控件里繪圖想要的圖形,可以試試。
屬性里面先把UseWaitCursor改為true然后再改Cursor的屬性。選擇一個你要的形狀