浏览器

开发平台：

Visual Basic

WCCmClassID.bas：源码内容

							Attribute VB_Name = "mWCCmClassID"
'---------------------------------------------------------------------------------------
' Module    : mWCCmClassID
' DateTime  : 2005-4-8 01:45
' Author    : Lingll
' Purpose   : 存放LCmnCtrl32.dll相关
'---------------------------------------------------------------------------------------
Option Explicit
'cStatusbar32 class
Public Const strCLSID_cStatusbar32 As String = "{024AB8AD-99CC-43C0-96B4-5C32CC26CDC0}"
'cSysListView32 class
Public Const strCLSID_cSysListView32 As String = "{5640DAF3-B3D9-4210-BA9A-33A3B124D682}"
'cToolBar class
Public Const strCLSID_cToolBar As String = "{124F39D6-BEC5-4EF7-97FF-2DF7D4ADE7E4}"
'cTabControl32 class
Public Const strCLSID_cTabControl32 As String = "{ED9024E8-15AA-409D-A890-F813E3D2DB1F}"
'cTreeView32 class
Public Const strCLSID_cTreeView32 As String = "{3A5E9FAD-36E7-49E6-A344-DDBE0FE2ECB2}"
'cRebar class
Public Const strCLSID_cRebar As String = "{64874762-4A0E-4ECD-ADCF-9DC5DDA46740}"
Private Const m_dllfile As String = "LCmnCtrl32.dll"
Public Function CreateCmmCtrl(vClsId$) As Object
Dim tDll As cCrDllObj
Set tDll = New cCrDllObj
tDll.IniClsId vClsId
Set CreateCmmCtrl = tDll.CreateMyDllObject(App.path & "" & m_dllfile)
tDll.UnloadDll
End Function

						