Aug 22
Un buen ejemplo de como utilizar el DatePicker para mostrar el calendario.
oMyform = Create("MiCal")
oMyform.Show
Read Events
Return
Define Class MiCal As Form
Height = 60
Caption = "Testing DTPicker"
AutoCenter = .T.
MaxButton = .F.
MinButton = .F.
AlwaysOnTop = .T.
Add Object odatetime As odttm With ;
Width = 85,;
Top = 5,;
Height = 25
Procedure Destroy
Clear Events
Endproc
Enddefine
Define Class odttm As OleControl
OleClass = "MScomctl2.DTPicker.2"
OleLCID = 1033
Procedure Init
This.Left = (Thisform.Width-This.Width) / 2
Endproc
Enddefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
