Renesas Evaluation Boards User Forum: Change a code for pocket pc

Renesas Evaluation Boards User Forum
[ Post a Response | Renesas Evaluation Boards User Forum ]

Change a code for pocket pc

Posted by Beginner on August 28, 2003, 17:14:46
212.201.0.20

Hello,
What's the equivalent of "On Error GoTo" im eVB?
If I run the following code im eVB, I get error!
And in the line
Open strTarget For Output As l_lFileNum
the debugging want a End after: Open strTarget
I don't know why?
Kann anybody help me?
' Save variables to file
Public Function Save(ByVal strTarget As String, ByVal strText As String) As Boolean
Dim l_strErm As String
Dim l_lFileNum As Long
Dim l_bFileOpen As Boolean
On Error GoTo err_handler
Save = True
l_bFileOpen = False
l_lFileNum = FreeFile
l_strErm = "Open file: " + strTarget
Open strTarget For Output As l_lFileNum
l_bFileOpen = True
l_strErm = "Write file: " + strTarget
Print #l_lFileNum, strText
exit_func:
On Error Resume Next
If l_bFileOpen Then
Close l_lFileNum
End If
Exit Function
err_handler:
Debug.Print "Error in Save " + l_strErm
Save = False
Resume exit_func
End Function

Message Thread:

Change a code for pocket pc - Beginner August 28, 2003, 17:14:46
« Back to thread

Post a Response

Your Name:

Your Email:

Subject:

Message:

--Previous Message-- : Hello, : : What's the equivalent of "On : Error GoTo" im eVB? : If I run the following code im eVB, : I get error! : And in the line : : Open strTarget For Output As : l_lFileNum : : the debugging want a End after: Open : strTarget : : I don't know why? : : Kann anybody help me? : : ' Save variables to file : Public Function Save(ByVal strTarget : As String, ByVal strText As String) : As Boolean : : Dim l_strErm As String : Dim l_lFileNum As Long : Dim l_bFileOpen As Boolean : : On Error GoTo err_handler : : Save = True : l_bFileOpen = False : : l_lFileNum = FreeFile : l_strErm = "Open file: " + : strTarget : Open strTarget For Output As : l_lFileNum : l_bFileOpen = True : l_strErm = "Write file: " : + strTarget : Print #l_lFileNum, strText : : exit_func: On Error Resume Next : If l_bFileOpen Then : Close l_lFileNum : End If : Exit Function : : err_handler: Debug.Print "Error : in Save " + l_strErm : Save = False : Resume exit_func : : End Function :

Optional Image URL:

Optional Link Title:
Optional Link URL:

Please enter the numbers above. This helps stop spam.

By posting, you confirm that you have read and agreed to be bound by the board's usage terms.

Evaluation Kit Support
Renesas Evaluation Boards are intended for evaluation of Renesas microprocessors only, not as development tools.

Hosted for FREE by Boardhost.
Create your own free message board!