ACC: Cómo obtener el rojo, verde o azul componentes desde el valor RGB

Seleccione idioma Seleccione idioma
Id. de artículo: 112061 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Moderada: Requiere macro básico, codificación y las capacidades de interoperabilidad.
Expandir todo | Contraer todo

Resumen

En este artículo se muestra cómo crear una función definida por el usuario ejemplo, GetRGB(), que devuelve el componente rojo, verde o azul de un valor de color RGB. Observe que este comportamiento es la contraria a la función de Visual Basic para aplicaciones RGB().

Este artículo se supone que está familiarizado con Visual Basic para aplicaciones y con la creación de aplicaciones de Microsoft Access mediante las herramientas de programación suministradas con Microsoft Access. Para obtener más información acerca de Visual Basic para Aplicaciones, consulte su versión del manual "Creación de aplicaciones con Microsoft Access".

Nota: el Visual Basic para aplicaciones se denomina Access Basic de Microsoft Access versiones 1.x y 2.0. Para obtener más información acerca de Access Basic, consulte el manual "Introduction to Programming" de la versión 1.x de Microsoft Access o el manual "Creación de aplicaciones" de la versión 2.0.

Más información

Valores de color RGB son combinaciones matemáticas de los componentes rojos, verdes y azules. Las intensidades de estos componentes pueden oscilar entre 0 y 255. Por ejemplo, el valor de color RGB de blanco es 16777215, que tiene las intensidades de componente de 255 para rojo, verde y azul.

En el ejemplo siguiente se muestra cómo utilizar la función GetRGB() para devolver los componentes de color RGB desde el valor de color RGB de sección de detalle del formulario Pedidos BackColor:

  1. Abra la base de datos de ejemplo Neptuno.mdb (o NEPTUNO.MDB en las versiones 1.x o 2.0).
  2. Cree un módulo y escriba la línea siguiente en la sección Declaraciones si no aparece ya allí:
    Option Explicit
  3. Escriba el siguiente procedimiento:
            '-----------------------------------------------------------------
          'PURPOSE: Returns red/green/blue color from RGB color value.
          'ACCEPTS: RGB color value as Long, and component number as integer
          '         that represents the component color to return (1=red,
          '         2=green, 3=blue).
          'RETURNS: The intensity of the color component (0 - 255) as an
          '         integer or -1 indicating that an argument was invalid.
          '-----------------------------------------------------------------
          Function GetRGB (RGBval As Long, Num As Integer) As Integer
             ' Check if Num, RGBval are valid.
             If Num > 0 And Num < 4 And RGBval > -1 And RGBval < 16777216 Then
               GetRGB = RGBval \ 256 ^ (Num - 1) And 255
             Else
               ' Return True (-1) if Num or RGBval are invalid.
               GetRGB = True
             End If
          End Function
    						
  4. Guarde el módulo como MyUtilities y ciérrelo.
  5. Cree la siguiente macro con las acciones enumeradas:
          Macro Name  Action   Comment
          ---------------------------------------------
          GetRGB      MsgBox   Display red component
                      MsgBox   Display green component
                      MsgBox   Display blue component
    
           GetRGB Actions
          -------------------------------------------------------------------
          MsgBox:
            Message: =GetRGB(Forms![Orders].Section(0).Backcolor,1) & ": Red"
          MsgBox:
            Message: =GetRGB(Forms![Orders].Section(0).Backcolor,2) & ": Green"
          MsgBox:
            Message: =GetRGB(Forms![Orders].Section(0).Backcolor,3) & ": Blue"
    						
  6. Guarde la macro como GetRGB y ciérrelo.
  7. Abra el formulario Pedidos en la vista Formulario.
  8. En la ventana base de datos, ejecute la macro GetRGB. Observe que puede cambiar la propiedad BackColor de la sección detalles del formulario Pedidos y, a continuación, ejecutar la macro nuevo para ver los resultados cambiar.

Referencias

Para obtener más información acerca de la función RGB(), busque el índice de la Ayuda para la Función RGB .

Propiedades

Id. de artículo: 112061 - Última revisión: jueves, 30 de enero de 2014 - Versión: 2.3
La información de este artículo se refiere a:
  • Microsoft Access 1.0 Standard Edition
  • Microsoft Access 1.1 Standard Edition
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbhowto kbprogramming KB112061 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): 112061

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