schneider
2008-04-07 04:26:26 UTC
Hello,
I'm trying to figure out how to change the lines following " '*** ' of
designer code.
I think I need to hijack the root designer and control designer. Looking for
some examples and/or direction.
below is a sample Form changed by me, to what I would like it to look like.
Thanks,
Schneider
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FormCalculatorResistance
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
' *** Added line below here ***
Private m_ControlFactory As New SchneiderSoft.UIControls.FactoryControls
'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()
' *** Change below here ***
'Me.DropDownBase1 = New SchneiderSoft.UIControls.DropDownBase
Me.DropDownBase1 = m_ControlFactory.CreateDropDown
CType(Me.DropDownBase1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DropDownBase1
'
Me.DropDownBase1.Bounds = New System.Drawing.Rectangle(22, 12, 204, 30)
Me.DropDownBase1.DropControl = Nothing
Me.DropDownBase1.LevelSupportSecurity.LevelRequired = 0
Me.DropDownBase1.LevelSupportSecurity.LevelRequiredLabel = "Modified"
Me.DropDownBase1.Name = "DropDownBase1"
Me.DropDownBase1.TabIndex = 0
' *** Change below here ***
'Me.Controls.Add(Me.DropDownBase1)
Me.Controls.Add(DirectCast(DropDownBase1, Windows.Forms.Control))
Me.Name = "FormCalculatorResistance"
Me.Text = "Form Calculator Resistance"
CType(Me.DropDownBase1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
' *** Change below here ***
'Friend WithEvents DropDownBase1 As SchneiderSoft.UIControls.DropDownBase
Friend WithEvents DropDownBase1 As
SchneiderSoft.AbstractInterfaces.IDropDown
End Class
I'm trying to figure out how to change the lines following " '*** ' of
designer code.
I think I need to hijack the root designer and control designer. Looking for
some examples and/or direction.
below is a sample Form changed by me, to what I would like it to look like.
Thanks,
Schneider
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FormCalculatorResistance
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
' *** Added line below here ***
Private m_ControlFactory As New SchneiderSoft.UIControls.FactoryControls
'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()
' *** Change below here ***
'Me.DropDownBase1 = New SchneiderSoft.UIControls.DropDownBase
Me.DropDownBase1 = m_ControlFactory.CreateDropDown
CType(Me.DropDownBase1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DropDownBase1
'
Me.DropDownBase1.Bounds = New System.Drawing.Rectangle(22, 12, 204, 30)
Me.DropDownBase1.DropControl = Nothing
Me.DropDownBase1.LevelSupportSecurity.LevelRequired = 0
Me.DropDownBase1.LevelSupportSecurity.LevelRequiredLabel = "Modified"
Me.DropDownBase1.Name = "DropDownBase1"
Me.DropDownBase1.TabIndex = 0
' *** Change below here ***
'Me.Controls.Add(Me.DropDownBase1)
Me.Controls.Add(DirectCast(DropDownBase1, Windows.Forms.Control))
Me.Name = "FormCalculatorResistance"
Me.Text = "Form Calculator Resistance"
CType(Me.DropDownBase1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
' *** Change below here ***
'Friend WithEvents DropDownBase1 As SchneiderSoft.UIControls.DropDownBase
Friend WithEvents DropDownBase1 As
SchneiderSoft.AbstractInterfaces.IDropDown
End Class