Curso básico de programación en Visual Basic

  Lección 45

Solución, option explicit

 

Realizamos programas para la gestión de empresas. Empresas medianas y pequeñas. Programas de contabilidad, cartera de pedidos clientes proveedores, facturación control de albaranes, tesorería cartera de cobros y pagos y estadísticas. Nuestro agradecimiento a todos los que por unas causas o por otras visitan nuestra web. Gestión de empresas PYMES. Curso de programación de Visual Basic.

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