Ver Mensaje Individual
  #7 (permalink)  
Antiguo 16/06/2006, 12:55
Stream
 
Fecha de Ingreso: mayo-2004
Ubicación: Guadalajara, Jalisco, México
Mensajes: 724
Antigüedad: 20 años, 8 meses
Puntos: 6
Código:
 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Introducir aquí el código de usuario para inicializar la página

        Dim MiBTN As New Button
        MiBTN.Text = "Aceptar"
        MiBTN.ID = "Mibtn01"

        AddHandler MiBTN.Click, AddressOf MiBTN_Click


        
MiDIV.Controls.Add(MiBTN)
    End Sub

    Private Sub MiBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        '//Mi codigo que lo implementa
    End Sub

Última edición por Stream; 16/06/2006 a las 13:16