Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

ayuda con Dll - Hecho en VFP6.0SP5

21/07/2003 - 14:54 por Optimista | Informe spam
Ayuda Hacer una pregunta
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 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, 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 a
Esto.


Gracias por toda la ayuda que me puedan brindar


Optimista
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 David Amador \(Davphantom\)
21/07/2003 - 15:24 | Informe spam
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 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, 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 a
Esto.


Gracias por toda la ayuda que me puedan brindar


Optimista






Preguntas similares

 

Busqueda sugerida :