Re: Textchange event & f.CreateTextFile

On Jan 30, 2004, at 5:42 PM, Brian Heibert wrote:

> I have a edit field that is called SerialNo
>
> I have this code in the TextChange event:
> My problem is that
>   Dim f as folderItem
>   Dim stream as TextOutputStream
>   If me.text = "PTM-012" then
>     StaticText6.visible = False
>     SerialNo.visible = False
>     PurchaseLicense.visible = False
>     OKBtn.visible = True
>     OKBtn.enabled = True
>     Thanks.visible = True
>     f = 
> Volume(0).Child("PortaText").Child("Contents").Child("Serial.txt")
>
>     If f.exists=false then
>       f.CreateTextFile As TextOutputStream
>       f.AppendToTextFile "PTM-012"
>     End If
>
>   End If
>
> And this code in the KeyDown event:
>
>   f = 
> Volume(0).Child("PortaText").Child("Contents").Child("Serial.txt")
>
>   If f.exists then
>     StaticText6.visible = False
>     SerialNo.visible = False
>     PurchaseLicense.visible = False
>     OKBtn.visible = True
>     OKBtn.enabled = True
>     Thanks.visible = True
>   Else
>     Thanks.visible = False
>
>   End  If
>
> My problem is in the TextChange event
> In f.CreateTextFile as TextOutputStream
>
> RB says you must use the value returned by this function
>
> How do I fix that?


You could offer to hire someone to do it, since it appears that you're 
attempting to write some for-profit code.

Charles Yeomans


- - -
Unsubscribe or switch delivery mode:
<http://support.realsoftware.com/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>