|
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'
' Form Editor Demonstration Program
'
' Author : David Shepherd
' Copyright (c) 2002, DaeDoe-Softwre
'
Public Event TextChanged()
Private mvarText As String
Public Property Let Text(ByVal vData As String)
mvarText = vData
' fire the text changed event
RaiseEvent TextChanged
End Property
Public Property Get Text() As String
Text = mvarText
End Property
Public Sub ShowText()
' show the text in a message box
MsgBox "Text is " & mvarText
End Sub
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.