I'm not really clear on the Extends keyword. Does your example mean
that I would then do this:
StaticText1.SetEscapedText(me, EditField1.text)
Instead of this:
StaticText1.Caption = ReplaceAll(EditField1.text, "&", "&&")
On Sep 30, 2005, at 15:39, Charles Yeomans wrote:
Instead of subclassing, use Extends and a global method to add a
method to StaticText.
Sub SetEscapedText(Extends s as StaticText, theText as String)
s.Text = ReplaceAll(theText, "&", "&&")
End Sub
--
David Glass - Gray Matter Computing
graymattercomputing.com - corepos.com
559-303-4915
Apple Certified Help Desk Specialist
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|