请问标题和工具栏背景颜色如何更改！

cinrd 2004-04-22 07:12:46

就是菜单编辑栏和控件Toolbar的背景，颜色想改，不然很不搭配

...全文

493 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

keiven 2004-08-12

打赏
举报

我也在找这方面的资料。

cinrd 2004-07-05

打赏
举报

下巴掉到地上....................

zyguyue 2004-07-05

打赏
举报

应该只有自己做控件

James0001 2004-07-04

打赏
举报

// 有点无耻的办法，修改系统对象颜色，程序退出时改回来~
// ...

（还真有点无耻）

cxx1121 2004-07-03

打赏
举报

up again!!

cxx1121 2004-06-28

打赏
举报

BlueBeer 2004-06-27

打赏
举报

不怕用户骂的话，可以选用：）

BlueBeer 2004-06-27

打赏
举报

有点无耻的办法，修改系统对象颜色，程序退出时改回来~

Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper
Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Const COLOR_MENU = 4 'Menu
Const COLOR_WINDOW = 5 'Windows background
Const COLOR_WINDOWFRAME = 6 'Window frame
Const COLOR_MENUTEXT = 7 'Window Text
Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Const COLOR_ACTIVEBORDER = 10 'Border of active window
Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Const COLOR_HIGHLIGHT = 13 'Selected item background
Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Const COLOR_BTNFACE = 15 'Button
Const COLOR_BTNSHADOW = 16 '3D shading of button
Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Const COLOR_BTNTEXT = 18 'Button text
Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button
Const COLOR_2NDACTIVECAPTION = 27 'Win98 only: 2nd active window color
Const COLOR_2NDINACTIVECAPTION = 28 'Win98 only: 2nd inactive window color
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Dim SavedColors(28) As Long, IndexArray(28) As Long, NewColors(28) As Long

Private Sub Form_Load()
' Save current system colors:
For i = 0 To 28
SavedColors(i) = GetSysColor(i)
Next i
' Change all display elements:
For i = 0 To 28
Randomize Timer
NewColors(i) = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
IndexArray(i) = i
Next i
SetSysColors 29, IndexArray(0), NewColors(0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
' Restore system colors:
SetSysColors 29, IndexArray(0), SavedColors(0)
End Sub

cxx1121 2004-06-26