how do I declare a control in windows forms

Question

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>

Partial Class Form1

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)

    Try

        If disposing AndAlso components IsNot Nothing Then

            components.Dispose()

        End If

    Finally

        MyBase.Dispose(disposing)

    End Try

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()

    CommandAction = New Button()

    Baudratestr = New TextBox()

    Portnamestr = New TextBox()

    ResponseStr = New TextBox()

    BaudRate = New Label()

    PortNamelbl = New Label()

    commandlbl = New Label()

    SuspendLayout()

    ' 

    ' Button1

    ' 

    CommandAction.Location = New Point(122, 120)

    CommandAction.Name = "Button1"

    CommandAction.Size = New Size(75, 23)

    CommandAction.TabIndex = 0

    CommandAction.Text = "Action"

    CommandActionUse.VisualStyleBackColor = True

    ' 

    '  Baudratestr 

    ' 

    Baudratestr.Location = New Point(60, 23)

    Baudratestr.Name = " Baudratestr "

    Baudratestr.Size = New Size(236, 23)

    Baudratestr.TabIndex = 1

    ' 

    ' PortnameStr

    ' 

    Portnamestr.Location = New Point(60, 52)

    Portnamestr.Name = "PortnameStr"

    Portnamestr.Size = New Size(236, 23)

    Portnamestr.TabIndex = 2

    ' 

    ' mmandstr 

    ' 

    mmandstr.Location = New Point(60, 81)

    mmandstr.Name = "mmandstr "

    mmandstr.Size = New Size(236, 23)

    mmandstr.TabIndex = 3

    ' 

    ' BaudRate

    ' 

    BaudRate.AutoSize = True

    BaudRate.Location = New Point(12, 26)

    BaudRate.Name = "BaudRate"

    BaudRate.Size = New Size(13, 15)

    BaudRate.TabIndex = 4

    BaudRate.Text = "a"

    ' 

    ' PortNamelbl

    ' 

    PortNamelbl.AutoSize = True

    PortNamelbl.Location = New Point(13, 52)

    PortNamelbl.Name = "PortNamelbl"

    PortNamelbl.Size = New Size(41, 15)

    PortNamelbl.TabIndex = 5

    PortNamelbl.Text = "PortNamelbl"

    ' 

    ' commandlbl

    ' 

    commandlbl.AutoSize = True

    commandlbl.Location = New Point(12, 81)

    commandlbl.Name = "commandlbl"

    commandlbl.Size = New Size(41, 15)

    commandlbl.TabIndex = 6

    commandlbl.Text = "commandlbl"

    ' 

    ' Form1

    ' 

    AutoScaleDimensions = New SizeF(7.0F, 15.0F)

    AutoScaleMode = AutoScaleMode.Font

    ClientSize = New Size(800, 450)

    Controls.Add(commandlbl)

    Controls.Add(PortNamelbl)

    Controls.Add(BaudRate)

    Controls.Add(mmandstr)

    Controls.Add(Portnamestr)

    Controls.Add(Baudratestr)

    Controls.Add(CommandAction)

    Name = "Form1"

    Text = "Form1"

    ResumeLayout(False)

    PerformLayout()

End Sub

Friend WithEvents Button1 As Button

Friend WithEvents Baudratestr As TextBox

Friend WithEvents Portnamestr As TextBox

Friend WithEvents Commandstr As TextBox

Friend WithEvents BaudRatelbl As Label

Friend WithEvents PortNamelbl As Label

Friend WithEvents commandlbl As Label

Answer 1

Hi @byStangz Stanley Grimes

Locate the Windows Form Designer generated code region in the Designer.vb file and add your control declaration as a class member:

Private WithEvents MyButton As System.Windows.Forms.Button

In the InitializeComponent() method, initialize the control, set its properties, and add it to the form's Controls collection:

Me.MyButton = New System.Windows.Forms.Button()
Me.MyButton.Text = "Click Me"
Me.MyButton.Size = New System.Drawing.Size(100, 50)
Me.MyButton.Location = New System.Drawing.Point(50, 50)
Me.MyButton.Name = "MyButton"
' Add the button to the form
Me.Controls.Add(Me.MyButton)

Best Regards.

Jiachen Li

---

If the answer is the right solution, please click "Accept Answer" and kindly upvote it. If you have extra questions about this answer, please click "Comment". Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.