viernes, 8 de agosto de 2008

Ejemplos

ListBox : Standard Control

El Control Estándar ListBox despiega una lista de elementos de los cuales el usuario puede seleccionar uno o más elementos.

Existen 2 formas de agregar elementos a un ListBox:

  1. Seleccionar de la ventana de propiedades List y después de ingresar un elemento presionar las teclas [Ctrl]+[Enter]
  2. Por medio de código a través del método nombre_ListBox.addItem

Para eliminar elementos del control utilice el método nombre_ListBox.RemoveItem

Para obtener el valor del elemento seleccionado utilice nombre_ListBox.ListIndex

Para obtener el índice del elemento seleccionado utilice nombre_ListBox.Text

Para establecer la selección de más de un elemento utilice la propiedad nombre_ListBox.MultiSelect

ComboBox : Standard Control

El Control Estándar ComboBox provee más versatilidad que un control estándar ListBox, combinando las características de un control estándar TextBox y ListBox, además de que es posible que el usuario proporcione nuevos elementos para el control o seleccionar un elemento de la lista.

Para agregar los elementos que contendrá el control es posible hacerlo de 2 formas:

  1. Desde la ventana de propiedades seleccionar itemData.
  2. Desde el código a través del método addItem del control, ejemplo:
     nombre_ComboBox.AddItem "Rojo", 0
    nombre_ComboBox.AddItem "Amarillo", 1
    nombre_ComboBox.AddItem "Azul", 2

Para eliminar elementos del control utilice el método nombre_ComboBox.RemoveItem

Para obtener el valor del elemento seleccionado utilice nombre_ComboBox.ListIndex

Para obtener el índice del elemento seleccionado utilice nombre_ComboBox.Text

OptionButton : Standard Control

El Control Estándar OptionButton presenta un grupo de opciones de las cuales el usuario sólo puede seleccionar una.

Se recomienda crear un grupo de OptionButton's agregue un control Frame o PictureBox para contener al grupo de opciones.

La propiedad Value indica si está o no seleccionado el control.

Selección de Texto

Es posible seleccionar texto de algunos controles y para obtener el texto seleccionado se utiliza la propiedad SelText, para saber a partir de que posición comenzo la selección utilice SelStart y para obtener la cantidad de caracteres seleccionados o longitud de la selección utilice SelLength.

Recuerde que puede utilizar la sentencia With para trabajar sobre un mismo objeto.

Controles Estándar Avanzados

En Visual Basic los controles estándar avanzados son:

  1. DriveListBox, despliega una lista de todos los drives válidos del sistema del usuario.

    nombre_DirListBox.Path = nombre_DriveListBox.Drive

  2. DirListBox, despliega directorios y rutas.

    nombre_FileListBox.Path = nombre_DirListBox.Path

  3. FileListBox, despliega la lista de archivos del direcorio especificado por la propiedad path.

    nombre_Image.Picture = LoadPicture(nombre_FileListBox.Path + "\" + nombre_FileListBox.FileName)

  4. Timer, se utiliza para ejecutar código por intervalos de tiempo causados por el evento Timer.
    • Interval, propiedad expresada en milisegundos y representa un valor entre 1 y 65,535. 1,000 milisegundos es igual a 1 segundo.
    • Enabled, esta propiedad determina if el control Timer puede invocar el evento Timer en el tiempo especificado por la propiedad Interval.
         Private Sub nombreTimer_Timer()
      nombre_Label.Caption = Time 'La función time se ejecuta cada segundo
      End Sub

Fuente : Estilo

Es posible establecer el estilo que tendrá la fuente para ciertos controles:

    Dim LFont As New StdFont
LFont.Bold = True
LFont.Italic = True
LFont.Size = 20
LFont.Underline = True
LFont.Weight = 10
Set Label1.Font = LFont

Lo destacable en este ejemplo es la palabra clave Set cuya acción es precisamente aplicar las nuevas propiedades de la etiqueta, también lo anterior es posible por el uso del objeto StdFont.

Consulte que controles aceptan el objeto StdFont, por ejemplo los formularios e imagenes soportan una propiedad adicional FontTransparent la cual hace posible establecer un efecto de transparencia.

Print

Los formulario o cuadros de imagen tienen un método Print que es capaz de enviar texto a un formulario o cuadro de imagen o si desea enviar texto a una impresora utilice el método Print del objeto Printer.

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 1000 Step 200
CurrentX = i
CurrentY = i
Print "Hello World!"
Next
End Sub

Nota: es importante que la propiedad AutoRedraw este activada para poder visualizar los mensajes, de otra manera no seran visibles.

Clipboard

Es posible enviar texto e imagenes al portapapeles (Clipboard), por ejemplo para enviar texto y recuperarlo escriba:

 Private Sub cmdTo_Click()
Clipboard.SetText txtSrc
End Sub
Private Sub cmdFrom_Click()
txtTarget = Clipboard.GetText()
End Sub

Si requiere enviar gráficos entonces utilice los métodos:

  • SetData
  • GetData

Es posible utilizar los comandos de Copiar, Cortar y Pegar para que funcionen con cualquier cuadro de texto que tenga el enfoque, para ello se emplea la propiedad ActiveControl del objeto Screen.

También es posible trabajar con otros formatos de datos para ello utilice las constantes de formatos:

  • vbCFLink
  • vbCFText
  • vbCFBitmap
  • vbCFMetafile
  • vbCFDIB
  • vbCFPalette

0 comentarios: