title image


Smiley So geht datt






'Erstelle eine neue Applikation und füge diesen Code unter Form1.vb ein



Public Class Form1

    Private WithEvents Button2 As Button



    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Möglichkeit 1 deklariert den Button innerhalb der der Prozedur. Dadurch

        'muss dem Ereignis (z.B. .Click) die Ereignis-Handle-Prozedur manuell

        'zugeteilt werden

        Dim Button1 As New Button

        With Button1

            .Text = "Klick mich nicht!"

            .Location = New Point(10, 100)

            .Width = 135

            Me.Controls.Add(Button1)

            AddHandler .Click, AddressOf Button1_Click

        End With



        'Möglichkeit 2 setzt eine deklaration des Buttons ausserhalb

        'der Prozedur vorraus, siehe oben: "Private WithEvents Button2 As Button."

        'Die Ereignis-Handler können dann direkt nach der Prozedurdeklaration

        'hinzugefügt werden. ("Handles Button2.Click)

        'Ausserdem taucht der Button direkt unter den Form-Controls aus. So kann

        'eine Handler-Prozedur sehr einfach hinzugefügt werden.

        With Button2

            Button2 = New Button

            .Location = New Point(150, 100)

            .Width = 135

            .Text = "Oh ja, bitte klick mich!"

            Me.Controls.Add(Button2)

        End With

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox("Ey, warum klickst du mich? Klick ich dich, oder was?")

    End Sub



    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        MsgBox("Oh ja, gib's mir!!! :)")

    End Sub

End Class







Code eingefügt mit Syntaxhighlighter 4.0






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: