先制作按鈕樣式圖片,把按鈕style屬性設(shè)為1,picture屬性設(shè)為制作好的圖片。
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴,公司提供的服務(wù)項目有:主機域名、網(wǎng)頁空間、營銷軟件、網(wǎng)站建設(shè)、富平網(wǎng)站維護(hù)、網(wǎng)站推廣。
也可以用shape加label控件代替command控件。
如下所示:
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
設(shè)置按鈕的屬性Style為1,且將按鈕的屬性Picture選你想加載的圖片或設(shè)置按鈕的屬性BackColor的顏色,都可作出漂亮的按鈕.如要改變按鈕形狀則較復(fù)雜.可使用2個Shape控件和1個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)控件是不能變的,但你可以靈活一點,用Image控件來代替Command控件,你加載個圓角的圖片就是。
個人不建議用ActiveX控件,用了ActiveX控件到別的機子上運行就要安裝。一個軟件要追求綠色,很多時候很多人一看到軟件要安裝就不想用了。