E
ECathell
Below is the code for a custom form control. Everything is good except I am getting the above error. I have Highlighted the relevant code below. I can't find the problem..Can anyone help me?
I am working on this from a Codesmith Template that I created/am creating so if you see weird numbers(tabindex 143) that is why.
Eric
Public Class DepartmentWindowsViewer
Inherits System.Windows.Forms.UserControl
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'UserControl 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
Friend WithEvents txtDepartmentNumber As System.Windows.Forms.TextBox
Friend WithEvents lblDepartmentNumber As System.Windows.Forms.Label
Friend WithEvents txtDepartmentName As System.Windows.Forms.TextBox
Friend WithEvents lblDepartmentName As System.Windows.Forms.Label
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnSaveChanges As System.Windows.Forms.Button
Friend WithEvents btnAddDepartment As System.Windows.Forms.Button
Friend WithEvents ttDepartment As System.Windows.Forms.ToolTip
Friend WithEvents lstDepartments As System.Windows.Forms.ListBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.lstDepartments = New System.Windows.Forms.ListBox
Me.btnCancel = New System.Windows.Forms.Button
Me.btnAddDepartment = New System.Windows.Forms.Button
Me.btnSaveChanges = New System.Windows.Forms.Button
Me.ttDepartment = New System.Windows.Forms.ToolTip(Me.components)
Me.txtDepartmentNumber = New System.Windows.Forms.TextBox
Me.lblDepartmentNumber = New System.Windows.Forms.Label
Me.txtDepartmentName = New System.Windows.Forms.TextBox
Me.lblDepartmentName = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'lstDepartments
'
Me.lstDepartments.Location = New System.Drawing.Point(264, 13)
Me.lstDepartments.Name = "lstDepartments"
Me.lstDepartments.Size = New System.Drawing.Size(320, 316)
Me.lstDepartments.TabIndex = 25
Me.lstDepartments.TabStop = False
'
'btnSaveChanges
'
Me.btnSaveChanges.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSaveChanges.Location = New System.Drawing.Point(160, 224)
Me.btnSaveChanges.Name = "btnSaveChanges"
Me.btnSaveChanges.Size = New System.Drawing.Size(96, 23)
Me.btnSaveChanges.TabIndex = 46
Me.btnSaveChanges.Text = "SAVE"
'
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(160, 256)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(96, 23)
Me.btnCancel.TabIndex = 47
Me.btnCancel.Text = "CANCEL"
'
'btnAddDepartment
'
Me.btnAddDepartment.Location = New System.Drawing.Point(160, 224)
Me.btnAddDepartment.Name = "btnAddDepartment"
Me.btnAddDepartment.Size = New System.Drawing.Size(96, 23)
Me.btnAddDepartment.TabIndex = 45
Me.btnAddDepartment.Text = "Add Department"
'
'txtDepartmentNumber
'
Me.txtDepartmentNumber.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtDepartmentNumber.Location = New System.Drawing.Point(8, 0)
Me.txtDepartmentNumber.Name = "DepartmentNumber"
Me.txtDepartmentNumber.Size = New System.Drawing.Size(128, 20)
Me.txtDepartmentNumber.TabIndex = 43
Me.txtDepartmentNumber.Text = "DepartmentNumber"
Me.ttDepartment.SetToolTip(Me.txtDepartmentNumber, "Not Implemented")
'
'txtDepartmentName
'
Me.txtDepartmentName.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtDepartmentName.Location = New System.Drawing.Point(8, 40)
Me.txtDepartmentName.Name = "DepartmentName"
Me.txtDepartmentName.Size = New System.Drawing.Size(128, 20)
Me.txtDepartmentName.TabIndex = 143
Me.txtDepartmentName.Text = "DepartmentName"
Me.ttDepartment.SetToolTip(Me.txtDepartmentName, "Not Implemented")
'
'lblDepartmentNumber
'
Me.lblDepartmentNumber.Location = New System.Drawing.Point(0, 80)
Me.lblDepartmentNumber.Name = "lblDepartmentNumber"
Me.lblDepartmentNumber.Size = New System.Drawing.Size(128, 19)
Me.lblDepartmentNumber.TabIndex = 44
Me.lblDepartmentNumber.Text = "DepartmentNumber "
'
'lblDepartmentName
'
Me.lblDepartmentName.Location = New System.Drawing.Point(10, 120)
Me.lblDepartmentName.Name = "lblDepartmentName"
Me.lblDepartmentName.Size = New System.Drawing.Size(128, 19)
Me.lblDepartmentName.TabIndex = 144
Me.lblDepartmentName.Text = "DepartmentName "
'
'DepartmentWindowsViewer
'
Me.Controls.Add(Me.lstDepartments)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnAddDepartment)
Me.Controls.Add(Me.btnSaveChanges)
Me.Controls.Add(Me.txtDepartmentNumber)
Me.Controls.Add(Me.lblDepartmentNumber)
Me.Controls.Add(Me.txtDepartmentName)
Me.Controls.Add(Me.lblDepartmentName)
Me.Name = "DepartmentWindowsViewer"
Me.Size = New System.Drawing.Size(640, 480)
Me.ResumeLayout(False)
End Sub
End Class
I am working on this from a Codesmith Template that I created/am creating so if you see weird numbers(tabindex 143) that is why.
Eric
Public Class DepartmentWindowsViewer
Inherits System.Windows.Forms.UserControl
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'UserControl 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
Friend WithEvents txtDepartmentNumber As System.Windows.Forms.TextBox
Friend WithEvents lblDepartmentNumber As System.Windows.Forms.Label
Friend WithEvents txtDepartmentName As System.Windows.Forms.TextBox
Friend WithEvents lblDepartmentName As System.Windows.Forms.Label
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnSaveChanges As System.Windows.Forms.Button
Friend WithEvents btnAddDepartment As System.Windows.Forms.Button
Friend WithEvents ttDepartment As System.Windows.Forms.ToolTip
Friend WithEvents lstDepartments As System.Windows.Forms.ListBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.lstDepartments = New System.Windows.Forms.ListBox
Me.btnCancel = New System.Windows.Forms.Button
Me.btnAddDepartment = New System.Windows.Forms.Button
Me.btnSaveChanges = New System.Windows.Forms.Button
Me.ttDepartment = New System.Windows.Forms.ToolTip(Me.components)
Me.txtDepartmentNumber = New System.Windows.Forms.TextBox
Me.lblDepartmentNumber = New System.Windows.Forms.Label
Me.txtDepartmentName = New System.Windows.Forms.TextBox
Me.lblDepartmentName = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'lstDepartments
'
Me.lstDepartments.Location = New System.Drawing.Point(264, 13)
Me.lstDepartments.Name = "lstDepartments"
Me.lstDepartments.Size = New System.Drawing.Size(320, 316)
Me.lstDepartments.TabIndex = 25
Me.lstDepartments.TabStop = False
'
'btnSaveChanges
'
Me.btnSaveChanges.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSaveChanges.Location = New System.Drawing.Point(160, 224)
Me.btnSaveChanges.Name = "btnSaveChanges"
Me.btnSaveChanges.Size = New System.Drawing.Size(96, 23)
Me.btnSaveChanges.TabIndex = 46
Me.btnSaveChanges.Text = "SAVE"
'
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(160, 256)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(96, 23)
Me.btnCancel.TabIndex = 47
Me.btnCancel.Text = "CANCEL"
'
'btnAddDepartment
'
Me.btnAddDepartment.Location = New System.Drawing.Point(160, 224)
Me.btnAddDepartment.Name = "btnAddDepartment"
Me.btnAddDepartment.Size = New System.Drawing.Size(96, 23)
Me.btnAddDepartment.TabIndex = 45
Me.btnAddDepartment.Text = "Add Department"
'
'txtDepartmentNumber
'
Me.txtDepartmentNumber.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtDepartmentNumber.Location = New System.Drawing.Point(8, 0)
Me.txtDepartmentNumber.Name = "DepartmentNumber"
Me.txtDepartmentNumber.Size = New System.Drawing.Size(128, 20)
Me.txtDepartmentNumber.TabIndex = 43
Me.txtDepartmentNumber.Text = "DepartmentNumber"
Me.ttDepartment.SetToolTip(Me.txtDepartmentNumber, "Not Implemented")
'
'txtDepartmentName
'
Me.txtDepartmentName.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtDepartmentName.Location = New System.Drawing.Point(8, 40)
Me.txtDepartmentName.Name = "DepartmentName"
Me.txtDepartmentName.Size = New System.Drawing.Size(128, 20)
Me.txtDepartmentName.TabIndex = 143
Me.txtDepartmentName.Text = "DepartmentName"
Me.ttDepartment.SetToolTip(Me.txtDepartmentName, "Not Implemented")
'
'lblDepartmentNumber
'
Me.lblDepartmentNumber.Location = New System.Drawing.Point(0, 80)
Me.lblDepartmentNumber.Name = "lblDepartmentNumber"
Me.lblDepartmentNumber.Size = New System.Drawing.Size(128, 19)
Me.lblDepartmentNumber.TabIndex = 44
Me.lblDepartmentNumber.Text = "DepartmentNumber "
'
'lblDepartmentName
'
Me.lblDepartmentName.Location = New System.Drawing.Point(10, 120)
Me.lblDepartmentName.Name = "lblDepartmentName"
Me.lblDepartmentName.Size = New System.Drawing.Size(128, 19)
Me.lblDepartmentName.TabIndex = 144
Me.lblDepartmentName.Text = "DepartmentName "
'
'DepartmentWindowsViewer
'
Me.Controls.Add(Me.lstDepartments)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnAddDepartment)
Me.Controls.Add(Me.btnSaveChanges)
Me.Controls.Add(Me.txtDepartmentNumber)
Me.Controls.Add(Me.lblDepartmentNumber)
Me.Controls.Add(Me.txtDepartmentName)
Me.Controls.Add(Me.lblDepartmentName)
Me.Name = "DepartmentWindowsViewer"
Me.Size = New System.Drawing.Size(640, 480)
Me.ResumeLayout(False)
End Sub
End Class