Public WithEvents Schaltflaeche111 As Button = New Button
 
AddHandler Schaltflaeche111.Click, AddressOf Me.Schaltflaeche111_Click
ZelleNeu.Controls.Add(Schaltflaeche111)
 
Public Sub Schaltflaeche111_Click(sender As Object, e As System.EventArgs) _
  Handles Schaltflaeche111.Click
        Response.Write("TEST")
End Sub

Public Class _Default
    Inherits Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) _
      Handles Me.Load
        If Not IsPostBack Then
            Button1.Text = "Click me!"
        End If
    End Sub
 
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Button1.Text = "Hi!"
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

<asp:Content runat="server" ID="BodyContent" ContentPlaceHolderID="MainContent">
    <asp:Button ID="Button1" runat="server" Text="Button" />
</asp:Content>

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Sub Abfrage_Cor(Optional ByVal e As String = "Fälligkeit ASC")
        Dim Zelle As TableCell
        Dim Zeile As TableRow
        Dim Schaltflaeche111 As Button
 
        Zeile = New TableRow
        Schaltflaeche111 = New Button
        Schaltflaeche111.ID = "Schaltflaeche111"
        Schaltflaeche111.Text = "Kupon"
        Schaltflaeche111.CssClass = "KopfZeileButton111"
 
        AddHandler Schaltflaeche111.Click, AddressOf Me.Schaltflaeche111_Click
 
        Zelle = New TableCell
        Zelle.RowSpan = 2
        Zelle.Width = Unit.Percentage(6)
 
        Zelle.Controls.Add(Schaltflaeche111)
        Zeile.Cells.Add(Zelle)
 
        tblheader.Rows.Add(Zeile)
 
end Sub

    Protected Sub Schaltflaeche111_Click(sender As Object, e As _
      System.EventArgs) 
        Call Abfrage_Cor("Kupon ASC")
    End Sub

            <asp:Table 
            runat="server" 
            id="tblHeader"
            CellPadding= "0"
            CellSpacing="0"
            CssClass="AusgabeTable" />

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Shared Schaltflaeche As Button

AddHandler Schaltflaeche111.Click, AddressOf Me.Schaltflaeche111_Click

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist