solving Error BC30456 'Dispose' is not a member of 'Object'.
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.