How to programmatically add controls to a form in VB NET

Question

I am working on an inventory in Visual Basic 2010 Express Edition  I don t know the number of fields that will be necessary for the inventory  My hope was that I could add textboxes checkboxes buttons using for loops in the program  Is there a way to add controls to a form without using the toolbox   Can I add controls by instantiating them in the program

User · Answer

Public Class Form1     Private boxes 5  As TextBox      Private Sub Form1 Load sender As System Object  e As System EventArgs  Handles MyBase Load         Dim newbox As TextBox         For i As Integer   1 To 5  Create a new textbox and set its properties26 27          newbox   New TextBox         newbox Size   New Drawing Size 100  20          newbox Location   New Point 10  10   25    i - 1           newbox Name    TextBox   amp  i         newbox Text   newbox Name    Connect it to a handler  save a reference to the array  amp  add it to the form control          AddHandler newbox TextChanged  AddressOf TextBox TextChanged         boxes i    newbox         Me Controls Add newbox          Next     End Sub      Private Sub TextBox TextChanged sender As System Object  e As System EventArgs           When you modify the contents of any textbox  the name of that textbox          and its current contents will be displayed in the title bar          Dim box As TextBox   DirectCast sender  TextBox          Me Text   box Name  amp        amp  box Text     End Sub End Class

User · Answer

Yes  Private Sub MyForm Load ByVal sender As System Object  ByVal e As System EventArgs  Handles MyBase Load     Dim MyTextbox as New Textbox     With MyTextbox         Size   New Size 100 20          Location   New Point 20 20      End With     AddHandler MyTextbox TextChanged  AddressOf MyTextbox Changed     Me Controls Add MyTextbox    Without a help environment for an intelli sense substitution  the address name and the methods name  cannot be wrote in exchange for each other   Until an equality operation is prior for an exchange i have to work  on an as is base substituted   End Sub  Friend Sub MyTextbox Changed sender as Object  e as EventArgs      Write code here  End Sub

User · Answer

Dim numberOfButtons As Integer Dim buttons   as Button  Private Sub MyForm Load ByVal sender As System Object  ByVal e As System EventArgs  Handles MyBase Load     Redim buttons numberOfbuttons      for counter as integer   0 to numberOfbuttons         With buttons counter              Size    10  10              Visible   False             Location    55  33   counter 13              Text    Button    counter 1  ToString   or some name from an array you pass from main             any other property         End With               next End Sub   If you want to check which of the textboxes have information  or which radio button was clicked  you can iterate through a loop in an OK button   If you want to be able to click individual array items and have them respond to events  add in the Form load loop the following   AddHandler buttons counter  Clicked AddressOf All Buttons Clicked    then create  Private Sub All Buttons Clicked ByVal sender As System Object  ByVal e As System EventArgs        some code here  can check to see which checkbox was changed  which button was clicked  by number or text End Sub   when you call  objectYouCall numberOfButtons   initial value from main program  response yes or no or other   objectYouCall ShowDialog     For radio buttons  textboxes  same story  different ending

User · Answer

To add controls dynamically to the form  do the following code  Here we are creating textbox controls to add dynamically   Public Class Form1     Private m TextBoxes   As TextBox           Private Sub Button1 Click ByVal sender As System Object                                  ByVal e As System EventArgs                                  Handles Button1 Click            Get the index for the new control          Dim i As Integer   m TextBoxes Length            Make room          ReDim Preserve m TextBoxes i             Create and initialize the control          m TextBoxes i    New TextBox         With m TextBoxes i               Name    TextBox   amp  i ToString               If m TextBoxes Length  lt  2 Then                   Position the first one                   SetBounds 8  8  100  20              Else                   Position subsequent controls                   Left   m TextBoxes i - 1  Left                  Top   m TextBoxes i - 1  Top   m TextBoxes i -                       1  Height   4                  Size   m TextBoxes i - 1  Size             End If                Save the control s index in the Tag property                 Or you can get this from the Name                Tag   i         End With            Give the control an event handler          AddHandler m TextBoxes i  TextChanged  AddressOf TextBox TextChanged            Add the control to the form          Me Controls Add m TextBoxes i       End Sub       When you enter text in one of the TextBoxes  the TextBox TextChanged event      handler displays the control s name and its current text      Private Sub TextBox TextChanged ByVal sender As        System Object  ByVal e As System EventArgs            Display the current text          Dim txt As TextBox   DirectCast sender  TextBox          Debug WriteLine txt Name  amp         amp  txt Text  amp           End Sub End Class

User · Answer

You can get your Button1 location and than increase the Y value every time you click on it   Public Class Form1     Dim BtnCoordinate As Point     Private Sub Button1 Click ByVal sender As System Object  ByVal e As System EventArgs  Handles Button1 Click         Dim btn As Button   New Button         BtnCoordinate Y    Button1 Location Y   4         With btn              Location   New Point BtnCoordinate               Text   TextBox1 Text              ForeColor   Color Black         End With         Me Controls Add btn          Me StartPosition   FormStartPosition CenterScreen     End Sub      Private Sub Form1 Load ByVal sender As System Object  ByVal e As System EventArgs  Handles MyBase Load         Button1Coordinate   Button1 Location     End Sub End Class

[vb.net] How to programmatically add controls to a form in VB.NET

Examples related to vb.net