vb点虐 控件圆角 vbnet tabcontrol

vb的按钮怎样做成圆角的

先制作按钮样式图片,把按钮style属性设为1,picture属性设为制作好的图片。

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:主机域名、网页空间、营销软件、网站建设、富平网站维护、网站推广。

也可以用shape加label控件代替command控件。

如何在vb点虐 中创建圆角窗体

如下所示:

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

VB圆角按钮按钮怎么做?

设置按钮的属性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

VB添加的按钮怎么样才能变成圆角的

标准控件是不能变的,但你可以灵活一点,用Image控件来代替Command控件,你加载个圆角的图片就是。

个人不建议用ActiveX控件,用了ActiveX控件到别的机子上运行就要安装。一个软件要追求绿色,很多时候很多人一看到软件要安装就不想用了。


网站栏目:vb点虐 控件圆角 vbnet tabcontrol
本文网址:http://myzitong.com/article/ddjsceg.html