FoxPro/Visual FoxPro - Enviar un mensaje a la pantalla con FoxPro 9

   
Vista:
Imágen de perfil de CUadra geordin

Enviar un mensaje a la pantalla con FoxPro 9

Publicado por CUadra geordin (3 intervenciones) el 25/11/2015 17:19:21
hola queria su ayuda tengo un proyecto que entregar de una escuela llevar el registro..pero hay algo que no puedo hacer que por ejemplo en una seccion con nombre A1 LO MAXIMO DE ESTUDIANTE ES 30 SUPONIENDO QUE TENGO LOS 30 QUIERO QUE ME ENVIE UN SMS A LA PANTALLA DICIENDO.. CUPOS AGOTADO SERIA DE MUCHA AYUDA :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Enviar un mensaje a la pantalla con FoxPro 9

Publicado por Fidel José (319 intervenciones) el 25/11/2015 22:51:06
Quieres enviar un SMS o poner un mensaje en la pantalla?

Para mensajes en pantalla:
Messagebox("Cupos Agotados",0,"Mensaje del Sistema")
Esto genera un form modal, por lo que el sistema queda detenido. Puedes usar el parámetro de tiempo:
lntimeOut = 2000
Messagebox("Cupos Agotados",0,"Mensaje del Sistema" , lnTimeOut )
* Con esa línea el mensaje se mostrará durante 2 segundos. Luego continuará con lo que sigue.

También puedes utilizar WAIT "Mensaje " Window AT nRow,nCol

O hacerte tu propio formulario de mensajes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Abel

Enviar un mensaje a la pantalla con FoxPro 9

Publicado por Abel (23 intervenciones) el 27/11/2015 00:03:21
La respuesta de Fidel es correcta, y práctica; sin embargo a mi me gustan más los mensajes en pantalla que se mantienen y que no bloquea ninguna otra acción, para eso creas en el formulario un control Timer y le das por nombre (por ej, tmBanner)
Podrías crear un método en el formulario y copiar lo siguiente. cuando se produce la condición que indicas invocas ese método; y en metódo del timar cuando se cumpla el lapso eliminas éste objeto Label con el siguiente comando: Thisform.RemoveObject('lbBanner')

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Thisform.AddObject('lbBanner','Label')
With Thisform.lbBanner
	.Caption   = "Aquií el mansaje que quieras que aparezca"
	.Top       = Thisform.Height/2
	.Left      = (Thisform.Width/2)-(Len(lcMensaje)/2)
	.Alignment = 2
	.FontBold  = .T.
	.AutoSize  = .T.
	.FontSize  = 10
	.Visible   = .T.
	.BackStyle = 0
Endwith
Thisform.tmBanner.Interval = 100
Thisform.tmBanner.Enabled = .T.

Top y left harán que se situe en centro mismo del formulario.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar