vb.net标题栏颜色 VB标题栏

怎么在VB.NET的标题栏上添加控间啊,或是怎么改变标题栏字体的颜色?

标题栏不能修改，但可以隐藏，自己绘制最大化、最小化、关闭按钮和代码，还有无边框移动窗体、改变窗体大小的代码。

专注于为中小企业提供网站制作、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业全椒免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了成百上千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

也可以用api，百度应该能找到。

vb.net加载主窗体时,菜单栏有颜色，像乱码怎么回事，加载完了就没有了，就瞬间，求解决，真的很难受看着

Public Class Form1

Dim I As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

I = I + 1

If I = 10 Then Me.Show()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Hide()

End Sub

End Class

你可以先隐藏窗体 让他加载完 再显示出来 如上代码 如果还不够时间 可以适当增加

VB.net如何更改窗体标题栏颜色？

这东西改不了，要想改的话要在系统显示设置里修改主题。

不过如果想做的漂亮些，可以去网上找代码把整个窗体改成蓝色（随便一种颜色）然后用代码把窗体蓝色部分扣去，可以PS一个窗体图片，插到窗体上，这样这个窗体蓝色部分都被扣去了（图片里的蓝色无法扣去）只能看见一张图片，可以在上面加控件。

如何用VB更改标题栏的字体和颜色？不是窗体上的文字！谢谢各位高手指点

取得和设置系统颜色

声明：

Public Const COLOR_SCROLLBAR = 0 '滚动条

Public Const COLOR_BACKGROUND = 1 '桌面背景

Public Const COLOR_ACTIVECAPTION = 2 '活动窗口标题

Public Const COLOR_INACTIVECAPTION = 3 '非活动窗口标题

Public Const COLOR_MENU = 4 '菜单

Public Const COLOR_WINDOW = 5 '窗口背景

Public Const COLOR_WINDOWFRAME = 6 '窗口框

Public Const COLOR_MENUTEXT = 7 '窗口文字

Public Const COLOR_WINDOWTEXT = 8 '3D 阴影 (Win95)

Public Const COLOR_CAPTIONTEXT = 9 '标题文字

Public Const COLOR_ACTIVEBORDER = 10 '活动窗口边框

Public Const COLOR_INACTIVEBORDER = 11 '非活动窗口边框

Public Const COLOR_APPWORKSPACE = 12 'MDI 窗口背景

Public Const COLOR_HIGHLIGHT = 13 '选择条背景

Public Const COLOR_HIGHLIGHTTEXT = 14 '选择条文字

Public Const COLOR_BTNFACE = 15 '按钮

Public Const COLOR_BTNSHADOW = 16 '3D 按钮阴影

Public Const COLOR_GRAYTEXT = 17 '灰度文字

Public Const COLOR_BTNTEXT = 18 '按钮文字

Public Const COLOR_INACTIVECAPTIONTEXT = 19 '非活动窗口文字

Public Const COLOR_BTNHIGHLIGHT = 20 '3D 选择按钮

Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

Declare Function GetSysColor Lib "user32" Alias "GetSysColor" (ByVal nIndex As Long) As Long

使用：

i =GetSysColors(COLOR_ACTIVECAPTION)

'i 是 RGB 值

i = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255,0,0))

'把标题设置为红色