VB.NET Button zur Laufzeit erstellen

In VB.NET einen Button zur Laufzeit erstellen kann als Anfänger schwierig sein, muss es mit meinem Beispiel jedoch nicht!

Ich werde Dir unter Anderem zeigen, wie wir die AddHandler-Anweisung dazu verwenden.

Zusätzlich benötigen wir den AddressOf-Operator, um an die jeweilige Adresse der Ziel-Methode zu kommen.

VB.NET Button Beispiel – Allgemein

Falls Du Dich bisher noch nicht allzu tiefgehend mit dem Button beschäftigt hast, empfehle ich Dir mein allgemeines Button Beispiel.

In diesem Beitrag erkläre ich alle Dir alles Wissenwerte über das Button-Control, wie z. B. Eigenschaften, Methoden und dessen Funktionsweise.

Der heutige Beitrag handelt hingegen von einem Thema, auf das man eher später – aber definitiv – stößt.

Normalerweise designt man seine Oberfläche ja für gewöhnlich in der dafür vorgesehenen Designer-Oberfläche, aber manchmal reicht dies nicht aus.

Der Button – Eine kleine Wiederholung

Unendliche Einsatzmöglichkeiten

Wie Du in meinem anderen Beitrag schon erfahren konntest, ist der Button so ziemlich eines der absoluten Basic-Controls.

Die Nutzungsmöglichkeiten sind schier unendlich:

• Zum Drucken von Rechnungen
• Öffnen eines Detail-Fensters
• Das ausführen einer Suche
• Bearbeitete Daten zu speichern
• und viel viel mehr!

Das Click-Ereignis

Wenn Du Dich noch erinnern kannst, bzw. es vielleicht noch weißt, brauchen wir für die Verwendung des Buttons im Wesentlichen das wichtigste Ereignis: Das Click-Ereignis.

Verschiedene Button-Zustände

Auch mehr als bekannt, sind die verschiedenen Zustände, die der Button für gewöhnlich einnehmen kann.

Darunter sind wohl die gängigsten States, der „Hover„, „Disabled“ und „Loading“ State.

Etwas abwegiger, jedoch ein moderner Augenschmaus sind vor allem aus „Material-Design“ orientierten Steuerelementen bekannt, ist z. B. der „Ripple„-Effekt.

Wie der Name schon sagt eher ein Effekt und kein State, aber dennoch sehr gängig.

VB.NET Button zur Laufzeit erstellen

Im Laufe Deiner Visual Basic .NET Karriere, kann es durchaus vorkommen, dass Du einen Button auch mal zur Laufzeit erstellen möchtest, bzw. musst.

Ein konkreter mir einfallender Anwendungsfall wäre z. B. die dynamische Erstellung einer virtuellen Tastatur.

Stell Dir vor, Du schaltest in der virtuellen Tastatur auf einen anderen Modus – man kennt es z. B. von Handytastaturen.

Dann könntest Du die vorhandenen Buttons durch andere Buttons dynamisch ersetzen.

Auf Form-Ebene

Den Button auf Form-Ebene zu erstellen ist praktisch analog zum Weg über den Designer, jedoch eben nur pur Code-Datei basiert.

Der Code der Form

Konstruktor

Im Form-Konstruktor initialisieren wir den Button mit einer neuen Instanz.

Wir könnten dies auch alternativ auch im Load-Ereignis machen, allerdings macht es im Konstruktor für mich persönlich mehr Sinn.

Im Konstruktor wird – wer hätte das gedacht – konstruiert, primär die Form, aber auch all das was dazu gehört.

Darunter fallen natürlich auch die Kind-Elemente, zumindest wenn keine Dependency Injection o. Ä. verwendet wird..

Die letzte Zeile erkläre ich hier, im Teil der „WithoutHandlesClause„-Methode

WithHandlesClause – Click-Eventhandler

Diese Sub ist wie üblich via Handles-Klausel verknüpft, das geht deshalb, weil wir den Button auf Form-Ebene und mit WithEvents deklariert haben.

WithoutHandlesClause – Click-Eventhandler

Diese Methode wird dynamisch durch die AddHandler-Anweisung im Konstruktor mit dem Click-Event des Timers verknüpft.

Diese Vorgehensweise ist praktisch das Kernelement des ersten Beispiels.

Imports System.Diagnostics

Public Class Form1

    Private WithEvents Button As Button

    Sub New()
        InitializeComponent()
        Button = New Button()
        AddHandler Button.Click, AddressOf WithoutHandlesClause
    End Sub

    Private Sub WithHandlesClause(sender As Object, e As EventArgs) Handles Button.Click
        Debug.WriteLine("WithHandlesClause")
    End Sub

    Private Sub WithoutHandlesClause(sender As Object, e As EventArgs)
        Debug.WriteLine("WithoutHandlesClause")
    End Sub

End Class

Durch Button-Click

Hier zeige ich, wie man einen Button durch das Klicken eines weiteren Buttons erstellen kann.

Ebenso wie im vorherigen Beispiel, greife ich hier auf eine bereits existierende Methode in der Form zurück.

Wir instanziieren zuerst einen neuen Button, weisen Ihm anschließend einige Eigenschaften zu und fügen Ihn dann zur Darstellung der Form hinzu.

Private Sub btnCreateButton_Click(sender As Object, e As EventArgs)
    Dim button = new Button()
    button.Location = new Point(50, 80)
    button.Height = 23
    button.Width = 75
    button.Text = "Dynamic woohoo"
    AddHandler button.Click, AddressOf MyClick
    Controls.Add(button)
End Sub

Private Sub MyClick(sender As Object, e As EventArgs)
   System.Diagnostics.Debug.WriteLine("MyClick")
End Sub

VB.NET Button zur Laufzeit erstellen – Mit anonymen Handler

Im letzten Beispiel zeige ich Dir eine Vorgehensweise mit einer anonymen Handler-Methode.

Natürlich musst Du auch hier auf die korrekte Signatur der Methode, also der korrekten Anzahl und der richtigen Positionierung der Parameter achten.

Mit anonymer Sub

In diesem Fall brauchst Du den AddressOf-Operator nicht, da Du die Methode ja namentlich nennen und somit an Ihre „Adresse“ kommen kannst.

Private Sub btnCreateButton_Click(sender As Object, e As EventArgs)
    Dim button = new Button()
    button.Location = new Point(50, 80)
    button.Height = 23
    button.Width = 75
    button.Text = "Dynamic woohoo"
    AddHandler button.Click, Sub(sender, e)
                                 Debug.WriteLine("anonymous")
                             End Sub
    Controls.Add(button)
End Sub

Mit anonymer Sub und Variable

Du hast sogar die Möglichkeit, diesen Handler in eine Variable zu stecken, bzw. zu speichern und dann via AddHandler zuzuweisen:

Private Sub btnCreateButton_Click(sender As Object, e As EventArgs)
    Dim button = new Button()
    button.Location = new Point(50, 80)
    button.Height = 23
    button.Width = 75
    button.Text = "Dynamic woohoo"
    Dim dynamicCreatedHandler = Sub(sender, e)
                                    Debug.WriteLine("anonymous")
                                End Sub
    AddHandler button.Click, dynamicCreatedHandler
    Controls.Add(button)
End Sub

Downloads

Der Beitrag VB.NET Button zur Laufzeit erstellen erschien zuerst auf Robert Skibbe.

VB.NET Timer zur Laufzeit erstellen

In diesem Beitrag werde ich Dir erklären, wie man in VB.NET einen Timer zur Laufzeit erstellen kann.

Dabei wirst Du unter Anderem sehen, wie die AddHandler-Anweisung zum Einsatz kommt.

In Kombination dazu, benötigen wir auch den AddressOf-Operator, um an die „Adresse“ der zu verknüpfenden Methode zu kommen.

Diese beiden Werkzeuge brauchen wir, um das Tick-Ereignis dynamisch mit einer Methode verknüpfen zu können.

VB.NET Timer Beispiel – Allgemein

Falls du ein allgemeines Tutorial, bzw. ein allgemeines VB.NET Timer Beispiel suchst, wirst du in diesem Beitrag auf meiner Seite fündig.

Dort erkläre ich alle Basics über das Timer-Control, wie z. B. Eigenschaften, Methoden und dessen Funktionsweise.

Zusätzlich erzähle ich noch etwas über einen eigenen kleinen Bug den ich damals zuerst nicht gefunden habe und was man beachten muss.

Timer – Eine kleine Wiederholung

Beispielreiche Einsatzmöglichkeiten

Wie wir im anderen Beitrag schon lernen konnten, ist der Timer dazu da, gewissen Code im Intervall zu wiederholen.

Die Einsatzbeispiele sind vielfältig:

• Eine simple digitale Uhr
• Einen Kalender mit Termin-Synchronisation
• Einen Windows-Service der im Hintergrund eventuell Signale an eine Http-Schnittstelle sendet
• uvm.

Das Tick-Ereignis

Falls Du Dich noch erinnern kannst, oder es ggf. bereits weißt, brauchen wir für die Verwendung des Timers hauptsächlich sein wichtigstes Ereignis: Das Tick-Ereignis.

VB.NET Timer zur Laufzeit erstellen

Nun kann es von Zeit zu Zeit vorkommen, dass man als .NET-Entwickler einen Timer zur Laufzeit erstellen möchte.

Sei es zum Beispiel für ein Spiel der Marke Eigenbau, sei es auch noch so klein, bzw. grafisch noch so schlicht.

Achtung!

Ich möchte bevor ich dir die Beispiele zeige, noch gerne einen gut gemeinten Rat ans Herz legen.

Du solltest Dir bei dem Design Deiner kleinen Anwendung, deines Spiels, etc. im Klaren sein, dass es unter Umständen bessere Lösungen geben könnte, als nachher 15 Timer zu haben – just saying.

Überlege Dir daher ausgiebig, ob Dein Problem nicht eventuell mit wenigeren Timern, oder gar einem erledigt werden könnte.

Allerdings sehe ich es auch teils relativ locker, denn das Lernen ist ein Prozess und man wird nun einmal meist nur durch das Probieren besser – behalt‘ es nur im Kopf!

VB.NET Timer zur Laufzeit erstellen – Auf Form-Ebene

Ist ähnlich dem Designer, nur halt pur Code-Datei basiert, sprich nicht im Designer.

Der Code der Form

Konstruktor

Im Konstruktor der Form initialisieren wir den Timer mit einer neuen Instanz.

Könnte alternativ auch im Load-Ereignis passieren, allerdings macht es für mich persönlich mehr Sinn im Konstruktor.

Im Konstruktor wird halt konstruiert – auch die Kind-Elemente, zumindest wenn keine Dependency Injection o. Ä. verwendet wird..

Das auskommentierte Initialisierungs-Beispiel tut es dem Designer in der Designer-Datei gleich.

Die letzte Zeile erkläre ich hier, im Teil der „WithoutHandlesClause„-Methode

Form1_Load – Load-Ereignishandler

Im Ereignishandler für das „Form-Load„-Ereignis können wir den Timer dann per Timer.Start() starten. Alternativ könnte man natürlich auch hier, oder schon bei der Initialisierung „Enabled“ auf True stellen, etc.

WithHandlesClause – Tick-Eventhandler

Diese Sub ist wie üblich via Handles-Klausel verknüpft, das geht deshalb, weil wir den Timer auf Form-Ebene und mit WithEvents deklariert haben.

WithoutHandlesClause – Tick-Eventhandler

Diese Methode wird dynamisch durch die AddHandler-Anweisung im Konstruktor mit dem Tick-Event des Timers verknüpft. Diese Vorgehensweise ist praktisch das Kernelement des ersten Beispiels.

Imports System.Diagnostics

Public Class Form1

    Private WithEvents Timer As Timer

    Sub New()
        InitializeComponent()
        Timer = New Timer()
        ' this is how the designer does it internally
        ' Timer = New Timer(Me.components)
        AddHandler Timer.Tick, AddressOf WithoutHandlesClause
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' or use Enabled = True above or here
        Timer.Start()
    End Sub

    Private Sub WithHandlesClause(sender As Object, e As EventArgs) Handles tmrTime.Tick
        Debug.WriteLine("WithHandlesClause")
    End Sub

    Private Sub WithoutHandlesClause(sender As Object, e As EventArgs)
        Debug.WriteLine("WithoutHandlesClause")
    End Sub

End Class

VB.NET Timer zur Laufzeit erstellen – Durch Button-Klick

In diesem Beispiel zeige ich, wie man einen Timer innerhalb eines „Button-Klick„-Ereignishandlers erstellen kann.

Auch hier werden wir „bekannte Methoden“ verwenden, also Methoden, die bereits in der Form vorhanden sind.

Private Sub btnCreateTimer_Click(sender As Object, e As EventArgs)
    Dim timer = new Timer()
    timer.Interval = 1000 ' default 100ms
    AddHandler timer.Tick, AddressOf MyTicker
    timer.Start() ' or use Enabled = True if you want to start it immediately
End Sub

Private Sub MyTicker(sender As Object, e As EventArgs)
   System.Diagnostics.Debug.WriteLine("MyTicker")
End Sub

VB.NET Timer zur Laufzeit erstellen – Mit anonymem Handler

Mit dem dritten und letzten Beispiel möchte ich die Möglichkeit für einen sogenannten „anonymen Handler“ nutzen.

Selbstverständlich muss man auch hier auf die Signatur, also in diesem Fall auf die korrekte Anzahl der Parameter der Methode achten.

Mit anonymer Sub

Hier brauchst Du auch keine AddressOf-Operator angeben, da wir nicht darüber praktisch an die Adresse der Funktion kommen müssen.

Private Sub btnCreateTimer_Click(sender As Object, e As EventArgs)
    Dim timer = new Timer()
    timer.Interval = 1000 ' default 100ms
    AddHandler timer.Tick, Sub(sender, e)
                                   Debug.WriteLine("anonymous")
                               End Sub
    timer.Start() ' or use Enabled = True if you want to start it immediately
End Sub

Mit anonymer Sub und Variable

Du kannst diesen Handler auch in eine Variable stecken und dann mit AddHandler zuweisen:

Private Sub btnCreateTimer_Click(sender As Object, e As EventArgs)
    Dim timer = new Timer()
    timer.Interval = 1000 ' default 100ms
    Dim dynamicCreatedHandler = Sub(sender, e)
                                    Debug.WriteLine("anonymous")
                                End Sub
    AddHandler Timer.Tick, dynamicCreatedHandler
    timer.Start() ' or use Enabled = True if you want to start it immediately
End Sub

Der Beitrag VB.NET Timer zur Laufzeit erstellen erschien zuerst auf Robert Skibbe.