[VB.Net]Create Forms or Controls on Runtime

1234hotmaster · 05-05-2011, 06:25 AM

Spoiler: Add a ButtonCode:
Dim Btn As New Button

With Btn
.Height = 50
.Width = 100
.Text = "Button1"
End With

Me.Controls.Add(Btn)

Spoiler: Add a PictureboxCode:
Dim Pic As New PictureBox
With Pic
.Height = 200
.Width = 200
.Dock = DockStyle.Fill
.Image = Image.FromFile(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Picture.PNG")
End With

Me.Controls.Add(Pic)

Spoiler: Add New FormCode:
Dim Frm1 As New Form

With Frm1
.Height = 400
.Width = 400
.StartPosition = FormStartPosition.CenterScreen
.Text = "New Form"
.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
.MaximizeBox = False
.Opacity = 95
.ShowIcon = False
.Show()
End With

Me.Controls.Add(Frm1)

Spoiler: Add Multiple ComponentsCode:
On Error Resume Next
Dim Frm1 As New Form
Dim Pic As New PictureBox
Dim Btn As New Button

With Btn
.Height = 50
.Width = 100
.Text = "Button1"
End With

With Pic
.Height = 200
.Width = 200
.Dock = DockStyle.Fill
.Image = Image.FromFile(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Picture.PNG")
End With

With Frm1
.Height = 400
.Width = 400
.StartPosition = FormStartPosition.CenterScreen
.Text = "New Form"
.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
.MaximizeBox = False
.Opacity = 95
.ShowIcon = False
.Show()
End With

Me.Controls.AddRange({Btn, Pic, Frm1})

Spoiler: Add New Controls On New FormCode:
On Error Resume Next
Dim Frm1 As New Form
Dim Pic As New PictureBox
With Pic
.Height = 200
.Width = 200
.Dock = DockStyle.Fill
.Image = Image.FromFile(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Picture.PNG")
End With

With Frm1
.Height = 400
.Width = 400
.StartPosition = FormStartPosition.CenterScreen
.Text = "New Form"
.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
.MaximizeBox = False
.Opacity = 95
.ShowIcon = False
.Show()
.Controls.Add(Pic)
End With

Me.Controls.Add(Frm1)

Spoiler: Add Multiple Controls on new FormCode:
On Error Resume Next
Dim Frm1 As New Form
Dim Pic As New PictureBox
Dim Btn As New Button

With Btn
.Height = 50
.Width = 100
.Text = "Button1"
End With

With Pic
.Height = 200
.Width = 200
.Dock = DockStyle.Fill
.Image = Image.FromFile(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Picture.PNG")
End With

With Frm1
.Height = 400
.Width = 400
.StartPosition = FormStartPosition.CenterScreen
.Text = "New Form"
.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
.MaximizeBox = False
.Opacity = 95
.ShowIcon = False
.Show()
.Controls.AddRange({Pic, Btn})
End With

Me.Controls.Add(Frm1)

Hope you liked the guide Smile

feel free to ask any question :innocent: