themex.ctl

用vb编写的工程控制程序

      Top             =   5760
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image6 
      Height          =   60
      Index           =   2
      Left            =   240
      Picture         =   "ThemeX.ctx":4434
      Stretch         =   -1  'True
      Top             =   5760
      Visible         =   0   'False
      Width           =   2640
   End
   Begin VB.Image Image5 
      Height          =   1695
      Index           =   2
      Left            =   2970
      Picture         =   "ThemeX.ctx":4516
      Stretch         =   -1  'True
      Top             =   4080
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image4 
      Height          =   1665
      Index           =   2
      Left            =   150
      Picture         =   "ThemeX.ctx":466C
      Stretch         =   -1  'True
      Top             =   4080
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image3 
      Height          =   450
      Index           =   2
      Left            =   2850
      Picture         =   "ThemeX.ctx":4786
      Top             =   3630
      Visible         =   0   'False
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   450
      Index           =   2
      Left            =   150
      Picture         =   "ThemeX.ctx":4C78
      Top             =   3630
      Visible         =   0   'False
      Width           =   165
   End
   Begin VB.Image Image1 
      Height          =   450
      Index           =   2
      Left            =   300
      Picture         =   "ThemeX.ctx":50F2
      Stretch         =   -1  'True
      Top             =   3630
      Visible         =   0   'False
      Width           =   2565
   End
   Begin VB.Image Image8 
      Height          =   60
      Index           =   1
      Left            =   1890
      Picture         =   "ThemeX.ctx":5B0C
      Top             =   2250
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image7 
      Height          =   60
      Index           =   1
      Left            =   4770
      Picture         =   "ThemeX.ctx":5DA2
      Top             =   2250
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image6 
      Height          =   60
      Index           =   1
      Left            =   1980
      Picture         =   "ThemeX.ctx":6034
      Stretch         =   -1  'True
      Top             =   2250
      Visible         =   0   'False
      Width           =   2835
   End
   Begin VB.Image Image5 
      Height          =   2100
      Index           =   1
      Left            =   4770
      Picture         =   "ThemeX.ctx":6366
      Stretch         =   -1  'True
      Top             =   150
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image4 
      Height          =   2085
      Index           =   1
      Left            =   1890
      Picture         =   "ThemeX.ctx":66CE
      Stretch         =   -1  'True
      Top             =   180
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image3 
      Height          =   450
      Index           =   1
      Left            =   4680
      Picture         =   "ThemeX.ctx":6A44
      Top             =   120
      Visible         =   0   'False
      Width           =   150
   End
   Begin VB.Image Image2 
      Height          =   450
      Index           =   1
      Left            =   1890
      Picture         =   "ThemeX.ctx":6D26
      Top             =   120
      Visible         =   0   'False
      Width           =   150
   End
   Begin VB.Image Image1 
      Height          =   450
      Index           =   1
      Left            =   2040
      Picture         =   "ThemeX.ctx":7002
      Stretch         =   -1  'True
      Top             =   120
      Visible         =   0   'False
      Width           =   2685
   End
   Begin VB.Image Image8 
      Height          =   60
      Index           =   0
      Left            =   150
      Picture         =   "ThemeX.ctx":7364
      Top             =   2850
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image7 
      Height          =   60
      Index           =   0
      Left            =   2910
      Picture         =   "ThemeX.ctx":769D
      Top             =   2850
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image6 
      Height          =   60
      Index           =   0
      Left            =   240
      Picture         =   "ThemeX.ctx":79D7
      Stretch         =   -1  'True
      Top             =   2850
      Visible         =   0   'False
      Width           =   2760
   End
   Begin VB.Image Image5 
      Height          =   2085
      Index           =   0
      Left            =   2940
      Picture         =   "ThemeX.ctx":7D05
      Stretch         =   -1  'True
      Top             =   780
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image4 
      Height          =   1665
      Index           =   0
      Left            =   150
      Picture         =   "ThemeX.ctx":8033
      Stretch         =   -1  'True
      Top             =   1170
      Visible         =   0   'False
      Width           =   60
   End
   Begin VB.Image Image3 
      Height          =   450
      Index           =   0
      Left            =   2850
      Picture         =   "ThemeX.ctx":8361
      Top             =   720
      Visible         =   0   'False
      Width           =   150
   End
   Begin VB.Image Image2 
      Height          =   450
      Index           =   0
      Left            =   150
      Picture         =   "ThemeX.ctx":8761
      Top             =   720
      Visible         =   0   'False
      Width           =   150
   End
   Begin VB.Image Image1 
      Height          =   450
      Index           =   0
      Left            =   300
      Picture         =   "ThemeX.ctx":8B58
      Stretch         =   -1  'True
      Top             =   720
      Visible         =   0   'False
      Width           =   2565
   End
End
Attribute VB_Name = "ThemeX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public Sub ChangeTheme(m_Left As Image, _
                        m_TitleLeft As Image, _
                        m_Title As Image, _
                        m_TitleRight As Image, _
                        m_Right As Image, _
                        m_Bottom As Image, _
                        m_BottomLeft As Image, _
                        m_BottomRight As Image, _
                        Optional IsTheme As Integer, _
                        Optional IsActive As Boolean = True)
                        
    Dim I As Integer
    
    I = IsTheme * 2
    
    If Not IsActive Then
        I = I + 1
    End If
    
    m_Left.Picture = Image4(I).Picture
    m_TitleLeft.Picture = Image2(I).Picture
    m_Title.Picture = Image1(I).Picture
    m_TitleRight.Picture = Image3(I).Picture
    m_Right.Picture = Image5(I).Picture
    m_BottomLeft.Picture = Image8(I).Picture
    m_Bottom.Picture = Image6(I).Picture
    m_BottomRight.Picture = Image7(I).Picture
                      

End Sub