I have a program that dynamically creates any control (picture boxes, text boxes etc) on a panel, i want to be able to delete these controls by clicking on a 'Trash' button and then on the control i wish to delete. Try as i might i cant do it!
The relevant code is as follows:
Expand|Select|Wrap|Line Numbers
- 'This creates the textboxes and their handlers (i think iv'e done the handlers correctly...but i might not have)
- If Tool = "Text" Then
- 'define varibles
- intelement = intelement + 1
- CursorOffset = Windows.Forms.Cursor.Position
- intheight = (Me.Height - Panpro.Height) / 2
- intwidth = (Me.Width - Panpro.Width) / 2
- sintxtsize = txtsize.Text
- 'make space
- ReDim Preserve dynlabel(intelement)
- 'create new label and define propeties
- Me.Controls.Add(dynlabel(intelement))
- dynlabel(intelement) = New TextBox
- dynlabel(intelement).Location = New Point((CursorOffset.X - intwidth), (CursorOffset.Y - intheight))
- dynlabel(intelement).Parent = Panpro
- dynlabel(intelement).Text = "TYPE HERE"
- dynlabel(intelement).Tag = intelement
- AddHandler dynlabel(dynlabel(intelement).Tag).MouseClick, AddressOf textbox_click
- End If
- 'And this is the handler
- Private Sub textbox_click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
- If Tool = "KILL" Then
- Me.Controls.Remove(dynlabel(intelement))
- End If
- End Sub