Calendario en un formulario de VFP9
Estoy agradecido por la ayuda que encuentro en la web de todoexpertos.
Estoy elaborando un formulario que incluye un calendario usando el oleControl, pues me puse a pensar si se puede realizar esta acción.
Cuando ya está insertado el calendario, al darle click al icono de la fecha se despliega el calendario para poder ver en modo completo.
Ahora mi pregunta es ¿puedo hacer lo mismo pero desde un commandbotton?
Es decir, al darle clik al cmdbotton automáticamente me muestre el calendario completo...
Es posible que exista un código, por ejemplo.
Thisform. OleControl1... Abrir el calendario completo.
Anticipo expresar mi agradecimiento,
Alcydez.
1 respuesta
Si, estoy trabajando en ello, creame para mi que llevo unas semanas viendo este el VFP9 es difícil saber los códigos, pero vamos por un buen camino.
Por ahí he visto esto.
En el evento click del cmdbotton
thisform.olecontrolFECHA.click
Con ese código se supone que desplegaría, pero no me funciona, quizá se tenga que agregar algo en los eventos del olecontrolFECHA, quizá en el evento clic, pero no se me ocurre que podría ser.
Saludos.
Prueba el siguiente código:
#define WM_LBUTTONDOWN 0x0201
#define WM_SYSKEYDOWN 0x0104
#define WM_SYSKEYUP 0x0105
#define VK_MENU 12
#define VK_DOWN 28
LOCAL lnHWND
declare integer SendMessage IN WIN32API ;
integer hwnd, integer Msg, integer Wparam, integer lParam
lnHWND=thisform.olecontrol1.hWnd
SendMessage(m.lnHwnd,WM_LBUTTONDOWN,0,0)
SendMessage(m.lnHwnd,WM_SYSKEYDOWN,VK_MENU+VK_DOWN,0)
SendMessage(m.lnHwnd,WM_SYSKEYUP,VK_MENU+VK_DOWN,0)
Ponlo dentro de tu evento clic del botón. La variable lnHWND contiene el valor "handle" de tu olecontrol. Así que allí le pones el nombre de tu olecontrol.
Me avisas.
Estimado Devilzito, ese código que acabas de poner es lo máximo, lo he pegado en el evento Click del botón que ejecutará el calendario, y sí al hacer un click me sale el calendario, hasta ahí todo bien.
Ahora viendo mi formulario, tengo un TEXTBOXFECHA donde ingreso la fecha seleccionada y esa fecha que he seleccionado se copia al TEXTBOXFECHA, eso no me deja hacer.
Lo hice de la siguiente manera.
En evento KEYPRESS del TEXTBOXFECHA
#define WM_LBUTTONDOWN 0x0201
#define WM_SYSKEYDOWN 0x0104
#define WM_SYSKEYUP 0x0105
#define VK_MENU 12
#define VK_DOWN 28
LOCAL oleFecha
declare integer SendMessage IN WIN32API ;
integer hwnd, integer Msg, integer Wparam, integer lParam
oleFecha=thisform.olecontrol1.hWnd
SendMessage(m.oleFecha,WM_LBUTTONDOWN,0,0)
SendMessage(m.oleFecha,WM_SYSKEYDOWN,VK_MENU+VK_DOWN,0)
SendMessage(m.oleFecha,WM_SYSKEYUP,VK_MENU+VK_DOWN,0)
Al presionar una tecla me despliega el calendario y me deja seleccionar la fecha, pero esa fecha no ingresa al TEXTBOXFECHA.
Agradezco tu tiempo para brindar tu ayuda. Gracias de corazón.
Atte.,
Alcydez
Dos preguntas en una.
Lo primero se resuelve como te indiqué, pero si tienes ese asunto de llevar el valor "clicqueado" a un textbox (que no entiendo porqué), entonces vamos por la vía más fácil:
Local loShell
Thisform. Olecontrol1. SetFocus
loShell=createObject("wscript.shell")
loShell.sendKeys("{F4}")
Con esto, abres el olecontrol. Entonces en tu evento "change" del olecontrol, pones la asignación a tu textboxt. Y ya.
Que burro que soy, el código que has puesto, está completo.
Lo he puesto en el Evento KEYPRESS del TEXTBOXTFECHA, y solo seguí los pasos.
Había obviado esta parte.
Escrito por Devilzito:"Ponlo dentro de tu evento clic del botón. La variable lnHWND contiene el valor "handle" de tu olecontrol. Así que allí le pones el nombre de tu olecontrol."
Quedo bien.
Muchas gracias, si necesito otra ayuda te estaré molestando.
Saludos,
Alcydez.
Ok Cierra la pregunta
