VB.NET并行与分布式编程(4)-线程栈[3]

本文介绍了一个使用VB.NET编写的栈跟踪示例程序。该程序通过调用多个子程序来展示如何使用StackTrace类实现线程栈的回溯跟踪。在程序运行过程中,将输出每个调用点的方法名称及对应的行号。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

3、运用stacktrace类实现线程栈回溯跟踪

 代码如下:

Imports System
Imports System.Threading
Imports System.Diagnostics.StackTrace



Module Module1

    Sub Main()
        Dim main_x As Integer
        main_x = 5
        Call sub1(main_x)
    End Sub
    Private Sub sub1(sub1_x As Integer)
        Dim jg As Integer
        jg = sub1_x * sub1_x
        Call sub2(jg)
    End Sub
    Private Sub sub2(sub2_x As Integer)
        Dim jg As Integer
        jg = sub2_x * 2
        jg = jg * jg
        Dim st As New StackTrace(True)
        Console.WriteLine(" 栈跟踪: {0}", _
  st.ToString())
        Dim i As Integer

        For i = 0 To st.FrameCount - 1

            Dim sf As StackFrame = st.GetFrame(i)
            Console.WriteLine()
            Console.WriteLine("回溯调用栈, 方法: {0}", _
                sf.GetMethod())

            Console.WriteLine("回溯调用栈, 行号 : {0}", _
                sf.GetFileLineNumber())
        Next i





    End Sub

End Module

下面这句定义了StackTrace 类的新实例,实现线程栈跟踪

StackTrace 是使用调用方的当前线程创建的,参数含义如下:

如果为 true,则捕获文件名、行号和列号;否则为 false

 Dim st As New StackTrace(True)

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值