![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
16/06/2006, 12:55
|
| | 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 |