Cuadro de Mensaje Personalizado
stallman stallman
* (Con el Permiso de MAC HOWARD)
- El señor MAC HOWARD me ha compartido un par de funciones (Adjuntas) las cuales sirven para realizar Cuadros de Mensajes Personalizados. Éstas trabajan muy bien sin embargo me causa los siguientes resultados:
1- Independientemente cual sea la combinación de botones que uno elija, siempre después de un click en cualquier botón me sale un MessageBox que me indica cúal de los botones de opciones se presionó: ¿Dónde elimino éso, que no salga ese mensaje?
2- Qué se debe hacer para que aparezcan las imágenes ico, ya que en el mensaje lo único que sale es un cuado con una gran "x" de lado a lado.
- Les agradecería mucho alguien me ayude a revisar dónde se localizan los resultados que menciono y cómo los puedo modicar, cambiar ó eliminar, dado que le doy vuelta y vuelta y no puedo localizar éstos.
De antemano muchas gracias.
Fabricio
MESSAGEBOX(_msgbox(....)), se ejecuta el mensaje personalizado y el
resultado se muestra con MessageBox, si ejecutas solamente
_msgbox(...) ya no aparecerá que botón presionaste.
Si te fijas en el código, tiene preestablecido los nombres que deben
tener los iconos a mostrar, en este caso deben ser archivos .BMP, y
también puedes indicar los sonidos a emitir.
Busca estos nombre después de la línea
***_____DEF Icons & Wav_____*** All Bells and Picts your choice
Saludos
Fabricio
On 2 mayo, 19:54, stallman stallman <stallma...@gmail.com> wrote:
> Hola Estimados Señores.
> *
> * *(Con el Permiso de MAC HOWARD)
> 1 KVerDescargar
>
> _msgbox.prg
> 9 KVerDescargar
stallman stallman
- Hice lo que me indicastes y me foncionó correctamente.
1- Sin embargo no puedo hacer que cargue las imágenes en los mensajes.
- Los Ubiqué en un Subdirectorio de mi proyecto que se llama Img
- Establecí la ruta específicamente en el PROCEDURE _MSGBOX
- Ubiqué también las imágenes y sonidos donde tengo los Prg's
Ninguna de éstas opciones me dio resultado, en qué será que estoy fallando?
Te agradezco.
sergio garcia
Dentro de la forma o donde lo utilices debes colocar ejemplo:
xmsg = 'Debe ingresar un doctor para efectuar Procedimientos'
_msgbox(xmsg,'Validad')
Lo demás debería ser trasparente en tu pantalla de comando deberías primero darle set defa to c:\xxxx (tu directorio) y debe funcionar trasparente.
______________________________________
Desarrollos de software
E-mail: gere...@magicsoft.com.gt
Aletrnativo: in...@magicsoft.com.gt
Web: www.magicsoft.com.gt
Gustavo Baquero
Wladimir Carrillo
Hola, puedes utilizar esta función en el archivo principal de tu aplicación….
FUNCTION estaExcelAbierto()
LOCAL nombreAplicacion
*-- VERIFICAR SI MICROSOFT EXCEL ESTA ABIERTO
DECLARE INTEGER FindWindow IN Win32API;
STRING @lpClassName, ;
STRING @lpWindowName
nombreAplicacion = "Microsoft Excel"
lnHWnd = FindWindow(0, @nombreAplicacion)
*-- TRUE SI ESTA ABIERTO
RETURN IIF(lnHWnd <> 0, .T., .F.)
ENDFUNC
Saludos