Aug 22
Otra forma de rellenar con ceros a la izquierda una cadena. En el ejemplo quiero rellenar con ceros el número 80...
- Public oform1
- oform1=Newobject("form1")
- oform1.Show
- Return
- Define Class form1
As Form - DoCreate = .T.
-
Caption
=
"Explorador de Archivos" -
Name =
"Form1" -
Add Object
ole1
As OleControl With
; -
Top
= 14, ; -
Left = 18, ; -
Height
= 200, ; -
Width
= 341, ; -
Name
=
"Ole1"
,; -
OleClass
=
"Shell.Explorer.2" -
Add Object
command1
As CommandButton With
; -
AutoSize
= .T., ; -
Top = 216, ; -
Left
= 80, ; -
Height
= 27, ; -
Width
= 114, ; -
Caption =
"Mostrar contenido de la
carpeta", ; -
Name
=
"Command1" -
Procedure Init - This.ole1.Object.Navigate2("c:")
-
EndProc - Procedure
command1.Click - Local
cDir - cDir =
Getdir(",",",2) -
Thisform.ole1.Navigate2(cDir) -
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
