Question

尝试运行/调试WindowsForm的代码时，遇到以下异常：

System.InvalidOperationException HResult = 0x80131509 Message = An   创建表单时发生错误。请参阅Exception.InnerException以获取   细节。错误是：对象引用未设置为的实例   宾语。 Source =自动SoundPower测试StackTrace：at   Automated_SoundPower_Testing.My.MyProject.MyForms.Create__Instance __ [T]（T   实例）在第190行：   Automated_SoundPower_Testing.My.MyProject.MyForms.get_Form1（）在   中的Automated_SoundPower_Testing.My.MyApplication.OnCreateMainForm（）   C：\ Users \ M0110823 \ source \ repos \ Automatic SoundPower Testing \ My   Project \ Application.Designer.vb：第35行，位于   Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun（）   在   Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel（）   在   Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run（String []   命令行）   Automated_SoundPower_Testing.My.MyApplication.Main（String [] Args）在   ：第81行

内部异常1：NullReferenceException：对象引用未设置为   对象的实例。”

此异常引用：

Me.MainForm = Global.Automated_SoundPower_Testing.Form1

我认为这可能是由于我试图在创建它之前调用Me.Mainform吗？还是目录和项目属性之间的命名沟通不畅？我已经创建了一个空白项目，并将代码/ vb表单转移过来，并遇到相同的错误。这使我相信代码中存在一些错误？

这是我的代码的第一部分，此之后的所有内容都归类为Class1下的区域。

Imports System.Windows.Forms
Imports System.Windows.Controls.Label
Imports System.IO
Imports System
Imports System.Text.RegularExpressions
Imports Microsoft.Office.Interop
Imports LMSTestLabAutomation
Imports System.IO.File
Imports System.IO.Path
Imports System.Threading
Imports System.ComponentModel
Imports System.Runtime.InteropServices

Class Form1
    Dim TL As LMSTestLabAutomation.Application
    Public tlDb As IDatabase
    Dim SaveDataName As String
    'Declare UA variables
    Dim UAmodel, UAtype, UAsn, UAoperator, UAdate, UAcomment,
        UAtesttype, UAtestpurpose, UAtime, UAtestduration As String
    Dim UAlist As New SortedList(Of String, String)
    Dim AcqState As String = "Acquisition Offline"
    Dim aRecordTime As Boolean() = New Boolean() {}
    Dim aRunNames As String() = New String() {}
    Dim aProjectNames As String() = New String() {}
    Dim aStatus As String() = New String() {}
    Dim aStartTrigger As Single() = New Single() {}
    Dim aStopTrigger As Single() = New Single() {}
    Dim aTriggerCondition As String() = New String() {}
    Dim aSequences As Integer() = New Integer() {}
    Dim newTestIncrement As Integer
    Dim newTest As String() = aRunNames
    'Declarations of the used objects
    Dim database As LMSTestLabAutomation.IDatabase
    Dim datawatch_pictManag As LMSTestLabAutomation.IDataWatch
    Dim WithEvents gDataWatch_AcqState As LMSTestLabAutomation.DataWatch
    Dim pictManag As LMSTestLabAutomation.IPictureManager
    Dim myPicture As LMSTestLabAutomation.IPicture
    Dim myBlock As LMSTestLabAutomation.IBlock2
    Dim myDisplay As LMSTestLabAutomation.IDisplay
    Dim Measure_Port As LMSTestLabAutomation.DataWatch
    Dim Open_book = TL.ActiveBook
    Dim sequence_number = Open_book(0, 2)

runtime exception

System.InvalidOperationException：'创建表单时发生错误

0 个答案: