solving Error BC30456 'Dispose' is not a member of 'Object'.

Mr.Hamilton2023 0 Reputation points
2023-06-21T16:11:32.34+00:00
Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmHalPasAdv
#Region "Windows Form Designer generated code "
	<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
	End Sub
    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Sub Dispose(ByVal Disposing As Boolean)
        If Disposing Then
            If Not components Is Nothing Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(Disposing)   'error BC30456 'Dispose' is not a member of 'Object'
    End Sub


Error BC30456 'Dispose' is not a member of 'Object'. halpasAdv230620

The above error came out of nowhere all of a sudden after many hours of development with error-free project development code. I am baffled as to what is causing the above error along with 30 other errors referring to the following: BC30469 Reference to a non-shared member requires an object reference

(this is an example of similar errors (31 total) found throughout the project)

Public Class dlgSav
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
*       Dim nDex As Short = HalPasAdv160528.frmHalPasAdv.Ndx 'Error: 'Ndx' is not a member of 'frmHalPasAdv'
        If Me.usrName.Trim <> "" Then
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).name = Me.usrName.Trim 'Error: 'usrNfo1' is not a member of 'frmHalPasAdv'
        Else
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).name = "Teacher" & nDex 'usrNfo1' is not a member of 'frmHalPasAdv'
        End If
        If Me.usrSubject.Trim <> "" Then
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).subject = Me.usrSubject.Trim
        Else
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).subject = "Subject" & nDex
        End If
        If Me.usrRoom.Trim <> "" Then
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).room = Me.usrRoom.Trim
        Else
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).room = "000"
        End If
        If Me.usrExt.Trim <> "" Then
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).ext = Me.usrExt.Trim
        Else
            HalPasAdv160528.frmHalPasAdv.usrNfo1(nDex).ext = "000"
        End If
        Me.Close()
    End Sub
* same and similar error messages continue throughout this code segment.

Please keep in mind that my project was working smoothly as I was making modifications and I was about 80% done with my program's functionality when these errors just suddenly appeared. I intuitively guess that I must of accidently, inadvertently, deleted an unknown stray obscure part of the code which triggered this current plague of errors.

Please help as I have taken a considerable amount of time trying to troubleshoot this to no avail.

VB
VB
An object-oriented programming language developed by Microsoft that is implemented on the .NET Framework. Previously known as Visual Basic .NET.
2,728 questions
{count} votes

Your answer

Answers can be marked as Accepted Answers by the question author, which helps users to know the answer solved the author's problem.