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

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

取得和设置系统颜色

声明vb.net标题栏颜色：

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

使用vb.net标题栏颜色：

i =GetSysColors(COLOR_ACTIVECAPTION)

'i 是 RGB 值

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

'把标题设置为红色

相关问答

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

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

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

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

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

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

vb.net标题栏颜色的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb的标题栏、vb.net标题栏颜色的信息别忘了在本站进行查找喔。