記得VB6當(dāng)中有Shape控件,但是VB.net里這個(gè)控件不存在了。
創(chuàng)新互聯(lián)長(zhǎng)期為上千家客戶(hù)提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開(kāi)放共贏平臺(tái),與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為響水企業(yè)提供專(zhuān)業(yè)的成都做網(wǎng)站、網(wǎng)站建設(shè),響水網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。
提個(gè)思路:使用Picture控件或Label控件,通過(guò)代碼在控件里繪圖想要的圖形,可以試試。
vb.net中控件都是矩形的,如果一定要看起來(lái)是其他形狀的,只能用背景圖片,一般要三個(gè)背景圖片,正常時(shí)候、鼠標(biāo)移上時(shí)候、按下時(shí)候的。分別在按鈕的四個(gè)事件: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
'這個(gè)雙擊圖片框使其變形,通過(guò)GraphicsPath對(duì)象可以作出各種形態(tài)來(lái),比如可作出文字形狀
Dim?stringText?As?String?=?"我是誰(shuí)"
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)
網(wǎng)站題目:vb.net自定義形狀 vb形狀控件
文章源于:http://chinadenli.net/article20/doddpco.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供用戶(hù)體驗(yàn)、靜態(tài)網(wǎng)站、自適應(yīng)網(wǎng)站、網(wǎng)站策劃、品牌網(wǎng)站設(shè)計(jì)、關(guān)鍵詞優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)