Ejemplos visual basic

Solo disponible en BuenasTareas
  • Páginas : 5 (1109 palabras )
  • Descarga(s) : 0
  • Publicado : 30 de noviembre de 2010
Leer documento completo
Vista previa del texto
Tutoriales y Ejemplos en Visual Basic 6.0
[pic]
Es mi modesta pretensión exponer, poco a poco, ejemplos en Visual Basic para que sirvan de impulso a quienes desean efectuar programas.
Los ejemplos no apuntan a "maravillas comerciales", tan sólo pretenden ser didácticos.
Recomienda esta página!       Si quieres, vota por mi sitio     Gracias por tu Voto
Página 1  Página 2  Página 3 Página 4Ejemplo 1 Sencillo extractor de Iconos
El Botón Mostrar Iconos: Toma iconos de un ImageList y los pone como puntero del Mouse (izquierdo). El derecho regenera el clásico puntero Flecha.
Extraer: Copia el icono a un Control Image.
Guardar: Los almacena en disco como archivos de iconos (*.ico).
Componentes Código Fuente
[pic]
4 Botones
1 Image
1 ImageList: Este control se cargadesde Proyectos - Complementos (Ctrl T), figura como Microsoft Windows Common Controls 6.0 (SP6). Es parte de varias herramientas.
En el Archivo de Fuentes adjunto, ya hay imágenes cargadas en este control, si no lo bajan, deberían rellenarlo con imágenes. La forma de hacerlo se explica más abajo.
 
 
Bajar los fuentes
Dim I As Integer ' Esto va en general

Private Sub Command1_Click() I = I + 1
 If I > Imagenes.ListImages.Count Then
    I = 1
 End If
 Image1.Picture = Imagenes.ListImages(I).ExtractIcon
End Sub

Private Sub Command2_Click()
  End
End Sub

Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim picX As Picture
  If Button = 1 Then   'Botón Izquierdo
   I = I + 1
    If I > Imagenes.ListImages.CountThen
      I = 1
    End If
   Set picX = Imagenes.ListImages(I).ExtractIcon ' Crea un icono.

   With Form1
            .MouseIcon = picX ' Establece el nuevo icono.
            .MousePointer = vbCustom ' Establece el icono personalizado.
    End With
  End If

  If Button = 2 Then    'Botón Derecho
     Me.MouseIcon = LoadPicture()
     Me.MousePointer = vbArrow ' Establece el iconoflecha standard.
  End If

End Sub

Private Sub Guardar_Click()
 Dim N as String
 N = Str(I)
 F = App.Path + "\Icono" + N + ".ico"
 SavePicture Imagenes.ListImages(I).ExtractIcon, F
End Sub
 
   
Ejemplo 2 Agregar Imágenes a un Control ImageList
Componentes Método
1 ImageList: Este control se carga desde Proyectos - Complementos (Ctrl T), figura como Microsoft Windows Common Controls6.0 (SP6). 1) Cargar el Control desde el Menú Proyectos - Componentes (Ctrl T)
2) Colocarlo en el Formulario

3) Click con el derecho sobre el Control - Click en Propiedades (ventana contextual)

4) Las casillas que se observan permiten definir la resolución de la imagen que se desea. Por ejemplo un icono es 32 x 32.
5) Pestaña Imágenes

6) Insertar imagen...

7) Aceptar
   
Ejemplo 3Armar una Botonera de Herramientas con un Toolbar y un ImageList
Componentes Método
1 ImageList:
1 Toolbar: Este control se carga (al igual que ImageList) desde Proyectos - Complementos (Ctrl T), figura como Microsoft Windows Common Controls 6.0 (SP6). 1) Cargar los controles desde el Menú Proyectos - Componentes (Ctrl T)
2) Colocarlos en el Formulario
 
 
 
 
 
 
 
 
 
3) Click conel derecho sobre el Control - Click en Propiedades (ventana contextual)
4) En ImageList abrir y disponer de la lista el control ImageList que cargamos (ver Imagen Página de Propiedades a nuestra izquierda).
 
 
 
 
 
 
 
 
 
5) Click en pestaña Botones.

6) Click en Insertar botón
7) En Image escribir 1
8) En Key escribir el nombre del botón (ej. Kitana). Importante dado que esteserá el nombre del menú a la hora de codificar.
9) Repetir el 7, 8 y 9 hasta completar
10) Aplicar (opcional, permite ver las imágenes que se van cargando). Mediante los botoncitos de Index, podemos recorrer la lista de botones, para cambios.
El Style, en su opción 4 - tbrSeparator, nos permite colocar un separador de bloques
Para eliminar un botón está el botón Quitar botón.
 
 
Resultado...
tracking img