syscolor.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "*\A..\SOURCE\FAST2003.vbp"
Object = "*\A..\SOURCE\FAST2003.vbp"
Begin VB.Form frmSysColors 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "System Colors"
   ClientHeight    =   1635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "SysColor.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1635
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.ComboBox cboColor 
      Height          =   315
      Left            =   180
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   225
      Width           =   4110
   End
   Begin FLWSystem.FWSysInfo objSysInfo 
      Left            =   4110
      Top             =   1050
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblColor 
      AutoSize        =   -1  'True
      Caption         =   "This's a test"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   225
      TabIndex        =   1
      Top             =   900
      Width           =   1890
   End
End
Attribute VB_Name = "frmSysColors"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cboColor_Click()
  Select Case cboColor.ListIndex
    Case 0
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorScrollBar)
    Case 1
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorDesktop)
    Case 2
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorActiveTitleBar)
    Case 3
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorInactiveTitleBar)
    Case 4
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorMenuBar)
    Case 5
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorWindowBackground)
    Case 6
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorWindowFrame)
    Case 7
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorMenuText)
    Case 8
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorWindowText)
    Case 9
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorTitleBarText)
    Case 10
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorActiveBorder)
    Case 11
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorInactiveBorder)
    Case 12
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorAppWorkspace)
    Case 13
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorHighlight)
    Case 14
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorHighlightText)
    Case 15
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorButtonFace)
    Case 16
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorButtonShadow)
    Case 17
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorDisabledText)
    Case 18
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorButtonText)
    Case 19
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorInactiveTitleBarText)
    Case 20
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorButtonHightlight)
    Case 21
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorButtonDarkShadow)
    Case 22
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorButtonLightShadow)
    Case 23
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorToolTipText)
    Case 24
      lblColor.BackColor = objSysInfo.SysColor(FLWSystem.flwColorToolTip)
  End Select
  lblColor.Caption = cboColor.Text
End Sub

Private Sub Form_Load()
  lblColor.Caption = ""
  With cboColor
    Call .AddItem("ScrollBar")
    Call .AddItem("Desktop")
    Call .AddItem("Active TitleBar")
    Call .AddItem("Inactive TitleBar")
    Call .AddItem("Menu Bar")
    Call .AddItem("Window Background")
    Call .AddItem("Window Frame")
    Call .AddItem("Menu Text")
    Call .AddItem("Window Text")
    Call .AddItem("Active TitleBar Text")
    Call .AddItem("Active Border")
    Call .AddItem("Inactive Border")
    Call .AddItem("App Workspace")
    Call .AddItem("Highlight")
    Call .AddItem("Highlight Text")
    Call .AddItem("Button Face")
    Call .AddItem("Button Shadow")
    Call .AddItem("Disabled Text")
    Call .AddItem("Button Text")
    Call .AddItem("Inactive TitleBar Text")
    Call .AddItem("Button Hightlight")
    Call .AddItem("Button Dark Shadow ")
    Call .AddItem("Button Light Shadow")
    Call .AddItem("Tooltip Text")
    Call .AddItem("Tooltip")
  End With
  cboColor.ListIndex = 0
End Sub