Ejemplos usando el Api de windows para Visual basic

178 - Obtener íconos de los MsgBox y otro ejemplo para cargar iconos de 32 bits mediante el api Load image y DrawIconEx

Ejemplo que utiliza las funciones api LoadImage y DrawIcon , para recuperar los íconos de los MsgBox

Lo siguiente puede ser útil cuando se quiere hacer un MsgBox propio o personalizado, y muestra como usar la función LoadImage para leer el ícono que se quiere usar, y luego dibujarlo con el Api DrawIcon en el formulario que actúa como MsgBox

Para dibujar el ícono primero se lee con LoadImage. Esta función tiene una seria de parámetros, el que importa es el segundo parámetro. En este, debemos indicar que ícono vamos a dibujar. Por ejemplo si le pasamos como valor 32514 se obtiene el ícono de pregunta o Question

vista del ícono 1

Si pasamos el valor 32515 el ícono de alerta

vista del ícono 2

Para el ícono de Información el valor 32516

vista del ícono 3

Para el ícono Critical el valor 32513

vista del ícono 4

Una ves ejecutada la función LoadImage, esta Api retorna un puntero a dicha imagen. Con este Handle, se dibuja en un Hdc, en este caso otro formulario ( El objeto debe tener propiedad Hdc Form o PictureBox por ej)

ret = DrawIcon(El hdc del Objeto, Posición x del Icono, Posición y del Icono, Handle del Icono obtenido con LoadImage )

Nota: la función LoadImage, además de cargar como en este caso íconos, puede cargar cursores y mapas de bits. Para eso debemos indicar en el tercer parámetro los siguientes valores : IMAGE_ICON ( Carga un ícono ), IMAGE_CURSOR ( Cargar un cursor ). IMAGE_BITMAP para cargar un mapa de bits. Las constantes para dichos valores, las podés obtener desde el visor de apis de visual basic o también desde el Api Viewer - visor de api

Ejemplo

El siguiente ejemplo lo que hace es, al presionar un Command1 que está en un Form1, abrir un formulario2 tipo MsgBox

vista del los formulariode ejemplos para hacer el msgbox

El formulario 2 que actúa como MsgBox, debe tener un control Label para mostrar el texto del MsgBox, es decir el Prompt

También el formulario 2 debe tener la propiedad BorderStyle en 1 y la propiedad StartUpPosition en CenterScreen o CenterOwner

Nota: faltaría el código restante para los botones

Código en el formulario 1 con un Command1

'*************************************************************************** '* Name : Código fuente en el Form1 '*************************************************************************** Private Sub Command1_Click() ' Le envúia como parámetro el objeto donde dibujar el ícono , _ El texto del titulo y el prompt _ La posición x e y del ícono en Pixeles _ El Tipo de ícono Dibujar_Icono Form2, " Ejemplo ", _ " Texto del Prompt ", _ 10, 10, Informacion End Sub Private Sub Form_Load() Command1.Caption = " Abrir MsgBox " End Sub

Código fuente en un módulo bas

Option Explicit 'Declaraciones del Api 'Carga una imagen. En este caso carga en memoria el icono para _ luego dibujarlo con DrawIcon en el formulario especificado Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" ( _ ByVal hInst As Long, _ ByVal lpsz As Long, _ ByVal un1 As Long, _ ByVal n1 As Long, _ ByVal n2 As Long, _ ByVal un2 As Long) As Long ' Enumeración para los cuatro íconos de los MsgBox ' El ícomo de alerta, el ícono de pregunta, _ el ícono de información y el de critical Enum Eestilo Alert = 32515 Critical = 32513 Informacion = 32516 Question = 32514 End Enum ' Constantes que usa LoadImage Private Const IMAGE_ICON = 1 Private Const LR_DEFAULTSIZE = &H40 Private Const LR_SHARED = &H8000 Private Const LR_DEFAULTCOLOR = &H0 ' Dibuja un ícono en un Hdc Private Declare Function DrawIcon Lib "user32" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal hIcon As Long) As Long 'Destruye el ícono cargado con LoadImage Private Declare Function DestroyIcon Lib "user32" ( _ ByVal hIcon As Long) As Long Public Sub Dibujar_Icono(Objeto As Object, _ Titulo As String, _ Prompt As String, _ Pos_x_Icon As Single, _ Pos_y_Icon As Single, _ Estilo As Eestilo) Dim Handle_Icono As Long Dim ret As Long ' Modo de escala en pixeles para el formulario Objeto.ScaleMode = vbPixels ' Necesario para que al repintar el formulario, por ejemplo al minimizarlo _ El ícono dibujado no se pierda Objeto.AutoRedraw = True ' Puntero al ícono Handle_Icono = LoadImage(0, Estilo, _ IMAGE_ICON, 50, 50, _ LR_DEFAULTSIZE Or LR_SHARED Or LR_DEFAULTCOLOR) ' Esta Api es la que dibuja el ícono en el Hdc _ especificado, en este caso el Form2 ret = DrawIcon(Objeto.hdc, Pos_x_Icon, Pos_y_Icon, Handle_Icono) ' Destruye el icono en memoria ret = DestroyIcon(Handle_Icono) ' Propiedades para el label que actua como Prompt With Objeto.Label1 .BackStyle = 0 .Caption = Prompt End With ' Titulo del Formulario Objeto.Caption = Titulo ' Abre el form en modo modal Objeto.Show vbModal End Sub

Otro ejemplo que usa LoadImage para cargar íconos de 32 bits en controles

Este proyecto usa la Api LoadImage junto con DrawIconEx.

La primera función lee unos íconos de 32 bits que se encuentran en la carpeta del proyecto. y luego dibuja las imágenes mediante DrawIconEx en un Hdc temporal, en este caso en un picturebox, y estas se añaden en tiempo de ejecución a un control imagelist que luego se asocia a un control toolBar

vista previa del proyecto

Descargar ejemplo

Este es el mismo pero se puede indicar el tamaño. 16 , 32 y 48

Vista previa

Descargar proyecto

Acá se cargan en unos Commandbuttons con el Style en Graphical, y se le indica el color de la máscara. ( fondo del picture donde se dibujan = BackColor del Commandbutton )

Descargar

Recursos visual basic - Enlaces relacionados

Buscar en Recursos vb