Bienvenido y disfruta el nuevo diseño del sitio web.... agradecería me envíes tus comentarios acerca de los cambios realizados

Para descargar cualquier archivo es necesario estar registrado y hacer click en el titulo del archivo a descargar

Cómo agregar un Combo a un Grid?

Links de consulta, Visual Fox Pro, Trucos Comentarios ( 6 ) »
En este link encontrarás los pasos y detalles completos de cómo puedes agregar un Combo en un Grid de Visual Fox Pro.



Por: David Amador T

Desarrollo de aplicaciones en Microsoft Visual Fox Pro para Windows Vista

Links de consulta, Visual Fox Pro, Trucos, Windows Comentarios ( 0 ) »
Artículo en inglés de 6 páginas en donde se exponen algunas consideraciones a tener en cuenta si deseas desarrollar aplicaciones en VFP para que se ejecuten en Windows Vista.


El artículo me pareció bastante bueno, está muy enfocado en los aspectos de seguridad a tener en cuenta; se los recomiendo.


Por: David Amador T

Usuario de Windows es Administrador?

Visual Fox Pro, Trucos, Funciones API Comentarios ( 0 ) »
Este ejemplo nos permitirá conocer a través de una función API si el usuario que está actualmente logueado en Windows es "Administrador", es muy importante conocerlo puesto que existen procesos que sólo pueden realizarlos este tipo de usuarios.



Declare Integer IsUserAnAdmin
In shell32


? "Usted es usuario
Administrador: "
+ Iif(IsUserAnAdmin()
= 1,
"SI",
"NO")






Por: David Amador T

Combo multiselección

Visual Fox Pro, Trucos, Ejemplos - Código fuente, Funciones API Comentarios ( 17 ) »
Este ejemplo de combo es uno de los mejores que he visto; es muy parecido a un control de DevExpress que uso en .NET



Este Combo muestra los datos en un Grid, permitiendo seleccionar los elementos que desees y devuelve una lista de la posición (Recno) de los elementos seleccionados.



Adicionalmente incluye un tooltiptext de tipo balloontip realizado en base a funciones API, sencillamente fantástico.









Por: David Amador T

Invocar cuadros de dialogo de Windows

Visual Fox Pro, Trucos Comentarios ( 0 ) »

loComDialog = NewObject("mscomdlg.commondialog")


locomdialog.ShowFont() && Mostrar Fuente


locomdialog.ShowPrinter()&& Mostrar Impresora


locomdialog.ShowColor() && Mostrar Colores


locomdialog.ShowSave() && Mostrar Guardar


loComDialog.ShowOpen() && Mostrar Abrir


Por: David Amador T

Llamar a carpetas importantes de Windows

Visual Fox Pro, Trucos Comentarios ( 0 ) »

oShell = Createobject("Shell.Application")


oShell.Open(16) && ESCRITORIO


oShell.Open(14) && MIS VIDEOS


oShell.Open(11) && MIS MUSICA


oShell.Open(10) && CAPETRA DE MENU INICIO


oShell.Open(9) && ENVIAR A


oShell.Open(8) && RECIENTE


oShell.Open(6) && FAVORITOS


oShell.Open(5) && MIS DOCUMENTOS


oShell.Open(4) && IMPRESORAS


oShell.Open(3) && PANEL DE CONTROL


oShell.Open(2)
Por: David Amador T

Seleccionar Tipo de letra con todas las características

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Agregue un cuadro de
dialogo en el cual le permita establecer todas
las características de un tipo de letra.



#define CF_SCREENFONTS 0x00000001

#define CF_PRINTERFONTS 0x00000002

#define CF_BOTH (CF_SCREENFONTS + CF_PRINTERFONTS)

#define CF_SHOWHELP 0x00000004

#define CF_USESTYLE 0x00000080

#define CF_EFFECTS 0x00000100



loComDialog = newobject( "mscomdlg.commondialog" )



WITH loComDialog

 

        
.Flags = CF_BOTH + CF_EFFECTS  && Muestra
las fuentes Imprimibles y de la Ventana




        
.FontName = "Arial"  &&Valor Iniciales

        
.FontSize = 22          
&&Valor Iniciales




        
.ShowFont()



          
&& Resultado del tipo de letra seleccionado

        
? .FontName, .FontSize, .FontBold, .FontItalic, .FontStrikeThru,
.FontUnderline, .Color

ENDWITH

Por: David Amador T

Creando tablas en Word con VFP a través de Automatización

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Un ejemplo como podemos
crear tablas en Word con datos de tablas de VFP, a través de
Automatización.



USE
employee

lcTemp = SYS(2015)+".txt"



COPY fields empl_id, last_name
TO (lcTemp) TYPE csv

 

lnFields = 2

 

_ClipText = chrtran(FileToStr(lcTemp),["],"")

 

erase (lcTemp)

 

#define wdSeparateByCommas 2



oWordDocument=createobject("word.application") && Create word object

 

WITH oWordDocument

              
.documents.add

        

               
WITH .ActiveDocument

                       
.Range.Paste

                       
.Range.ConvertToTable(wdSeparateByCommas,,lnFields)

               
ENDWITH

     


             
.visible = .t.

             
.Activate

ENDWITH

 

Por: David Amador T

Encriptar con clase _crypt

Visual Fox Pro, Trucos Comentarios ( 2 ) »

oCrypt = NEWOBJECT("_cryptapi",HOME()+"ffc\_crypt.vcx")

cEncryptedString = []
cEncryptedString2 = []

oCrypt.encryptSessionStreamString("Encriptando Texto","clave", @cEncryptedString)


Por: David Amador T

Gráficos con Excel y con buenos efectos

Visual Fox Pro, Trucos Comentarios ( 1 ) »
Uno de los temas más
solicitados a mi correo son los gráficos; este es un BUEN ejemplo de como
hacerlo, y además agregándole un gran efecto.


LOCAL objXL, objXLchart, intRotate



objXL = CreateObject("Excel.Application")

objXL.Workbooks.Add

objXL.Cells(1,1).Value = 50

objXL.Cells(1,2).Value = 10

objXL.Cells(1,3).Value = 15

objXL.Range("A1:C1").Select



objXLchart = objXL.Charts.Add()

objXL.Visible = .t.

objXLchart.Type = -4100



For intRotate = 5 To 180 Step 5

     
objXLchart.Rotation = intRotate

Next



For intRotate = 175 To 0 Step -5

     
objXLchart.Rotation = intRotate

Next


Por: David Amador T

Determinar el Serial del Disco con WSH

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Otro
de los temas de bastante consulta es como obtener el Serial de un Disco,
esta forma es súper sencilla y con poco código.




oFS=CreateObject("scripting.filesystemobject")
? oFS.Drives(
"c:\").SerialNumber


Por: David Amador T

Impedir que cambien el tamaño de las Columnas de un Grid

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Si quiere que nadie cambie
el tamaño de las columnas de un grid, puede utilizar esta forma.


THISFORM.Grid1.SetAll("Resizable", .F.,
"Column")


Por: David Amador T

Copiar el contenido de dos archivos de Texto en Uno

Visual Fox Pro, Trucos Comentarios ( 1 ) »
Este ejemplo demuestra como
podemos copiar dos archivos o más en uno solo.


RUN COPY
 Archivo1.txt +
Archivo2
.txt  Destino.txt



Otra forma seria utilizando la función
strtofile



strtofile(filetostr("Archivo1.txt") + filetostr("Archivo2.txt"),
"Destino.txt")


Por: David Amador T

Copiar archivos utilizando WSH

Visual Fox Pro, Trucos Comentarios ( 0 ) »
De las formas más sencillas
de copiar y mover archivos y carpetas.


ofs = CreateObject("scripting.filesystemobject")

ofs.copyfolder("c:\Origen","e:\Destino")


Por: David Amador T

Desplazarse por un Grid

Visual Fox Pro, Trucos Comentarios ( 1 ) »

Forma de avanzar o retroceder dentro de un grid.


Thisform.Grid1.DoScroll(2)


Thisform.Grid1.DoScroll(3)



Donde los parámetros de
este método son los siguientes:


0 Desplazamiento hacia arriba

1 Desplazamiento hacia abajo

2 Desplazamiento retroceso de página

3 Desplazamiento avance de página

4 Desplazamiento a la izquierda

5 Desplazamiento a la derecha

6 Desplazamiento página a la izquierda

7 Desplazamiento página a la derecha


Por: David Amador T