Curso Básico de Programación
en Visual Basic
Soluciones de la entrega Cuarenta y
cinco: 09/Feb/2003
Si quieres linkar con las otras entregas, desde el índice lo puedes hacer
Aquí tienes la solución al código propuesto en la entrega cuarenta y cinco.
El aspecto del formulario sería el siguiente:
El formulario en tiempo de diseño.Y este el código del formulario:
Option Explicit Private WithEvents mConEvento As cConEventos Private Sub crearDatosCmd_Click() mConEvento.CrearDatos End Sub Private Sub Form_Load() Set mConEvento = New cConEventos End Sub Private Sub mConEvento_DatosCreados(ByVal total As Long) MsgBox "Se han creado " & CStr(total) & " datos." End Sub Private Sub mConEvento_NuevoDato(ByVal elDato As String) List1.AddItem elDato End Sub
Espero que esto sólo te haya servido para confirmar que el código lo has hecho bien.
Nos vemos
Guillermo