mmain.bas

xpTabs 控件,界面漂亮

Attribute VB_Name = "mMain"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：05/06/24
'描  述：多样式TAB选项卡控件
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit

Private Declare Sub InitCommonControls Lib "comctl32" ()
Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
Private Const SEM_FAILCRITICALERRORS = &H1
Private Const SEM_NOGPFAULTERRORBOX = &H2
Private Const SEM_NOOPENFILEERRORBOX = &H8000

Private m_bInIDE As Boolean

Public Sub Main()
   InitCommonControls
   
   Dim f As New frmTestTabs
   f.Show
   
End Sub

Public Sub UnloadApp()
   If Not InIDE() Then
      SetErrorMode SEM_NOGPFAULTERRORBOX
   End If
End Sub

Public Property Get InIDE() As Boolean
   Debug.Assert (IsInIDE())
   InIDE = m_bInIDE
End Property

Private Function IsInIDE() As Boolean
   m_bInIDE = True
   IsInIDE = m_bInIDE
End Function