home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Data-Flow_186296392005.psc / FlowChart_301_SOURCE / cGUI_obj.cls < prev    next >
Text File  |  2003-07-17  |  4KB  |  157 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 = "cGUI_obj"
  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. '  === Project of Data-flow Visual Programming Language ===
  18. ' =========================================================
  19. ' Copyright Emu8086, Inc. Free Code !
  20. '
  21. '
  22. ' URL: http://www.emu8086.com/vb/
  23.  
  24.  
  25. ' info@emu8086.com
  26.  
  27. Option Explicit
  28.  
  29. ' pointer to object loaded on form:
  30. Public objGUI As Object
  31.  
  32.  
  33. 'local variable(s) to hold property value(s)
  34. Private mvarsID As String 'local copy
  35. Private mvarsFunction1 As String 'local copy
  36. Private mvarsFunction2 As String 'local copy
  37. Private mvarsTYPE As String 'local copy
  38.  
  39. Public Property Let sText(ByVal vData As String)
  40.     Select Case Me.sTYPE
  41.     Case "BUTTON"
  42.         objGUI.Caption = vData
  43.     Case "TAREA", "TBOX"
  44.         objGUI.Text = vData
  45.     End Select
  46. End Property
  47.  
  48.  
  49. Public Property Get sText() As String
  50.     Select Case Me.sTYPE
  51.     Case "BUTTON"
  52.         sText = objGUI.Caption
  53.     Case "TAREA", "TBOX"
  54.         sText = objGUI.Text
  55.     End Select
  56. End Property
  57.  
  58.  
  59.  
  60. Public Property Let sTYPE(ByVal vData As String)
  61. 'used when assigning a value to the property, on the left side of an assignment.
  62. 'Syntax: X.sTYPE = 5
  63.     mvarsTYPE = vData
  64. End Property
  65.  
  66.  
  67. Public Property Get sTYPE() As String
  68. 'used when retrieving value of a property, on the right side of an assignment.
  69.     sTYPE = mvarsTYPE
  70. End Property
  71.  
  72.  
  73.  
  74. Public Property Let sFunction2(ByVal vData As String)
  75. 'used when assigning a value to the property, on the left side of an assignment.
  76. 'Syntax: X.sFunction2 = 5
  77.     mvarsFunction2 = vData
  78. End Property
  79.  
  80.  
  81. Public Property Get sFunction2() As String
  82. 'used when retrieving value of a property, on the right side of an assignment.
  83.     sFunction2 = mvarsFunction2
  84. End Property
  85.  
  86.  
  87.  
  88. Public Property Let sFunction1(ByVal vData As String)
  89. 'used when assigning a value to the property, on the left side of an assignment.
  90. 'Syntax: X.sFunction1 = 5
  91.     mvarsFunction1 = vData
  92. End Property
  93.  
  94.  
  95. Public Property Get sFunction1() As String
  96. 'used when retrieving value of a property, on the right side of an assignment.
  97.     sFunction1 = mvarsFunction1
  98. End Property
  99.  
  100.  
  101.  
  102. Public Property Let sID(ByVal vData As String)
  103. 'used when assigning a value to the property, on the left side of an assignment.
  104. 'Syntax: X.sID = 5
  105.     mvarsID = vData
  106. End Property
  107.  
  108.  
  109. Public Property Get sID() As String
  110. 'used when retrieving value of a property, on the right side of an assignment.
  111.     sID = mvarsID
  112. End Property
  113.  
  114.  
  115.  
  116. Public Property Let X(ByVal vData As Integer)
  117.     objGUI.Left = vData
  118. End Property
  119.  
  120.  
  121. Public Property Get X() As Integer
  122.     X = objGUI.Left
  123. End Property
  124.  
  125.  
  126.  
  127. Public Property Let Y(ByVal vData As Integer)
  128.     objGUI.Top = vData
  129. End Property
  130.  
  131.  
  132. Public Property Get Y() As Integer
  133.     Y = objGUI.Top
  134. End Property
  135.  
  136.  
  137.  
  138. Public Property Let h(ByVal vData As Integer)
  139. If vData > 0 Then objGUI.Height = vData
  140. End Property
  141.  
  142.  
  143. Public Property Get h() As Integer
  144.     h = objGUI.Height
  145. End Property
  146.  
  147.  
  148.  
  149. Public Property Let w(ByVal vData As Integer)
  150. If vData > 0 Then objGUI.Width = vData
  151. End Property
  152.  
  153.  
  154. Public Property Get w() As Integer
  155.     w = objGUI.Width
  156. End Property
  157.