如何用VB更改标题栏的字体和颜色？不是窗体上的文字！谢谢各位高手指点
要能直接用代码或更改属性来实现，越简单越好
不好意思说的不够清楚，我意思我用VB做了个浏览器，FORM的Caption是我的名字，我想把在标题栏上显示的的名字的字体大小和字型改好看一点，不知道怎么改，还有是标题栏的颜色。
请指点谢谢，不是改变系统的所有的窗体的样式。
声明：
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))
'把标题设置为红色
所以，vb本身并没有什么属性和方法来改变，只能通过api函数。本回答被网友采纳
如何用VB更改标题栏的字体和颜色?不是窗体上的文字!谢谢各位高手...
'把标题设置为红色
如何更改VB中代码窗口的背景颜色,字体颜色等
窗体字体颜色通过ForeColor属性设置，这里设置为红色 Form1.BackColor = "&H00FF00"'窗体背景颜色通过BackColor属性设置，这里设置为绿色End Sub
vb中如何改变对话框的字体
'函数调用方法:MyMsgBox 显示的信息,按钮,标题,字体名称(默认为宋体),字体大小,斜体,下划线,删除线 '窗体代码 Private Sub Command1_Click()MyMsgBox "我变,我变,我变变变!!!", vbYesNo, "- -|||", "黑体"End Sub '模块代码 Private Declare Function SetWindowsHookEx Lib "user32" Alias ...
VB窗体上字体的颜色?
在VB窗体上调整字体颜色可以通过创建线性渐变刷子来实现，以下代码展示了如何在加载窗体时启动计时器，然后在计时器触发时动态改变字体颜色。首先定义一些变量，如渐变颜色的起始值MyGradient和步长MyStep，以及用于控制Esc按键的常量VK_ESCAPE。初始化计时器Timer2，并设置其周期。在Timer2_Tick事件处理程序中...
vb中listview控件怎么改变某一项的字体和字体颜色
一、改变颜色 在VB6的ListView控件中，可以改变项目及其子项的前景色、背景色。实现方法如下 （1）在窗体上布置一个ListView控件 （2）窗体代码如下 Option ExplicitPrivate Sub Form_Load() Dim itemX As ListItem With ListView1 .View = lvwReport .ColumnHeaders.Add , , "类别" ...
VB 怎么改变窗体的颜色 怎么显示一段话
第一个问题：1.打开VB，在“工程”→“部件”中选择“Microsoft Common Dialog Control 6.0”单击确定。2.在窗体中添加这个Commondialog控件，再添加一个按钮。3.双击按钮再添加如下代码：Private Sub Command1_Click()CommonDialog1.ShowColor Form1.BackColor = CommonDialog1.Color End Sub 4.按F5...
如何用Vb编写具有菜单功能包括“打开”、“颜色”、“字体”(能弹出对...
1，你会在窗体上添加菜单吗？如果不会，先学好添加菜单。然后再学commondialog这个控件就行了。2，commondialog这个控件要自己添加，右击工具箱，单击部件，找到并选好microsoft common dialog control 6.0，再单击确定就可以了。3，利用commondialog的showopen 、showcolor、showfont方法就可以分别实现弹出...
vb.net如何设置FORM的text字体
您好。修改FORM的Font属性就可以修改窗体和其中所有控件的字体。Me.Font = New System.Drawing.Font("宋体", 10)另外，FORM标题栏的TEXT字体和颜色是操作系统决定的，要想改变，只能调用系统的api函数，截获操作系统的消息来改变。下面的网址有C#版本的重绘标题栏范例http:\/\/outofmemory.cn\/code-snippet...
怎么在vb窗体上直接显示内容(汉字),可以改变它出现的位置,大小,颜色等...
1、打开VB软件，在窗体上添加一个标签。2、点击标签，在属性窗口设置标签的属性和名称，将其Caption设置为“快乐学习”。3、再在窗体上面，添加一个列表框控件。4、双击列表框，开始编辑代码。5、运行程序，点击列表框中不同的数值，观察标签中字体的大小变化。注意事项：VB拥有图形用户界面（GUI）和快速...
怎样运用VB随机函数改变窗体颜色和文本框字体的大小。
在窗体上画一timer控件和一文本框，然后写以下代码:Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()Randomize x = Int(Rnd()90 + 10)Text1.FontSize = x Randomize a = Int(Rnd()255)b = Int(Rnd()255)c = Int(Rnd()255)...
