十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
vb更换标题栏颜色具体步骤如下:
公司主营业务:成都网站建设、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。成都创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联推出安义免费做网站回馈大家。
1、设置窗口的边界属性(FormBorderStyle)为None,即不显示边界,此种情况下,窗体默认的标题栏就不会显示。
2、接着,使用panel控件来做自己的标题栏,并将其绑定边框属性(Dock)设置为Top,使其显示在窗体顶部。设置其高度属性(Height)到一个合适的值,将其背景色属性(BackColor)设置为自己需要的颜色即可。
这个框线颜色是由Windows系统的桌面主题决定的(意思就是说只要是在windows系统中开发的软件,其中使用到的文本框或按钮控件等等其样式就受系统控制了,以保证其在各种不同软件中有相同的呈现,否则的话会损害用户体验)。软件中能自主改变的颜色只有背景色。当然,你也可以通过API函数来改变框线颜色,但这种改变是全局性的,就是说一旦改了,那么在其他软件中(即使不是VB开发的软件)出现的同类控件也会跟着改变。建议你从背景色入手,通过其对比度来间接实现框线的变化。
要么重写这个控件的 OnPaint 事件,判断 BorderStyle 属性为 FixedSingle 的时候自绘其他颜色。
要么不重写,把 BorderStyle 设为 None,直接在这个控件的 Paint 事件里自绘边框,例如:
Private Sub Label1_Paint(sender As Object, e As PaintEventArgs) Handles Label1.Paint
e.Graphics.DrawRectangle(Pens.Red, New Rectangle(Label1.DisplayRectangle.X, Label1.DisplayRectangle.Y, Label1.DisplayRectangle.Width - 1, Label1.DisplayRectangle.Height - 1))
End Sub
运行效果: