Mensaje de error al estilo Messenger en VFP
En la partes de propiedades colocamos el ShowWindow en 2 (Formulario de nivel superior).
Ahora declaramos la API que vamos a utilizar y la colocamos en el evento Load del formulario tal como aparece abajo:
integer hwnd, integer hWndInsertAfter,;
integer x,integer y,integer cx,integer cy,integer wFlags
En el Init del formulario debemos publicar la variable ttop y le asignamos el valor 0
PUBLIC ttop
ttop=0
*- esto nos permitira abrir el formulario sin que nos afecte otra ventana.
=SetWindowPos(this.HWnd, -1, 0, 0, 0, 0, 1 + 2 )
En el evento Activate deberemos colocar el siguiente procedimiento, esto no permitira mover el formulario y colocarle el sonido el cual mostrara el mensaje.
*-- Ubico el formulario
tleft = (_screen.Width -this.Width)
ttlef = (tleft + this.Width)
this.Move (ttlef,ttop,this.Width,this.Height)
FOR i = 1 TO tleft && muevo el form
ttlef = ttlef - 1
this.Move (ttlef,ttop,this.Width,this.Height)
IF ttlef = tleft
EXIT
ENDIF
ENDFOR
lcWaveFile =""
*-- defino la ruta del sonido a emitir
lcWaveFile = "sonido.wav"
DECLARE INTEGER PlaySound ;
IN WINMM.dll ;
STRING cWave, ;
INTEGER nModule, ;
INTEGER nType
PlaySound(lcWaveFile,0,1)
Una vez que hayas realizado todo esto el programa estará listo para funcionar.
En la parte inferior del Blog te estaré dejando el Link de descarga.
