home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Basic / GridOne / setup.EXE / IMODULEINTERFACE.CLS < prev    next >
Encoding:
Visual Basic class definition  |  2001-09-09  |  2.0 KB  |  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 = "IModuleInterface"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. '-----------------------------------------------------------------------------
  17. ' This is a part of the BeeGrid ActiveX control.
  18. ' Copyright ⌐ 2000 Stinga
  19. ' All rights reserved.
  20. '
  21. ' You have a right to use and distribute the BeeGrid sample files in original
  22. ' form or modified, provided that you agree that Stinga has no warranty,
  23. ' obligations, or liability for any sample application files.
  24. '-----------------------------------------------------------------------------
  25. Option Explicit
  26.  
  27.  
  28. Public Property Get SGGrid() As SGGrid
  29.  
  30. End Property
  31.  
  32. Public Property Set SGGrid(ByVal vNewValue As SGGrid)
  33.  
  34. End Property
  35.  
  36. Public Property Get CellsImageList() As ImageList
  37.  
  38. End Property
  39.  
  40. Public Property Set CellsImageList(ByVal vNewValue As ImageList)
  41.  
  42. End Property
  43.  
  44. Public Property Get HeadImageList() As ImageList
  45.  
  46. End Property
  47.  
  48. Public Property Set HeadImageList(ByVal vNewValue As ImageList)
  49.  
  50. End Property
  51.  
  52. Public Property Get FolderType() As OlDefaultFolders
  53.     
  54. End Property
  55.  
  56. Public Property Let FolderType(ByVal vData As OlDefaultFolders)
  57. End Property
  58.  
  59. Public Property Get Directory() As String
  60. End Property
  61.  
  62. Public Property Let Directory(ByVal vData As String)
  63. End Property
  64.  
  65. Public Sub Show()
  66.  
  67. End Sub
  68.  
  69.  
  70.  
  71. Public Property Get Key() As String
  72.  
  73. End Property
  74.  
  75. Public Property Let Key(ByVal vNewValue As String)
  76.  
  77. End Property
  78.  
  79. Public Property Get NameSpace() As NameSpace
  80.  
  81. End Property
  82.  
  83. Public Property Set NameSpace(ByVal vNewValue As NameSpace)
  84.  
  85. End Property
  86.