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

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
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
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.
1.00 2.00 3.00 4.00 vb4win vb416

Propiedades

Id. de artículo: 140884 - Última revisión: 12/04/2015 12:34:00 - Revisión: 1.1

Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 16-bit Enterprise Edition

  • kbnosurvey kbarchive kbmt KB140884 KbMtes
Comentarios