重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
自己用PhotoShop之类的图像处理软件做一个圆角按钮图片,放到窗体上作为Image控件,然后用下面的代码代替按钮的代码:
目前创新互联建站已为上1000+的企业提供了网站建设、域名、网页空间、绵阳服务器托管、企业网站设计、万秀网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Private Sub Image1_Click()
'这里放入点击图片后要执行的代码
End Sub
如果想更美观一些,你可以另外再做一张鼠标悬停时的图片,以及鼠标点击时候的图片,然后结合Image1_MouseMove事件和Image1_MouseDown事件,做出有动态效果的图形按钮来
如下所示:
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属性设为1,picture属性设为制作好的图片。
也可以用shape加label控件代替command控件。
设置按钮的属性Style为1,且将按钮的属性Picture选你想加载的图片或设置按钮的属性BackColor的颜色,都可作出漂亮的按钮.如要改变按钮形状则较复杂.可使用2个Shape控件和1个Label控件完成(仿3D效果),3控件的颜色设成一样。如需加载图片则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
标准控件是不能变的,但你可以灵活一点,用Image控件来代替Command控件,你加载个圆角的图片就是。
个人不建议用ActiveX控件,用了ActiveX控件到别的机子上运行就要安装。一个软件要追求绿色,很多时候很多人一看到软件要安装就不想用了。