Cómo crear un botón de comando con un mapa de bits en Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 140884 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

Resumen

Botones de comando de Visual Basic para Windows están limitados a una sola línea de texto y un color de fondo (gris). El botón de comando 3D enviado en la Professional ediciones de Visual Basic versión 2.0, 3.0 y 4.0 para Windows tiene la capacidad de mostrar mapas de bits dentro de un botón de comando de Visual Basic para Windows. Sin embargo, no hay ninguna manera de modificar los colores de fondo o del borde para cambiar su apariencia. Puede crear el aspecto de un botón de comando utilizando un control de imagen y manipular DrawMode junto con el método Line. Mediante un control de imagen también permite mostrar "el botón de comando" en cualquier color con varias líneas de texto del título.

Más información

La técnica (demostrado más debajo) simula el efecto de presionar un botón de comando mediante el método de línea con la opción de BF (cuadro relleno) en modo de invertir cada vez que se produce un evento MouseUp o MouseDown para el control de imagen. Para agregar varias líneas de texto a "botón", imprimir en el cuadro de imagen o agregue el texto definitivamente el mapa de bits.

Los pasos para crear una personalizada "botón de comando" es:

  1. Inicie Visual Basic para Windows o elija Nuevo proyecto en el menú archivo (presione ALT, F, N) si Visual Basic para Windows ya está en ejecución. Se creará Form1 de forma predeterminada.
  2. Colocar un control de imagen (Picture1) en Form1.
  3. Establecer las propiedades para Picture1 como se muestra en el gráfico siguiente:
        Property         Value
        --------         -----
        AutoRedraw       True
        AutoSize         True
        BorderStyle      0-None
        DrawMode         6-Invert
    						
  4. Asigne la propiedad Picture de Picture1 al mapa de bits de su elección. Por ejemplo, elegir las flechas ARW01DN.ICO subdirectorio del directorio iconos suministrado con Visual Basic para Windows. Esto es un buen ejemplo de un mapa de bits con un tres apariencia tridimensional.
  5. Escriba el código siguiente en el procedimiento de evento Picture1_DblClick de Picture1:
        Private Sub Picture1_DblClick ()
            Picture1.Line (0, 0)-(Picture1.width, Picture1.height), , BF
        End Sub
    						
    Nota : este código es necesario evitar el mapa de bits atrapado en un estado invertido debido de procesando fuera de orden o de piling debido a hacer clic en rápida de mensajes de mouse.
  6. Escriba el código siguiente en el procedimiento de evento Picture1_MouseDown de Picture1:
        Private Sub Picture1_MouseDown (Button As Integer, Shift As Integer,
                              X As Single, Y As Single)  ' Append to above line
            Picture1.Line (0, 0)-(Picture1.width, Picture1.height), , BF
        End Sub
    						
  7. Escriba el código siguiente en el procedimiento de evento Picture1_MouseUp de Picture1:
        Private Sub Picture1_MouseUp (Button As Integer, Shift As Integer,
                              X As Single, Y As Single) ' Append to above line.
            Picture1.Line (0, 0)-(Picture1.width, Picture1.height), , BF
        End Sub
    						
  8. Agregue el código siguiente al procedimiento de evento Picture1_KeyUp para Picture1:
        Private Sub Picture1_KeyUp (KeyCode As Integer, Shift As Integer)
            '* Check to see if the ENTER key was pressed.  If so, restore
            '* the picture image.
            If KeyCode = 13 Then
              Picture1.Line (0, 0)-(Picture1.width, Picture1.height), , BF
            End If
        End Sub
    						
  9. Agregue el código siguiente al procedimiento de evento Picture1_KeyDown para Picture1:
        Private Sub Picture1_KeyDown (KeyCode As Integer, Shift As Integer)
            '* Check to see if the ENTER key was pressed.  If so, invert
            '* the picture image.
            If KeyCode = 13 Then
              Picture1.Line (0, 0)-(Picture1.width, Picture1.height), , BF
            End If
        End Sub
    						
  10. En el menú Ejecutar, elija Iniciar. Haga clic en el cuadro de imagen. Mientras el botón del mouse está presionado, proporcionando el efecto visual de presionar un botón, se debe invertir la imagen de la imagen.

Propiedades

Id. de artículo: 140884 - Última revisión: miércoles, 8 de enero de 2003 - Versión: 1.1
La información de este artículo se refiere a:
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 16-bit Enterprise Edition
Palabras clave: 
kbmt KB140884 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 140884
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com