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
 


 
entrega anterior ir al índice  

Ir al índice principal del Guille