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