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.
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
Dejar un comentario
