Geekette Mai

This is a sample to set buttons dynamicly on a webpage. It needs a panel on the page where the name panel is deleted and than run. The first idea of the sample was to create a calandar, so that is showed

Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mybutton As Button
        Dim i As Integer
        For i = 0 To New Date().DaysInMonth _
        (New Date().Year, New Date().Month) - 1
            mybutton = New Button
            mybutton.BackColor = Drawing.Color.White
            mybutton.Text = (i + 1).ToString
            mybutton.Width = New Unit(30)
            Me.Panel1.Controls.Add(mybutton)
            AddHandler mybutton.Click, AddressOf mybutton_Click
            If (i + 1) Mod 5 = 0 Then
                Me.Panel1.Controls.Add(New LiteralControl("<BR>"))
            End If
        Next
End Sub
Private Sub mybutton_Click _
    (ByVal sender As Object, ByVal e As System.EventArgs)
        Dim mylabel As New Label
        Me.Panel1.Controls.Add(New LiteralControl("<BR><BR>"))
        Me.Panel1.Controls.Add(mylabel)
        mylabel.Text = "The day is: " & DirectCast(sender, Button).Text
End Sub
 

• Share This Post:
• 
• 
• 
•   Short Url: http://wblo.gs/ZTa