RUN /N nombreprotector.scr /S
Si quieres volver loco a cualquier persona utiliza este truco; cuando por ejemplo presionas la letra a entonces te muestra x.
If inlist(nKeyCode, 97,
65)
nodefault
keyboard "X"
EndIf
Tanto el EditBox como el TextBox incorporan la nueva propiedad MaxLength donde podemos indicar el número máximo de caracteres que se pueden introducir. Esta propiedad anula a InputMask. También tenemos que tener en cuenta que sólo es válida para caracteres y no para números. Para estos deberemos seguir utilizando la técnica de poner dentro del InputMask tantos 9 como dígitos.
Cuando ejecutamos un reporte y este muestra la barra de Preview, muchas veces deseamos colocarla anclada al resto de barras.
Primero ejecutamos el reporte con la cláusula tradicional:
Report Form nombrereporte.frx preview nowait
Podemos manipular las propiedades de un formulario desde código.
Como sabemos un reporte no es más que una tabla donde se almacenan los objetos y las propiedades de estos que luego son invocados por el Dataenvironment.
Bueno para cambiar las propiedades de los reportes desde código debemos abrir el reporte como una tabla:
USE nombrereporte.frx
REPLACE fontface with "Verdana", fontsize WITH 10, fontstyle
WITH 1 FOR objtype = 1
Con esto ponemos como predeterminado la fuente Verdana a 10 puntos y
negrilla, si en fontstyle ponemos 0 tendremos letra normal.
Este es un truco bastante importante y sencillo; su aplicación es determinante cuando queremos agregar los datos a una tabla mostrados en un cursor
APPEND FROM DBF(_nombre_cursor_)
OPEN DATABASE c:Ruta_Base_de_Datos.dbc
cNomTablas = ADBOBJECT(infVector, "TABLE")
FOR EACH cNomTablas IN infVector
? cNomTablas
ENDFOR
lCadena = "El amor es el perdón más fácil"
? CHRTRAN(lCadena, "áéíóúáéíóú", "aeiouAEIOU")
En el Evento Init( ) del formulario se devuelve .F. y el formulario no se cargara
Método Init ( )
Return .F.
Una forma sencilla de borrar archivos sin complicaciones.
ERASE *.tmp
cPalabra = "pureta" && Donde quería decir puerta
oWord = CreateObject("Word.Application")
? oWord.CheckSpelling(cPalabra)
&& Si la palabra existe devuelve .T. sino .F.
Por defecto el mensaje mostrado por Wait Window se muestra en la parte superior derecha de la pantalla, con este truco se muestra centrado en la pantalla.
cMensage =
"Mensaje de ejemplo"_Screen
.Scalemode = 0Wait Window
cMensage At Int(_Screen.Height/2), Int(_Screen.Width/2 - Len(cMensage)/2)
Les gustaran estos ejemplos.
Ejemplo No 1
DEFINE WINDOW wAyuda ;
FROM 1,1 TO 5,35 ;
FONT _MS SANS SERIF_,8 ;
STYLE _BN_ && Define la ventana con fuente y estilo
ACTIVATE WINDOW wAyuda
?_Lo Mejor de VFP_
?_La Web de Davphantom_
WAIT WINDOW "" TIMEOUT 3
RELEASE WINDOWS wAyuda
Ejemplo No 2
Declare integer Sleep in "kernel32" ;
Long dwMilliseconds
DEFINE WINDOW wAyuda ;
FROM 1,1 TO 3,35 ;
FONT _MS SANS SERIF_,8 ;
STYLE _BN_ COLOR RGB(255,255,255,0,0,255)&& De&& Define la ventana con fuente y estilo
ACTIVATE WINDOW wAyuda
?_Lo Mejor de VFP_
?_La Web de Davphantom_
=sleep(1000)
**WAIT WINDOW TIMEOUT 3
RELEASE WINDOWS wAyuda
=AFONT(gaFontArray)
&& Matriz que contiene nombres de fuentes
gnNumFonts = ALEN(gaFontArray) && Número de fuentes
IF gnNumFonts > 25
gnNumFonts = 25 && Muestra las
25 primeras fuentes
ENDIF
FOR nCount = 1 TO gnNumFonts
? ALLTRIM(gaFontArray(nCount))
&& Muestra nombre de fuente
?? _ Esto es un ejemplo de _ ;
+ ALLTRIM(gaFontArray(nCount)) FONT gaFontArray(nCount), 8
ENDFOR