Hi Jan,
thanks for your response.
Yes i did. I explicitly rebuilt the module that contains the base form.
Rebuilt the project that contains the inherited form, rebuilt the entire
solution ....
No Success
In a test environment i contained the base form and the inherited form in a
single project... With the same result.
Here is the code for the base class :
Public Class AIPForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
Me.Text = "AIPForm"
End Sub
#End Region
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Const WM_SYSKEYDOWN = &H105
Public Overridable Sub UndoChanges()
End Sub
Public Overridable Sub UpdateDataset()
End Sub
Public Overridable Sub MoveFirst()
End Sub
Public Overridable Sub MovePrevious()
End Sub
Public Overridable Sub MoveNext()
End Sub
Public Overridable Sub MoveLast()
End Sub
Public Overridable Sub AddNew()
End Sub
Public Overridable Sub Delete()
End Sub
Public Overridable Sub SetFilter(ByVal cFilter As String)
End Sub
'Protected Overrides Function ProcessCmdKey(ByRef msg As
System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As
Boolean
' If msg.Msg = WM_KEYDOWN Then
' Select Case keyData
' Case Keys.Return
' Me.ProcessDialogKey(Keys.Tab)
' Return True
' End Select
' End If
' Return MyBase.ProcessCmdKey(msg, keyData)
'End Function
Public Overridable Sub AIPForm_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
SaveSetting(Application.ProductName, Me.Name, "Width", CStr(Me.Width))
SaveSetting(Application.ProductName, Me.Name, "Height", CStr(Me.Height))
End Sub
Public Overridable Sub AIPForm_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Width = CInt(GetSetting(Application.ProductName, Me.Name, "Width",
CStr(Me.Width)))
Me.Height = CInt(GetSetting(Application.ProductName, Me.Name, "Height",
CStr(Me.Height)))
End Sub
End Class
