home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / VB_Recent_1869643302005.psc / cEnvironment.cls < prev    next >
Text File  |  2005-03-30  |  1KB  |  40 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. Public Enum eEnvironment
  17.     EnvironIDE = 1
  18.     EnvironCompiled = 2
  19. End Enum
  20. #If False Then
  21. Private EnvironIDE, EnvironCompiled
  22. #End If
  23.  
  24. Public Property Get QueryEnvironment() As eEnvironment
  25. Attribute QueryEnvironment.VB_UserMemId = 0
  26.  
  27.     QueryEnvironment = EnvironCompiled
  28.     Debug.Assert Not SetToIDE(QueryEnvironment)
  29.  
  30. End Property
  31.  
  32. Private Function SetToIDE(ByRef pEnvironment As eEnvironment) As Boolean
  33.  
  34.     pEnvironment = EnvironIDE
  35.  
  36. End Function
  37.  
  38. ':) Ulli's VB Code Formatter V2.18.4 (2005-Mrz-30 04:46)  Decl: 9  Code: 16  Total: 25 Lines
  39. ':) CommentOnly: 0 (0%)  Commented: 0 (0%)  Empty: 7 (28%)  Max Logic Depth: 1
  40.