VISUAL BASIC
ENTORNO DE PROGRAMACIÓN VISUAL BASIC

Cuando uno abre el programa visual basic se abre una ventana, estos son algunos de sus herramientas: 1. La barra de títulos, la barra de menús y la barra de herramientas de Visual Basic en modo diseño. 2. Caja de herramientas con los controles disponibles 3. Formulario en gris, en que se pueden ir situando los controles. Está dotado de una rejilla para facilitar la alineación de los controles. 4. Ventana de proyecto, que muestra los formularios y otros módulos de programas que forman parte de la aplicación. 5. Ventana de Propiedades, en la que se pueden ver las propiedades del objeto seleccionado o del propio formulario. Si esta ventana no aparece, se puede hacer visible con la tecla . …ver más…

METODOS
Los métodos son funciones que también son llamadas desde programa, pero no son programadas por el usuario.

PROYECTOS
Cada aplicación que se empieza a desarrollar en Visual Basic es un proyecto.

EJEMPLOS DE VISUAL BASIC
Ejemplo 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 carga desde 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.Count Then I=1 End If Set picX =