Ana içeriğe git

Haberler

Konu: Create Control Runtime with event asp.net vb.net (246 Kez okunmuş) önceki konu - sonraki konu

0 Üyeler ve 1 Ziyaretçi konuyu incelemekte.
Create Control Runtime with event asp.net vb.net
Gömülü sistemlerle çalışmaya başladığımdan bu yanadır web dir masaüstü programlamadı yeteri kadar zaman ayırmamışım.
Bir kontrolü çalışma esnasında oluşturup olayını yakalamak bu kadar mı zor olurmuş arkadaş.

Kod: [Seç]
Imports System
Imports System.Web

Public Class _default
    Inherits System.Web.UI.Page
    Dim TextBox2 As TextBox = New TextBox()
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        For i As Integer = 0 To 10
            Dim MyButton As Button = New Button

            MyButton.ID = "button" & i
            MyButton.Style("Position") = "Absolute"
            MyButton.Style("Top") = (25 * i).ToString & "px"
            MyButton.Style("Left") = (25 * i).ToString & "px"
            form1.Controls.Add(MyButton)
            AddHandler MyButton.Click, AddressOf MyButton_Click
        Next
        ' Create dynamic controls here.
       

        'Dim MyButton2 As Button = New Button()
        'MyButton2.ID = "Button2"
        'MyButton2.Style("Position") = "Absolute"
        'MyButton2.Style("Top") = "50px"
        'MyButton2.Style("Left") = "200px"
        'form1.Controls.Add(MyButton2)
        'AddHandler MyButton2.Click, AddressOf MyButton_Click


        TextBox2.ID = "TextBox2"
        TextBox2.Style("Position") = "Absolute"
        TextBox2.Style("Top") = "60px"
        TextBox2.Style("Left") = "100px"
        form1.Controls.Add(TextBox2)

        ' CODEGEN: The Web Form Designer requires this method call.
        ' Do not modify it by using the code editor.
        'InitializeComponent()
    End Sub

    Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim m As Button = CType(sender, Button)
        Me.TextBox2.Text = m.ID
    End Sub

End Class