TRUCO 1: ¿Cómo obtener la operación realizada sobre un formulario modal?.
A veces es necesario mostrar un formulario modal donde el usuario introduzca una serie de datos y después pulse Aceptar o Cancelar. En función de la operación realizada (Aceptar o Cancelar) se puede mostrar un segundo formulario con más información o con los resultados de la operación. Desafortunadamente, no es posible lanzar otro diálogo desde el formulario modal ya que éste último debe permanecer en primer plano. Para evitar este problema, se puede utilizar una variable booleana en el formulario modal que indique la operación realizada por el usuario. Al descargar el formulario, sus variables no desaparecen sino que siguen en memoria, por lo que se pueden consultar desde un segundo formulario y actuar en consecuencia. A continuación se muestra un ejemplo:
Añada formularios al proyecto (Form1 y Form2).
Sitúe un botón (Command1) en Form1.
Sitúe dos botones (Command1 y Command2)en Form2.
Escriba el siguiente código en Form1:
Private Command1_Click()
Form2.Show vbModal
If Form2.Operacion Then
MsgBox "Operación A"
Else
MsgBox "Operación B"
End If
Set Form2 = Nothing
End Sub
Escriba el siguiente código en Form2:
Public Operacion as Boolean
Private Command1_Click()
Operacion = True
Unload Me
End Sub
Private Command2_Click()
Operacion = False
Unload Me
End Sub
Ejecute el proyecto y pruebe a pulsar el botón del formulario uno y después a pulsar cualquier botón del formulario dos.
TRUCO 2: ¿Cómo desplazar el cursor hasta el final de una caja de texto?
En ocasiones es necesario que cuando el usuario sitúa el foco en una caja de texto, la introducción de datos comience al final del texto previamente introducido. Para desplazar el cursor al final del texto, teclee el siguiente texto en el evento GetFocus de la caja de texto:
Private Sub Text1_GotFocus()
Text1.SelStart = Len(Text1.Text)
End Sub
TRUCO 3: ¿Cómo ejecutar programas con Drag&Drop?
Si un usuario arrastra y suelta (drag&drop) uno o más ficheros sobre el nombre de nuestro programa en el Explorer o en el icono de la aplicación, Windows ejecuta el programa pasándole como parámetro el nombre de los ficheros sobre los que se hizo drag&drop.
Para encontrar el nombre de estos ficheros utilice la instrucción Command y así obtenedrá la línea de comandos.
TRUCO 4: ¿Cómo testear la línea de comandos?.
Durante el desarrollo de una aplicación en el entorno integrado de Visual Basic, a veces es necesario probar los parámetros que se le pasan en la línea de comandos. En Visual Basic, se puede indicar la línea de comandos en tiempo de depuración de la siguiente forma:
En VB4:
Seleccione el menú Herramientas.
Elija Opciones.
Muestre la pestaña Avanzado.
Introduzca los parámetros en Argumentos de la línea de comandos.
En VB5 y VB6:
Seleccione el menú Proyecto.
Elija la opción Propiedades.
Muestre la pestaña Generar.
Introduzca los parámetros en Argumentos de la línea de comandos.
TRUCO 5: ¿Cómo establecer los márgenes de la impresora?.
Para indicar los márgenes de un trabajo de impresión hay que utilizar las propiedades de escala de la impresora.
El siguiente ejemplo establece el margen izquierdo a 0'6 pulgadas y el margen superior a 0'7 pulgadas. El factor 1440 convierte las pulgadas a twips:
Printer.ScaleLeft = -0.6 * 1440
Printer.ScaleTop = -0.7 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
Microsoft explorer 6.0 