home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / RedHat_She1841961192005.psc / VB / cEnvironment.cls next >
Text File  |  2004-10-31  |  744b  |  33 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cEnvironment"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16.  
  17. Public Enum eEnvironment
  18.     EnvironIDE = 1
  19.     EnvironCompiled = 2
  20. End Enum
  21.  
  22.  
  23. Public Property Get QueryEnvironment() As eEnvironment
  24.     QueryEnvironment = EnvironCompiled
  25.     Debug.Assert Not SetToIDE(QueryEnvironment)
  26. End Property
  27.  
  28.  
  29. Private Function SetToIDE(Env As eEnvironment) As Boolean
  30.     Env = EnvironIDE
  31. End Function
  32.  
  33.