home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Tiny_Dev_E1795559192004.psc / BizCard / class / clsMain.cls < prev    next >
Text File  |  2001-09-17  |  2KB  |  86 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 = "clsMain"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Public HasError As Boolean
  15. Public DialogStrName As String
  16. Public DialogObject As Form
  17.  
  18. Private TLanguage As String
  19. Public sControl As ScriptControl
  20. Private Graphics As clsGraphics
  21. Private Windows As clswindows
  22. Private FileSys As clsFiles
  23. Private TDrive As clsDrive
  24. Private TNetwork As clsNetwork
  25. Private TTools As clsTools
  26. Private TIniFile As clsINI
  27.  
  28. Public Sub SetupControl()
  29.     Set sControl = New ScriptControl
  30.     Set Graphics = New clsGraphics
  31.     Set Windows = New clswindows
  32.     Set FileSys = New clsFiles
  33.     Set TDrive = New clsDrive
  34.     Set TNetwork = New clsNetwork
  35.     Set TTools = New clsTools
  36.     Set TIniFile = New clsINI
  37.     
  38.     sControl.Language = TLanguage
  39.     sControl.AddObject DialogStrName, DialogObject, True
  40.     'sControl.AddObject "Window", frmWindow, True
  41.     sControl.AddObject "Graphics", Graphics, True
  42.     sControl.AddObject "Windows", Windows, True
  43.     sControl.AddObject "FileSys", FileSys, True
  44.     sControl.AddObject "TDrive", TDrive, True
  45.     sControl.AddObject "TNetwork", TNetwork, True
  46.     sControl.AddObject "TTools", TTools, True
  47.     sControl.AddObject "TIniFile", TIniFile, True
  48.     
  49.     'sControl.AddObject "bTimer", frmWindow.bTimer, True
  50.     sControl.AllowUI = True
  51.     
  52.     TTools.Hangle = DialogObject.hwnd
  53. End Sub
  54.  
  55. Public Sub mRunProc(StrCode As String)
  56.     On Error Resume Next
  57.     sControl.Run StrCode
  58. End Sub
  59.  
  60. Public Sub Reset()
  61. On Error Resume Next
  62.     sControl.Reset
  63. End Sub
  64. Public Sub RunCode(StrCode As String)
  65. On Error GoTo CodeErr
  66.     If Len(StrCode) = 0 Then Exit Sub
  67.     
  68.     sControl.AddCode StrCode
  69.     Exit Sub
  70. CodeErr:
  71.     If Err Then
  72.     MsgBox Err.Description
  73.     
  74.         HasError = True
  75.     End If
  76.     
  77. End Sub
  78.  
  79. Public Property Get mLanguage() As String
  80.     mLanguage = TLanguage
  81. End Property
  82.  
  83. Public Property Let mLanguage(ByVal vNewValue As String)
  84.     TLanguage = vNewValue
  85. End Property
  86.