自己用PhotoShop之類的圖像處理軟件做一個(gè)圓角按鈕圖片,放到窗體上作為Image控件,然后用下面的代碼代替按鈕的代碼:
目前創(chuàng)新互聯(lián)建站已為上1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁(yè)空間、綿陽(yáng)服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、萬(wàn)秀網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng),共同發(fā)展。
Private Sub Image1_Click()
'這里放入點(diǎn)擊圖片后要執(zhí)行的代碼
End Sub
如果想更美觀一些,你可以另外再做一張鼠標(biāo)懸停時(shí)的圖片,以及鼠標(biāo)點(diǎn)擊時(shí)候的圖片,然后結(jié)合Image1_MouseMove事件和Image1_MouseDown事件,做出有動(dòng)態(tài)效果的圖形按鈕來(lái)
如下所示:
Private?Sub?Type(ByVal?sender?As?Control,?ByVal?p_1?As?Integer,?ByVal?p_2?As?Double)
Dim?oPath?As?New?Drawing2D.GraphicsPath()
oPath.AddClosedCurve(New?Point()?{New?Point(0,?sender.Height?/?p_1),?New?Point(sender.Width?/?p_1,?0),?New?Point(sender.Width?-?sender.Width?/?p_1,?0),?New?Point(sender.Width,?sender.Height?/?p_1),?New?Point(sender.Width,?sender.Height?-?sender.Height?/?p_1),?New?Point(sender.Width?-?sender.Width?/?p_1,?sender.Height),?_
New?Point(sender.Width?/?p_1,?sender.Height),?New?Point(0,?sender.Height?-?sender.Height?/?p_1)},?CSng(p_2))
sender.Region?=?New?Region(oPath)
End?Sub
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Type(Me,?20,?0.1)
End?Sub
先制作按鈕樣式圖片,把按鈕style屬性設(shè)為1,picture屬性設(shè)為制作好的圖片。
也可以用shape加label控件代替command控件。
設(shè)置按鈕的屬性Style為1,且將按鈕的屬性Picture選你想加載的圖片或設(shè)置按鈕的屬性BackColor的顏色,都可作出漂亮的按鈕.如要改變按鈕形狀則較復(fù)雜.可使用2個(gè)Shape控件和1個(gè)Label控件完成(仿3D效果),3控件的顏色設(shè)成一樣。如需加載圖片則Label控件改用PictureBox控件,具體代碼:
Private Sub Form_Load()
Shape2.Visible = False
End Sub
Private Sub Label1_Click()
Form2.Show
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape2.Visible = True
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape2.Visible = False
End Sub
標(biāo)準(zhǔn)控件是不能變的,但你可以靈活一點(diǎn),用Image控件來(lái)代替Command控件,你加載個(gè)圓角的圖片就是。
個(gè)人不建議用ActiveX控件,用了ActiveX控件到別的機(jī)子上運(yùn)行就要安裝。一個(gè)軟件要追求綠色,很多時(shí)候很多人一看到軟件要安裝就不想用了。