Lanzar error desde sub en una clase

[onlykfk]

Saludos estimados maestros de la programacion, esta vez le escribo por que resulta que ahora estoy dandole a Visual basic 6.0 y estoy realizando unas clases con metodos, pero, resulta que kiero ke un metodo si detecta un error interno, lo lance a kien manda ejecutar el procedimiento y dentro del mismo.
En java he realizado algo asi como esto:

Código:

 
class miclase {
 public void mimetodo(p1,p2) throws IOException {
  try {
    ...
  } catch(IOException io) {
    ...
  } finally {
    ...
  }
 }
} 

en Visual Basic pretendo lo siguiente:

Mi Clase:

Código:

 
Public Function getDate(dia, mes, anho) as String
 Dim dt as Date
 On Error GoTo ErrDate
'La siguiente linea me podria generar un error en una fecha no valida como "29/02/2006"
 dt = CDate(dia & "/" & mes & "/" & anho) 
 getDate = dt
 Exit Function
ErrDate:
 'Aki es donde kiero lanzar el error a kien hizo la llamada y manejarlo fuera, sin embargo no se como hacerlo
 Exit Function
End Function 

La llamada

Código:

Dim obj as new MiClase
On Error ResumeNext
X = obj.getDate(25,10,1982)
If Err <> 0 Then MsgBox Err.Description 'Que seria mi propio objeto error.
End 

¿Alguien podria ayudarme con este topico por favor?


Saludos

[marcos1979]

Err.raise lanza un error personalizado. En la ayuda hay informacion y ahora no estoy con VB

Un saludo

[[EX3]]

Tal y como te dijeron, en VB 6.0 seria mediante el metodo Raise del objeto Err:

Código:

 
Public Function getDate(dia, mes, anho) as String
 Dim dt as Date
 On Error GoTo ErrDate

 'La siguiente linea me podria generar un error en una fecha no valida como "29/02/2006"
 dt = CDate(dia & "/" & mes & "/" & anho) 
 getDate = dt
 Exit Function
ErrDate:
Call Err.Raise(vbObjectError + 1000, , "Fecha no valida")
End Function 

Salu2...

[onlykfk]

Gracias. Ya lo probe y funciono muy bien. Disculpen pero es que la mayoria de veces he manejado VB pero mas orientado a ASP es decir VBScripting y el manejo de errores solo lo conocia en forma lineal, es decir el famosisimo "On Error Resume Next" :) y ahora ke estoy desarrollando una aplicacion de escritorio pues me vi en la necesidad de recurrir a los maestros.

Ahora la duda es con respecto a los Enumerators en una clase de VB60, en si ¿Alguien podria darme una definicion mas clara de que son y como funcionan?

SALUDOS.

[luciano]

Hola te paso un ejemplo:

en un modulo de clase llamado Class1

Código:

Option Explicit
'Definis el Enum
Enum e_MiTipo

[Con borde] = 0
[Sin borde] = 1

End Enum

'Variable local
Private m_estilo As Long

'Lee la propiedad
Public Property Get Estilo() As e_MiTipo
Estilo = m_estilo
End Property

'Escribe la propiedad
Public Property Let Estilo(ByVal vNewValue As e_MiTipo)
m_estilo = vNewValue
End Property

en un form:

Código:

Option Explicit
Private Sub Form_Load()
Dim c As Class1

Set c = New Class1

'Le asignamos un valor de la lista del enum a Estilo
c.Estilo = [Con borde]

'Muestra el valor de la propiedad
MsgBox c.Estilo

Set c = Nothing

End Sub

Fijate que las propiedades son de tipo e_Mitipo, es decir el enum


saludos

[onlykfk]

Gracias. Yo lo habia probado en algo parecido con la diferencia de...

Código:

Option Explicit
'Definis el Enum
Enum e_MiTipo
[Con borde] = 0
[Sin borde] = 1
End Enum
 
'Variable local
Private m_estilo As e_MiTipo
 
'Lee la propiedad
Public Property Get Estilo() As e_MiTipo
Estilo = m_estilo
End Property
 
'Escribe la propiedad
Public Property Let Estilo(ByVal vNewValue As e_MiTipo)
m_estilo = vNewValue
End Property

Ahora ya todo esta mas claro.

Muchas Gracias.

Saludos