ayuda con Dll - Hecho en VFP6.0SP5

Hola amigos del foro estoy desarrollando una Dll en VFP6.0Sp5 pero no se

hacer que cuando la Dll arroje un error este le informe al usuario el

que ocurrido como asi:

Ejplo Dll
DEFINE CLASS Prueba AS Custom OLEPUBLIC
Procedure Suma
parameters valor1,valor2,valor3
On Error xerror=.t.
suma=valor1+valor2+valor3
If xerror < Si Ocurrio el Error enviar un mensaje al Usuario
return "Error en el Traspaso de alguna variable" <- Un Ejmplo
cualquiera
Else
return suma
Endif
Enddefine


En mi Boton de mi formulario que llama a la Dll
oPrueba=Createobject("Prueba.prueba")
xsuma=oPrueba.suma(1,1,A) < Le mando variable A como caracter para que

arroje el Error

Llego hasta aqui no se como mostrar el Error que manda mi Dll ya que suma
puede retornar numerico como puede retornar el mensaje de Error, cuando
activo el On Error en mi Form me arroje Error en Ole Custom ... pero

me arroja el mensaje que quierp alguien me puede decir como dar solucion a
Esto.


Gracias por toda la ayuda que me puedan brindar


Optimista

Puedes utilizar la funcion API MessageboxEx

Declare integer MessageBoxEx in "user32";
Long hwnd,;
String lpText,;
String lpCaption,;
Long uType,;
Long wLanguageId


=MessageBoxEx(0,"Error en tipo de dato de la Variable","Error",0,0)


David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Optimista" escribió en el mensaje
news:
> Hola amigos del foro estoy desarrollando una Dll en VFP6.0Sp5 pero no se
que
> hacer que cuando la Dll arroje un error este le informe al usuario el
error
> que ocurrido como asi:
>
> Ejplo Dll
> DEFINE CLASS Prueba AS Custom OLEPUBLIC
> Procedure Suma
> parameters valor1,valor2,valor3
> On Error xerror=.t.
> suma=valor1+valor2+valor3
> If xerror < Si Ocurrio el Error enviar un mensaje al Usuario
> return "Error en el Traspaso de alguna variable" <- Un Ejmplo
> cualquiera
> Else
> return suma
> Endif
> Enddefine
>
>
> En mi Boton de mi formulario que llama a la Dll
> oPrueba=Createobject("Prueba.prueba")
> xsuma=oPrueba.suma(1,1,A) < Le mando variable A como caracter para

me
> arroje el Error
>
> Llego hasta aqui no se como mostrar el Error que manda mi Dll ya que

> puede retornar numerico como puede retornar el mensaje de Error, cuando
> activo el On Error en mi Form me arroje Error en Ole Custom ... pero
no
> me arroja el mensaje que quierp alguien me puede decir como dar solucion

> Esto.
>
>
> Gracias por toda la ayuda que me puedan brindar
>
>
> Optimista
>
>
>
>
>
>

Esta Api lo Declararia en la Dll o en El Evento Load del Formulario, No
Existe otra forma de porder enviar el Error al Formulario. sin Pasar por

Apis


Gracias


"David Amador (Davphantom)" escribió en el

news:#
> Puedes utilizar la funcion API MessageboxEx
>
> Declare integer MessageBoxEx in "user32";
> Long hwnd,;
> String lpText,;
> String lpCaption,;
> Long uType,;
> Long wLanguageId
>
>
> =MessageBoxEx(0,"Error en tipo de dato de la Variable","Error",0,0)
>
>
> David Amador Tapia
> Webmaster de "La Web de Davphantom"
> www.davphantom.cjb.net
> Cartagena. Colombia
> Tel (5) 6621502 - 6581523
>
>
> "Optimista" escribió en el mensaje
> news:
> > Hola amigos del foro estoy desarrollando una Dll en VFP6.0Sp5 pero no

> que
> > hacer que cuando la Dll arroje un error este le informe al usuario el
> error
> > que ocurrido como asi:
> >
> > Ejplo Dll
> > DEFINE CLASS Prueba AS Custom OLEPUBLIC
> > Procedure Suma
> > parameters valor1,valor2,valor3
> > On Error xerror=.t.
> > suma=valor1+valor2+valor3
> > If xerror < Si Ocurrio el Error enviar un mensaje al Usuario
> > return "Error en el Traspaso de alguna variable" <- Un Ejmplo
> > cualquiera
> > Else
> > return suma
> > Endif
> > Enddefine
> >
> >
> > En mi Boton de mi formulario que llama a la Dll
> > oPrueba=Createobject("Prueba.prueba")
> > xsuma=oPrueba.suma(1,1,A) < Le mando variable A como caracter para
que
> me
> > arroje el Error
> >
> > Llego hasta aqui no se como mostrar el Error que manda mi Dll ya que
suma
> > puede retornar numerico como puede retornar el mensaje de Error,

> > activo el On Error en mi Form me arroje Error en Ole Custom ...

> no
> > me arroja el mensaje que quierp alguien me puede decir como dar

a
> > Esto.
> >
> >
> > Gracias por toda la ayuda que me puedan brindar
> >
> >
> > Optimista
> >
> >
> >
> >
> >
> >
>
>