Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Textboxen_links(ByVal anzahl As Integer)
- Dim i As Integer
- Dim panel1 As New Panel
- panel1.Top = 36
- panel1.Left = 140
- panel1.Width = 320
- panel1.Height = 220
- GroupBoxLinks.Controls.Add(panel1)
- For i = 0 To anzahl
- tbl = New TextBox()
- tbl.Width = 310
- tbl.Text = a(1, 3, i)
- tbl.BorderStyle = BorderStyle.FixedSingle
- tbl.Name = "Box_links" & i
- tbl.Left = 5
- tbl.Top = 5 + i * 26
- tbl.ReadOnly = True
- panel1.Controls.Add(tbl)
- '</ textbox >
- '< anzeigen >
- panel1.BringToFront()
- BringToFront()
- '</ anzeigen >
- Next
- End Sub
- Private Sub Kopier_Buttons(ByVal anzahl As Integer)
- Dim i As Integer
- Dim panel3 As New Panel
- panel3.Top = 229
- panel3.Left = 491
- panel3.Width = 31
- panel3.Height = 250
- Me.Controls.Add(panel3)
- For i = 0 To anzahl
- bu = New Button()
- bu.Width = 24
- bu.Text = "->" & i
- bu.Name = "Button" & i
- bu.Left = 1
- bu.Top = 24 + i * 26
- panel3.Controls.Add(bu)
- AddHandler bu.Click, AddressOf bu_click
- '</ textbox >
- '< anzeigen >
- panel3.BringToFront()
- BringToFront()
- '</ anzeigen >
- Next
- End Sub
- Private Sub bu_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- Dim i As Integer
- If TypeOf (sender) Is Button Then
- Dim btn As Button = DirectCast(sender, Button)
- MsgBox(btn.Name) 'Button + i
- Dim number As Int = Convert.ToInt32(btn.Name.Replace("Button", "")) 'Entferne "Button" und wandel in Int
- KopiereTextboxInhalt(number)
- End If
- End Sub
- Private Sub KopiereTextboxInhalt(ByVal i As Integer)
- Dim panelFound As Panel
- Dim tblFound As Textbox
- For Each ctl As Control In GroupBoxLinks.Controls
- If ctl Is Panel Then
- panelFound = ctl
- For Each tbl As Control in panelFound.Controls
- If tbl Is Textbox Then
- tblFound = tbl
- MsgBox(tblFound.Text)
- Exit For
- End If
- Next tbl
- Exit For
- End If
- Next ctl
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement