代码运行时不会出现错误，直到出现“向 Microsoft 发送错误报告”为止。出现

Question

我有一些 vb.net 代码，应该使用 Teklynx LabelView 软件（我之前已经工作过）打印标签。

问题是，它在开发计算机上运行良好，但当我在最终用户的 PC 上运行它时，我不'不会收到任何错误消息，直到它完全消失并显示“将错误报告发送给 Microsoft”消息。

我该如何解决这个问题？？？

相关代码：

Shared Function PrintLabels(ByVal itemDescription As String, ByVal starting As String, ByVal ending As String, ByVal qty As Integer) As Boolean
        'Create "Document" (Label) object

        'Close all open lv.exe processes
        Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("lv")

        For Each p As Process In pProcess
            p.Kill()
        Next

        Dim Lbl As Object
        Lbl = CreateObject("Lblvw.Document")

        Lbl.Open(labelFileName)

        Dim barcodeVal As String
        Dim labelText As String

        Try

            Dim infoArray As String()
            infoArray = itemDescription.Split(New Char() {","c})

            labelText = infoArray(1).ToString().Trim()
            barcodeVal = infoArray(2).Trim() & starting & ending

            'Load label in ReadOnly mode
            Lbl.Open(labelFileName, True)

            'Get field information
            Dim Flds As Object

            Flds = Lbl.LabelFields

            Flds.Item("TEXT1").Value = labelText
            Flds.Item("BARCODE1").Value = barcodeVal

            Lbl.PrintLabel(qty)

            Lbl = Nothing
            barcodeVal = Nothing
            labelText = Nothing

            Return True

        Catch ex As Exception

            If printStatements Then
                MsgBox("Error Message: " & ex.Message.ToString())
            End If

            Using writer As New StreamWriter(errorLog, True)
                writer.AutoFlush = True
                writer.WriteLine()
                writer.WriteLine(DateTime.Now.ToString() & ": " & ex.Message)
            End Using

            Lbl = Nothing
            barcodeVal = Nothing
            labelText = Nothing
            Return False

        End Try
    End Function

Answer 1

检查您正在构建的 .NET 版本以及客户端计算机上拥有的 .NET 版本。

如果用户使用的 .NET 版本较低，则您正在使用的某些内容可能无法与用户向后兼容。

Answer 2

这个就别猜了实现 AppDomain.CurrentDomain.UnhandledException 事件并记录或显示 e.ExceptionObject.ToString() 的值。它准确地告诉您出了什么问题，并通过堆栈跟踪向您展示错误是如何产生的。

Answer 3

除了 @Jack 提到的 .NET 版本之外，还要注意 32 位与 64 位。如果标签软件仅针对 32 位构建，则当您在 Visual Studio 中以“任何 CPU”为目标并且在 64 位计算机上运行该程序时，您的程序将无法运行。在这种情况下，CLR 将编译为 64 位，然后将无法链接到 32 位库。 （但是在不了解该软件的情况下，我不知道这是否对您有影响。）

Answer 4

听起来您必须正确安装 Teklynx LabelView 组件。如果它是一个 COM 组件（您确实用“OLE”标记了这个问题并且您正在使用 CreateObject），则它将需要一个注册表项。复制并粘贴 bin\ 将不起作用。 Teklynx 文档对重新分发组件有何说明？我从来没有必要在 .NET 中注册 COM 组件...只有在 VB6 中，安装程序和组件才需要注册。部署向导已处理。为了进行测试，请找到一台干净的客户端 PC 并使用 regsrv32.exe 手动注册 Teklynx .DLL。

Answer 5

看起来它是 Teklynx LabelView 软件的不同版本。该代码以前在 v7 Gold 版本上运行，但在某些时候它升级到 v8.5 Pro 版本，该版本不支持 OLE 自动化。查看升级到黄金版以确认这确实是问题所在。

更新：是的，这就是问题所在。谢谢大家！