Steuerelementfelder aus VB6

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

      Steuerelementfelder aus VB6

      Wie kann ich Steuerelementfelder wie damals in VB6 erstellen?

      Das lässt sich lösen, indem man von dem Steuerelement ein Array bzw Arraylist/Hashtable erstellt und evtl Click-Events zuweist: Button Klasse

      ODER

      Control-Array von Mad Andy:

      VB.NET-Quellcode

      1. Public Class Form1
      2. Inherits System.Windows.Forms.Form
      4. Private ArrControls As New ArrayList
      6. 'Vom Windows Form Designer generierter Code
      8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      9. For i As Integer = 0 To 2
      10. Dim txt As New TextBox
      11. txt.Name = "txt" & i
      12. txt.SetBounds(8, 30 * (i + 1), 100, 30)
      13. txt.Text = "Text" & i
      14. AddHandler txt.Click, AddressOf Clicker
      15. ArrControls.Add(txt)
      16. Me.Controls.Add(txt)
      17. Next
      18. End Sub
      20. Private Sub Clicker(ByVal sender As System.Object, ByVal e As System.EventArgs)
      21. MsgBox(sender.Text)
      22. End Sub
      23. End Class


      Mehr Infos: Steuerelementfelder in VB2005


      Keywords: Visual Basic .net, VB.net, VB 2005, Steuerelement, Steuerelementfeld, Control, OCX, Array, Add Handler
      Gruß, Agent Smith 8-)

      activeFlags = (lazy OR weary)

      Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Mad Andy“ ()

      Update:
      Statt einer ArrayList ist es sinnvoller eine Hashtable zu verwenden:

      VB.NET-Quellcode

      1. 'Speicher für den Zugriff auf unsere dynamischen Steuerelemente
      2. Private ControlsTable As New Hashtable
      4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      5. For i As Integer = 0 To 2 '3 Stück
      6. 'Neue Textbox erzeugen
      7. Dim txt As New TextBox
      9. 'Eigenschaften setzen
      10. txt.Name = "txt" & i
      11. txt.SetBounds(8, 30 * (i + 1), 100, 30)
      12. txt.Text = "Text" & i
      14. 'Ereignisbehandlung hinzufügen
      15. AddHandler txt.Click, AddressOf Clicker
      17. ControlsTable.Add(txt.Name, txt) 'In unsere Liste eintragen
      18. Me.Controls.Add(txt) 'der Form hinzufügen
      19. Next
      20. End Sub
      22. Private Sub Clicker(ByVal sender As System.Object, ByVal e As System.EventArgs)
      23. 'Eregnisreaktion
      24. MsgBox(sender.Text)
      25. End Sub
      27. Private Sub Button1_Click(ByVal sender as System.Object, Byval e as System.EventArgs)
      28. 'Mit folgendem code kann die Textbox dann angesprochen werden:
      29. MsgBox(ControlsTable.Item("txt1").Text)
      30. End Sub



      Beachte:
      Man kann auf die zusätzliche ArrayList / HashTable auch ganz verzichten, dann muss man aber aufwändig über

      VB.NET-Quellcode

      1. Me.Controls.Find("txt1", false)(0).Text = "blubb"
      das Steuerelement raussuchen, was zu dem auch noch langsamer ist.


      so long..
      Andy

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()

    • Benutzer online 1

      1 Besucher

    • 2 Benutzer haben hier geschrieben