記得VB6當(dāng)中有Shape控件,但是VB.net里這個控件不存在了。
創(chuàng)新互聯(lián)長期為上千家客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為響水企業(yè)提供專業(yè)的成都做網(wǎng)站、網(wǎng)站建設(shè),響水網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。
提個思路:使用Picture控件或Label控件,通過代碼在控件里繪圖想要的圖形,可以試試。
vb.net中控件都是矩形的,如果一定要看起來是其他形狀的,只能用背景圖片,一般要三個背景圖片,正常時(shí)候、鼠標(biāo)移上時(shí)候、按下時(shí)候的。分別在按鈕的四個事件:MouseHover MouseLeave MouseDown MouseUp的時(shí)候更換成相應(yīng)的背景圖片
'我給你找到了,設(shè)置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)