VB.NET计算器调试报错The call stack contains only external code求助

你的程序崩溃的核心原因出在Form1_Load事件中的字体加载逻辑：
你调用pfc.AddFontFile()加载外部字体文件时，只要目标字体文件不存在、路径错误、文件损坏，PrivateFontCollection的Families属性就会是空集合，后续你直接访问pfc.Families(0)就会触发索引超出范围异常，直接导致程序崩溃。

排查和修复方案 #

1. 检查字体文件配置
   把你用到的digital-7 (italic).ttf和digital-7.ttf两个字体文件放到程序的运行目录下，默认是你项目文件夹的\bin\Debug或者\bin\Release路径下，同时确认文件名的拼写、符号、大小写和你代码里写的完全一致。
   如果要把字体嵌入到项目里，可以把字体文件的「复制到输出目录」属性设置为「如果较新则复制」，避免每次手动拷贝。

2. 给字体加载逻辑增加容错
   不要直接访问Families(0)，先判断加载结果，避免崩溃，参考修改后的代码：

Imports System.Drawing.Text
Imports System.IO

Public Class Form1
    ' 把字体集合提到类级别，后续可释放资源
    Private pfc As PrivateFontCollection
    Private pfc2 As PrivateFontCollection

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 加载第一个字体
        Dim fontPath1 = "digital-7 (italic).ttf"
        If File.Exists(fontPath1) Then
            pfc = New PrivateFontCollection()
            pfc.AddFontFile(fontPath1)
            If pfc.Families.Length > 0 Then
                Label2.Font = New Font(pfc.Families(0), 30, FontStyle.Regular)
            End If
        End If
        Label2.ForeColor = Color.Black

        ' 加载第二个字体
        Dim fontPath2 = "digital-7.ttf"
        If File.Exists(fontPath2) Then
            pfc2 = New PrivateFontCollection()
            pfc2.AddFontFile(fontPath2)
            If pfc2.Families.Length > 0 Then
                Label1.Font = New Font(pfc2.Families(0), 26, FontStyle.Regular)
            End If
        End If
        Label1.ForeColor = Color.Black

        ' 其余原有控件隐藏逻辑不变
        BtnCase.Hide()
        BtnVer.Hide()
        BtnOff.Hide()
        BtnOn.Hide()
        BtnExp.Hide()
        BtnCube.Hide()
        BtnFact.Hide()
        BtnSqrt.Hide()
        Num7.Hide()
        Num8.Hide()
        Num9.Hide()
        BtnDel.Hide()
        BtnAC.Hide()
        Num4.Hide()
        Num5.Hide()
        Num6.Hide()
        BtnMult.Hide()
        BtnDiv.Hide()
        Num1.Hide()
        Num2.Hide()
        Num3.Hide()
        BtnAdd.Hide()
        BtnSub.Hide()
        Num0.Hide()
        BtnPi.Hide()
        BtnSqrd.Hide()
        BtnDot.Hide()
        BtnEql.Hide()
        BtnUp.Hide()
        BtnDown.Hide()
        BtnLeft.Hide()
        BtnRight.Hide()
    End Sub

    ' 窗体关闭时释放字体资源，避免内存泄漏
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        pfc?.Dispose()
        pfc2?.Dispose()
    End Sub

    ' 其余原有业务逻辑不变即可
End Class

3. 其余潜在问题排查
   如果修复字体问题后还有异常，检查你的窗体上是否确实存在代码里用到的所有控件：比如Timer1、Timer2、Timer3、PictureBox1，以及所有按钮控件是否和代码里的Name属性完全匹配，控件缺失也会触发运行时异常。

内容的提问来源于stack exchange，提问作者helo