Determining Line Number

[Bob Day]

VS 2003, vb.net...

Is there a way to determine the line number currently executing in your
code, so you can log this line number information (e.g. via trace)?

Thanks!

Bob Day

[Herfried K. Wagner [MVP]]

"Bob Day" <Bo****@TouchTa lk.net> schrieb:

VS 2003, vb.net...

Is there a way to determine the line number currently
executing in your code, so you can log this line number
information (e.g. via trace)?

You can set error numbers by hand:

\\\
Public Sub Bla()
1: Dim i As Integer
2: i = 2
3 Dim s As String = "Hello World"
End Sub
///

When using 'On Error...' error handlers, you can determine the line number
by reading the 'Erl' property of the 'Err' object.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Herfried K. Wagner [MVP]]

"Herfried K. Wagner [MVP]" <hi*******@m.ac tivevb.de> schrieb:

3 Dim s As String = "Hello World"

Sorry, the line above should read "3: Dim s As String = "Hello World"".

;-)

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Fergus Cooney]

Hi Bob,

The following will give you the line number of your code (as in the source
file):

Dim CurrentStack As System.Diagnost ics.StackTrace
MsgBox (CurrentStack.G etFrame(0).GetF ileLineNumber)

In case you're interested, you can find out about the routine that you're
in as well as all its
callers.

Public Function MeAndMyCaller As String
Dim CurrentStack As New System.Diagnost ics.StackTrace
Dim Myself As String = CurrentStack.Ge tFrame(0).GetMe thod.Name
Dim MyCaller As String = CurrentStack.Ge tFrame(1).GetMe thod.Name
Return "In " & Myself & vbCrLf & "Called by " & MyCaller
End Function

This can be very handy if you want a generalised error routine because it
can get the name of the caller (which would be where the error occurred).

Regards,
Fergus

[Bob Day]

Thanks for your help.

Howver, using the code you suggest below in various situations always
returns a line number of zero

Dim CurrentStack As System.Diagnost ics.StackTrace
MsgBox (CurrentStack.G etFrame(0).GetF ileLineNumber)
Any suggestions?

Bob Day

"Fergus Cooney" <fi******@tesco .net> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. .. Hi Bob,

The following will give you the line number of your code (as in the source file):

Dim CurrentStack As System.Diagnost ics.StackTrace
MsgBox (CurrentStack.G etFrame(0).GetF ileLineNumber)

In case you're interested, you can find out about the routine that you're in as well as all its
callers.

Public Function MeAndMyCaller As String
Dim CurrentStack As New System.Diagnost ics.StackTrace
Dim Myself As String = CurrentStack.Ge tFrame(0).GetMe thod.Name
Dim MyCaller As String = CurrentStack.Ge tFrame(1).GetMe thod.Name Return "In " & Myself & vbCrLf & "Called by " & MyCaller
End Function

This can be very handy if you want a generalised error routine because it can get the name of the caller (which would be where the error occurred).

Regards,
Fergus

[Bob Day]

Good question. yes, I am running in debug mode. The only thing I could
find on "Program Debug Symbols" in help was:
"To access the Debug Symbol Files property page, right-click on your
Solution in Solution Explorer and choose Properties from the shortcut menu.
Expand the Common Properties folder and click the Debug Symbol Files page. "

However, the "Debug Symbol Files" does not appear as an option as it says it
should above. I presume that means I some how heave it turned off. I don't
see where to turn it on. Where do you turn it on?

Please advise. Thanks for your help.

Bob Day

"Herfried K. Wagner [MVP]" <hi*******@m.ac tivevb.de> wrote in message
news:up******** ******@tk2msftn gp13.phx.gbl...

Hello,

"Bob Day" <Bo****@TouchTa lk.net> schrieb:

Howver, using the code you suggest below in various situations always
returns a line number of zero

Dim CurrentStack As System.Diagnost ics.StackTrace
MsgBox (CurrentStack.G etFrame(0).GetF ileLineNumber)

Do you run your application in Debug mode? 'GetFileLineNum ber' is only
avaliable if Program Debug symbols are available for the application.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet