Caja De Diálogos Dialog Box

Visual Basic 2010 tiene en el cuadro de herramientas 8 controles llamados Cajas De Diálogos que permiten hacer tareas comunes  en Windows, utilizando controles que tienen código ya escrito, lo que aumenta la productividad del programador.

Cajas de Diálogos:

Las cajas de diálogos son las siguientes:

  • FontDialog

Para definir el estilo de letra

  • ColorDialog

Para definir el color, usando la paleta de colores de Windows

  • OpenFileDialog

Para abrir un archivo

  • SaveFileDialog

Para Guardar un Archivo

  • PrintDialog

Para tareas de impresión de documentos

  • PrinPreviewDialog

Para configurar la impresión.

  • PageSetulDialog

Configuración de página

  • FolderBrowserDialog

Permite navegar entre archivos.

A continuación se ve una imagen de la caja de diálogos en el cuadro de herramientas.

5700

ColorDialog.

 Ejercicio: ColorDialog

  • Cree un nuevo proyecto y asígnele el nombre ColorDiálog
  • Al formulario agregue un control ColorDialog y un Label.
  • Agregue un Button y cámbiele la propiedad Text a Color
  • En el Text del Label escriba, Cambiar Color.

El formulario quedará así:

5701

Observe el control ColorDialog1 en la bandeja de componentes.

Doble clic en el botón Color y en el editor de código escriba lo siguiente…

ColorDialog1.ShowDialog ()

Label1.ForeColor = ColorDialog1.Color

  • El Editor de código quedará así:
5702

Presione F5 para probar el programa…

De clic en color y verá la paleta de colores de Windows;  Al elegir un color, las letras en el Label cambiarán al color seleccionado.

5703
5704

Elija otros colores y haga más pruebas y también observe el código para que lo entienda bien.

OpenFileDialog para Archivo de imagen.

En este ejercicio se usará un OpenFileDialog para abrir los archivos de la pc y buscar una imagen que se desplegará en un PictureBox.

  • Cree un nuevo proyecto y llámele Dialogo Box Imagen.
  • Agregue un OpenfileDialog,
  • Agregue un control Button
  • Agregue un PictureBox

Al control button, cámbiele su propiedad Text a Ver Imagen y el control Picture Box configúrelo a modo de tamaño de imagen en StretchImage

5705
  • Agregue el siguiente código en el botón
5706

La primera línea de instrucción establece un filtro en OpenFileDialog1 para que solo se muestren archivos de imagen y con la extensión para imágenes  .jpg, .gif, .png, y  .bmp

¡Idea! La barra Vertical “|” se escribe con Alt+124

El editor de código quedará así:

5707

Ejecute el programa…

5708
  • Al dar clic en Ver Imagen se abrirá el cuadro de dialogo que le permitirá navegar hasta una imagen de su computadora y al abrirla se mostrará en el PictureBox.

Es importante que el archivo seleccionado sea de imágenes y con la extensión correcta, por que si abre otro archivo creará una excepción (objeto error).

5709
  • Al elegir Imagen y dar clic en Abrir, se mostrará la imagen en el PictureBox
5710

Continúe haciendo pruebas con otras imágenes y analice el código que se utilizó para este ejercicio.

OpenFileDialog para abrir la Ruta de cualquier archivo.

Ejercicio:

  • Cree un nuevo proyecto y asígnele el nombre: OpenFileDialog Ruta Archivo.
  • Dibuje en un formulario, un Button, un TextBox y agregue un OpenFileDialog desde el cuadro de herramientas.
  • Al Button cámbiele la propiedad Text a Ver Ruta De Archivo.
5711
  • Abra el editor de código del Button y escriba la siguientes instrucciones:

OpenFileDialog1.ShowDialog ( )

TextBox1.Text=OpenFileDialog1.FileName

Observe como queda el editor de código.

5712
  • Ejecute la aplicación y al dar clic en Ver Ruta De Archivos  abrirá la ventana para seleccionar cualquier archivo y al darle clic en Abrir le mostrará en el TextBox,  la ruta del archivo que eligió.
5713

Trate de configurar el TextBox en la forma parecida a la imagen para que se vea toda la ruta del directorio.

OpenFileDialog para abrir archivo

Ejercicio:

  • Abra un nuevo proyecto con el nombre OpenFileDialog
  • En un formulario agregue un control Button  y un PictureBox
5714
  • Dé Clic en el Button para abrir el editor de código y escriba inmediatamente debajo de la línea de código que dice Private Sub, la instrucción tal y como se ve en la imagen siguiente:
5715

Al ejecutar el programa y dar clic se abrirá un cuadro de dialogo para acceder a los archivos de su computadora.

5716
  • Ahora guarde el proyecto desde Archivo------- > Guardar todo.

Caja de Dialogo para seleccionar impresora.

Ejercicio:

  • Cree un nuevo proyecto y asígnele el nombre Dialogo Imprimir
  • En el formulario dibuje un Botón y un PrintDialog los cuales se encuentran en el cuadro de herramientas.
5717

 

 
5718
  • Cambie la propiedad Text del Button a Imprimir

EL formulario de diseño quedará así: observe que la caja de dialogo PrintDialog se ubica en la bandeja de componentes en la parte inferior.

5719
  • Dé doble clic en el botón para abrir el editor de código y escriba la siguiente instrucción:

PrintDialog1.ShowDialog ()

  • El código quedará así:

5720

  • Ejecute la aplicación y al  dar clic en el botón Imprimir, abrirá la caja de Dialogo para imprimir.

5721

OpenFileDialog  para abrir archivo de música:

Este ejercicio es diferente por que agregaremos  un objeto (control), el Windows media player que no se encuentra en el cuadro de herramientas, por lo que hay que agregarlo.

  • Cree un nuevo proyecto y llámele OpenFileDialog  Música
  • Dibuje un Button en el formulario y cambie su propiedad Text  a “Buscar Canción”
  • Agregue un OpenFileDialog y escriba en la propiedad Filter lo siguiente:

                    Music File|*.mp3

5722

- Le recuerdo  que | se escribe usando alt124

Ahora, abra el cuadro de herramientas y dé clic derecho en el mouse, en un área sobre la barra de desplazamiento vertical, para que aparezca la siguiente ventana, donde dará clic en Elegir elementos.

5723

Elija componentes COM en la ventana que se muestra y dé clic en Aceptar.

5724

Busque el componente Windows Media Player y póngale un Check al CheckBox luego dé clic en Aceptar.

5725

Ahora busque el componente Windows Media Player en el cuadro de  herramientas  y allí estará por que lo acaba de agregar.

5726
  • Agregue este control, al  formulario y amplíelo para que se vea más grande.
  • Abra el editor de código del button y escriba las siguientes instrucciones:

OpenFileDialog1.ShowDialog ()

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

-El código completo, quedará como se ve en la siguiente imagen.

5727

¡Ejecute la aplicación!

En el botón Buscar Canción, dé clic y busque un archivo de música con extensión .mp3 que tenga en su computadora, ábralo  y  verá  como la canción empieza a escucharse en el Windows Media Player.

5728

Recuerde que el archivo tiene que ser  mp3, pero si es de otro tipo de extensión, cambie esta, en la propiedad  Filtro del OpenFileDialog.

OpenFileDialog: Abrir archivo Pdf

Ejercicio:

  • Abra un  nuevo Proyecto y dele el nombre OpenFileDialog Pdf
  • Agregue un button con la propiedad Text = Leer Pdf
  • Agregue un Control Panel del cuadro de herramientas y configúrele la propiedad Dock en Top
5729
5730

Mueva el  button para que quede dentro del control panel…

5731

En esta aplicación, el button Leer Pdf, esta contenido en un control Panel que tiene la propiedadDock en Top. Por eso no se mira. La propiedad Dock del control Adobe PdfReaderestá en Fill que significa que llenará todo el formulario haciendo no visible el Button, por eso, este debe colocarse en un Panel que tiene la propiedad Dock en Top para que lo proteja y se pueda ver.

  • Agregue un OpenFileDialog y en la ventana de sus propiedades escriba en la propiedad Filter,  la instrucción que sigue:

PDF Files (*.pdf)|

Y quedará como sigue…

5732
Agregue el control Adobe reader desde el cuadro de herramientas pero como lo más seguro es que no esté, por que por default (predeterminado) no viene entre los componentes activos, entonces, agréguelo  de la misma manera que agregó el Windows Media Player.

Se encuentra en el menú Componentes COM

5733

Después de poner check en Adobe PDF Reader,  Acepte y luego búsquelo en el cuadro de herramientas y lo agrega al formulario.

5734
  • Dé doble clic en el button e introduzca el siguiente código.

OpenFileDialog1.ShowDialog()

AxAcroPDF1.src = OpenFileDialog1.FileName

  • Ejecute el programa y dé clic en el botón Leer Pdf, para buscar en su pc un archivo con extensión Pdf, y luego clic en Abrir para que se muestre en el formulario.
5735
  • Use la barra de desplazamiento para navegar por todo el libro Pdf.

SaveFileDialog

Este componente permite seleccionar un archivo del sistema y luego guardarlo, devuelve la ruta y el nombre del archivo que se ha seleccionado en la caja de dialogo.

Ejercicio:

  • Abra un nuevo proyecto y asígnele el nombre SaveFileDialog2010
  • En el formulario, agregue un botón y cambie la propiedad  Text a  guardar archivo.
  • Agregue una caja de dialogo  SaveFileDialog
  • Dé clic en el botón y escriba el siguiente código, entre Private Sub y End Sub.

Dim myStream As Stream

Dim saveFileDialog1 As New SaveFileDialog()

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

saveFileDialog1.FilterIndex = 2

saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then

myStream = saveFileDialog1.OpenFile()

If (myStream IsNot Nothing) Then

myStream.Close()

End If

End If

  • Ejecute el programa, dando clic en el botón y se mostrará una ventana donde puede escoger y guardar un archivo.
5736
5737

Allí  tiene la opción de cambiar el nombre del archivo que buscó y guárdarlo. Pruebe a abrirlo normalmente desde fuera de Visual Basic y allí lo encontrará.

¿Te gustó? Pues comparte ;-)
Conoce al autor
Este sitio usa cookies para personalizar el contenido y los anuncios, ofrecer funciones de redes sociales y analizar el tráfico. Ninguna cookie será instalada a menos que se desplace exprésamente más de 600px. Leer nuestra Política de Privacidad y Política de Cookies. Las acepto | No quiero aprender cursos gratis. Sácame