有谁知道哪里有常用的系统图标，不要花里胡哨的，还有，谁知道怎么把窗体、工具栏、状态栏都变成我需要的颜色？？

Question

有谁知道哪里有常用的系统图标，不要花里胡哨的，还有，谁知道怎么把窗体、工具栏、状态栏都变成我需要的颜色？？

Answer 1

安装vb6时
自带有一些系统的常用图标
你可以到vb的安装文件夹中去找
或者直接搜索*.ico文件.

Answer 2

在属性的FILLCOLOR里设置！
就有你自己所需要的颜色了。
图标吗？
你去网上搜一下一般都是有的，
要不我下次给你找一下了，
现在我的网络好慢，
老是找不开网页。

Answer 3

图标下载你用google搜索很多，我提供改变系统颜色和字体的代码，注意这是改变系统的，不仅仅你自己的程序Const COLOR_SCROLLBAR = 0
Const COLOR_BACKGROUND = 1
Const COLOR_ACTIVECAPTION = 2
Const COLOR_INACTIVECAPTION = 3
Const COLOR_MENU = 4
Const COLOR_WINDOW = 5
Const COLOR_WINDOWFRAME = 6
Const COLOR_MENUTEXT = 7
Const COLOR_WINDOWTEXT = 8
Const COLOR_CAPTIONTEXT = 9
Const COLOR_ACTIVEBORDER = 10
Const COLOR_INACTIVEBORDER = 11
Const COLOR_APPWORKSPACE = 12
Const COLOR_HIGHLIGHT = 13
Const COLOR_HIGHLIGHTTEXT = 14
Const COLOR_BTNFACE = 15
Const COLOR_BTNSHADOW = 16
Const COLOR_GRAYTEXT = 17
Const COLOR_BTNTEXT = 18
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(18) As Long, IndexArray(18) As Long, NewColors(18) As Long
Private Sub Form_Load()    For i = 0 To 18
        SavedColors(i) = GetSysColor(i)
    Next i    ' Change all display elements:
    For i = 0 To 18
        Randomize Timer
        NewColors(i) = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        IndexArray(i) = i
    Next i
    SetSysColors 19, IndexArray(0), NewColors(0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    ' Restore system colors:
    SetSysColors 19, IndexArray(0), SavedColors(0)
End Sub

Answer 4

D:\Program Files\Microsoft Visual Studio\Common下面很多图标
颜色设置就入楼上所说

Answer 5

http://vbeden.xg88.com/download/photo_res/flicons1853.zip