Sección de códigos , trucos y ejemplos para visual basic


511 - Msgbox Personalizados para mejorar la estética y apariencia de las aplicaciones y programas desarrollados en Visual Basic..

<Volver> - Anterior - Siguiente



 

 

Contenido:

 

 

 

 

 


Descripción del Ejemplo..

Este código fuente es una de las tantas formas para poder mejorar la estética y apariencia de las aplicaciones desarrolladas en Visual Basic.

Importante, puedes descargar el proyecto, pero deberias leer este pequeño tutorial si lo deseas adaptar a tus proyectos, ya que más abajo se explica los archivos que necesitas importar a tu programa para que no te surjan errores de carga al utilizar los Msgbox. Descargar código fuente

Capturas de pantalla

A continuación se muestran unas capturas de pantalla del ejemplo que permite usar cuadros de mensaje Msgbox simples y otros con el botón 'Aceptar' y 'Cancelar'.

El ejemplo permite usar los clásicos Msgbox de Información, Alerta, consulta o Error crítico, y también agregar más imágenes a nuestro gusto ..

El formulario con el proyecto para descagar es el siguiente y muestra 4 Msgbox de los comunes ( Con el botón Aceptar) y otros 4 ejemplos con el botón (Aceptar y Cancelar)

Capturas de pantalla de los Msgbox ...

Msgbox simple para errores del programa..

Msgbox simple para Advertencias del programa..

Msgbox simple con el ícono que nosotros necesitemos, por ejemploo en este caso un ícono de Whatsapp..

 

Msgbox con el botón Aceptar y Cancelar..

 

Descargar código fuente

Descripción del ejemplo y el Código fuente..

El proyecto a descargar contiene 2 Formularios.

Para comenzar, aqui describo lo que necesitan hacer para poder importar los archivos necesarios a sus aplicaciones y de esta forma poder usarlos.

Como primer paso, Copiar estas 4 carpetas al proyecto que contiene su aplciación.

1 - La carpeta frm . contiene 4 archivos (msgboxEx1.frm, msgboxEx1.frx, msgboxEx2.frm, msgboxEx1.frx)

2 - La carpeta bas. Contiene un simple Módulo Bas con algunas Subrutinas para hacer la llamada a los Msgbox ..

3 - Copiar la carpeta Usercontrol. Contiene el archivo ucBtnSkin.ctl necesario para los botones con estilo.

4 - Caprta res. Contiene un archivo necesario para que funcione ucBtnSkin.ctl..

Estas son las 4 caprtas que deberan copiar. ( También pueden copiar todos los archivos en una sola carpeta y luego pasar esa carpeta a su proyecto)

 

Luego de haber copiado todo lo anterior a la carpeta que contiene nuestra aplicación, ahora deberás importar esos archivos al entorno IDE de Visual basic.

Para ello, haz clic en el siguiente ícono del entorno IDE de visua Basic.

Elije la opción Formulario, y luego a la pestaña Formulario Existente .. Agregar los 2 formularios que se muestran a continuación ..

 

El siguiente paso es hacer lo mismo, pero en vez de importar los formularios, hacer clic en Módulo bas,e importar el módulo bas. ( Module1.bas)

Como último paso, debemos importar el Usercontrol y el arcivo res para que funcionen los botones con estilo.

Elije la siguiente opción 'Agregar Archivo':

Presionar en la pestaña Existente y elegir el archivo Skin.Res

Nota: El archivo Skins.res es un archivo de Recursos que necesita el botón para funcionar, si no lo importan les dará error de carga al usar los botones..

Paso final, importar el archivo de control de Usuario. Haz Clic en Control de Usuario..

 

Hacer clic en la pestaña Existente y luego en el archivo ucBtnSkin.ctl

Listo ya se puede utilizar los Msgbox personalizados.

A continuación se explica brevemente como usar los Msgbox ..

Descripción del uso del MSgboxEx ..

Para usar los Msgbox simples, es decir los Msgbox que contiene solo el botón de Aceptar, es muy simple, solo debemos ejecutar la siguiente rutina.

Call mostrarMsgBox(Icono, Titulo, Mensaje)

En el parámetro titulo y Mensaje le pasaremos el texto para el título y el texto a mostrar en el mensaje.

En el parámetro Icono, el indice de la imagen a mostrar:

Si pasamos el 0 se mostrará el ícono de Información, con el valor 1, el ícono de Alerta, con el 2 el ícono de Error y con el 3 otra imagen. Pueden agregar más imagenes, solo editen el formluario MsgBoxex1 con sus propias imágenes. las imágenes están cargadas en un control Image en un array. Solo deberán agregar otro Image y colocarles una imagen.

Para usar los otros Msgbox ( Los que muestran el botón de Aceptar y Cancelar), se deberá ejecutar la rutina:

Call mostrarMsgBoxOkCancel(Icono, Titulo, Mensaje) as Boolean

Como este último Msgbox posee la opción de Aceptar y Cancelar, para poder saber cual botón se presionó, llamar a la función y devolverla en una variable Boolean, por ejemplo

ret = mostrarMsgBoxOkCancel(1,"Cerrar programa","Desea salir del sistema??")

If ret = true then unload me: End

Muy Importante: Siempre luego de mostrar un Msgbox, ejecutar la rutina "Matarform".

Call MatarForm(El Formulario)

Esa simple rutina lo que hace es matar o descargar completamente de la memoria los formularios. Esto evita futuros cuelgues e inestabilidad de la aplicación. Como consejo, sta rutina Matarform, deberías utilizarla NO solo con este ejemplo, sino con cualquier llamada a cualquier formulario en cualquier tipo de aplicación desarrollada en Visual basic. Es decir, siempre que utilizas el Unload Me en los proyectos para descargar formularios, no siempre se descargan completamente. Esto va sobrecargando la memoria, dejando variables perdidas cargadas que luego se cruzan con otras rutinas ocacionando inestabilidad, errores raros, cuelgues, cierres repentinos del programa, etc .. sobre todo en aplicaciones grandes con muchos formularios... Es más, deberías agregarla no solo después de Cargar el formulario con Show, sino también en los controladores de errores al final, para asegurarte que inclusive se descargue en caso de entrar en la rutina de error

Call matarForm(msgboxEx1)
Call matarForm(msgboxEx2)
'Controlador de Error
Exit Sub
error_handler:
MsgBox Err.Description
Call matarForm(msgboxEx1)
Call matarForm(msgboxEx2)
End Sub

 

Descargar código fuente


Relacionados



Buscar en Recursos vb