WSH te permite agregar impresora .... en este
caso se agregara una impresora en red .... los parámetros a pasar son el puerto
donde esta conectado la impresora y la ruta de la misma dentro de la red

Ya vimos como agregábamos una relación al
entorno de datos por código .... en este ejemplo veremos como agregamos una
tabla al entorno de datos.-..

oWith Thisfom.DataEnvironment


.Addobject("MiTabla","Cursor")

.MiTabla.CursorSource="RutadatosTabla.dbf"

.MiTabla.Alias="Tutabla"

.MiTabla.Order="Tuorder"

.MiTabla.Exclusive=.T.

.MiTabla.BufferModeOverride=1 ** Dependiendo

.Opentables()

EndWith

Me imagino que han visto la propiedad Autosize....
bueno este es más o menos el código que puedes utilizar si deseas simular el
efecto .... el ejemplo me devolverá el ancho de la cadena de texto que se le
pases a TxtWidth .... debes tener en cuenta que el ancho es dependiente del
tipo, tamaño y estilo de la letra.

cTexto = _David_

? TXTWIDTH(cTexto, _Arial_, 10,
_N_)*(FONTMETRIC(6,(_Arial_), 10, _N_)/FONTMETRIC(6))

 

Esta es otra forma de apagar el computador
sin utilizar API ..... pero invocando al Shell de windows

 

oShell = CreateObject("Shell.Application")

oShell.ShutdownWindows

#DEFINE
LOGOFF 0

#DEFINE SHUTDOWN
1

#DEFINE
REBOOT 2

#DEFINE FORCE
4

#DEFINE
POWEROFF 8

DECLARE SHORT ExitWindowsEx
IN
Win32API;

    SHORT
uFlags,
INTEGER
dwReserved

=ExitWindowsEx(SHUTDOWN,
0)

Declare integer BlockInput
in
user32.dll
Long

BlockInput(.T.) &&
Bloquea

BlockInput(.F.) &&
Desbloquea

El Método Clear() te permite eliminar todos
los nodos de un treeview

 

Thisform.TreeView1.Nodes.Clear()



 

Puedes validar si una determinada dirección de email existe, para eso utilizamos un webservicio que se encuentra disponible en Internet. Requieres tener instalado SOAP Toolkit..

cEmail = "dav_amador@davphantom.net"

oSOAP = Createobject("MSSOAP.SoapClient")
oSOAP.mssoapinit("http://soap.einsteinware.com/email/emailservices.asmx?WSDL","EmailServices")

cRet = oSOAP.ValidateEmailAddress(cEmail)
cResult = Upper(cRet.Item(0).nodeValue)

Do Case
       Case cResult = "INVALID USER"
           cMen = "El usuario de ese email no existe"

       Case cResult = "INVALID SERVER"
           cMen = "El servidor del email no existe"

       Case cResult = "INVALID ADDRESS"
           cMen = "La dirección de email no existe"

       Case cResult = "VALID"
           cMen = "El email es valido"

Endcase

=Messagebox(cMen, 64, "Validar Email")

Puedes validar si una
determinada dirección de email existe, para eso utilizamos un webservicio
que se encuentra disponible en Internet. Requieres tener instalado SOAP
Toolkit.

? GETENV("USERPROFILE")

Este es un excelente truco
que te permite conocer la lista de aplicaciones instaladas con windows
Installer en tu equipo, además la versión y el idioma de la misma.

Local oWInst

oWInst = Createobject("WindowsInstaller.Installer")



oProducts = oWInst.Products

For Each Product In oProducts

        strName
= oWInst.ProductInfo (Product, "ProductName")

       
strMinVer = oWInst.ProductInfo (Product, "VersionMinor")

       
strMaxVer = oWInst.ProductInfo (Product, "VersionMajor")

        strVer =
oWInst.ProductInfo (Product, "VersionString")

        ?
strName + strMinVer + strMaxVer + strVer

Next

Puedes obtener la lista de
subcarpetas de un directorio de diversas formas. En este ejemplo utilizo
WSH.

oWSH = Createobject(_Scripting.FilesystemObject_)



oFolder = oWSH.GetFolder(Getdir())

For Each oSubfolder In oFolder.SubFolders

     ? oSubfolder.Name

Endfor

El RTF es un control
ActiveX que permite dar características al texto al estilo de Word. En el
ejemplo se muestra como imprimir el contenido de este ActiveX.

Para
imprimir el contenido debes utilizar el método SelPrint del control RTF
...

With Thisform.Rtf

     .selstart=1

     .sellength=len(.textrtf)

     .selprint

En alguna ocasión quería
recorrer los objetos de cada pagina de un pageframe y pensé que seria un
poco complejo, pero la solución fue más sencilla de lo que creía.

 

For Each loPage In
Thisform.Pageframe1.Pages

    For Each oControl In
loPage.Controls

        
?oControl.Name

    Next

Next

A través de automatización
puedes indicarle a Word cuantas copias de un documento quieres imprimir.

oW = CreateObject("Word.Application")

oW.Documents.Open(GetFile("DOC"))

oW.ActiveDocument.PrintOut(,,,,,,,3)

Este es un muy buen truco y
fácil de realizar. Puedes permitir que tu aplicación aparezca en el menú
"Enviar a" de Windows y puedes recibir en tu aplicación el nombre del
archivo que el usuario envié.

dependiendo del sistema
operativo que uses ..



- WinXP



C:Documents and SettingsNombre UsuarioSendTo



- Win9X



C:WindowsSendTo



Es decir coloca un acceso directo de tu aplicación en la carpeta SENDTO y
listo te aparecerá cuando hagas click sobre un archivo con el botón
derecho del mouse .....



Y para que el EXE de VFP te reciba el nombre del archivo debes colocar una
línea parecida a la siguiente :::



Lparameter cArchivo



Esta debe ser la primera línea del programa principal de tu EXE ....