重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先制作按钮样式图片,把按钮style属性设为1,picture属性设为制作好的图片。
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:主机域名、网页空间、营销软件、网站建设、富平网站维护、网站推广。
也可以用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
设置按钮的属性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控件到别的机子上运行就要安装。一个软件要追求绿色,很多时候很多人一看到软件要安装就不想用了。