Ejemplo de Clase

Hola Kleyber...

Siendo breve, esta es una clase muy sencilla...
agrega a tu proyecto en vb un a clase en blanco y pega este código fuente...

' CLASE -
Option Explicit

Public Event MiEvento()
Public Function metodo1()

'acciones...
Call metodo2
End Function

Private Function metodo2()
RaiseEvent MiEvento
End Function
' CLASE -


Agrega un formulario, y pegale este codigo, corre el formulario paso por
paaso para que veas como se comporta

' FORMULARIO --

Option Explicit

Private WithEvents miClase As Class1

Private Sub Form_Load()
Set miClase = New Class1 'Inicializa la clase...
miClase.metodo1 'Llama al metodo1
Set miClase = Nothing 'Destruye el objeto...
End Sub


Private Sub miClase_MiEvento()
Debug.Print "Mi evento"
End Sub

' FORMULARIO --

Suerte
Sguindaw

Kleyber Briceño wrote:

Hola a todos. Un cordial saludo. Mucho sabría agradecerle a quien pudiera
darme un ejemplo de una clase para el manejo de los datos. Me gustaría mucho
una que hubiese manejo de eventos de clase (With Events). Muchas gracias

Sguindaw -> "gesteo onis: hacer que las cosas sean"