Results 1 to 6 of 6

Thread: [RESOLVED] color conversion

  1. Dec 19th, 2005, 08:38 PM #1
    BrailleSchool
    BrailleSchool is offline

    Thread Starter
    PowerPoster
    Join Date
    Apr 2005
    Location
    Debug.Print
    Posts
    3,885

    Resolved [RESOLVED] color conversion

    I have attempted to find a color converter to convert colors like &H00C0C000& to RGB values. anyone know of anything?












    Added green "resolved" checkmark - Hack
    Last edited by Hack; Dec 20th, 2005 at 06:50 AM.
    Notary Public in and for the State of Iowa. Web site: http://www.ianotary.us

    A+, DCSE, e-Biz+, i-Net+, MCDST, MCP, Network+, Security+, A.A.S (Hons.)
    Visual Basic .NET Video Tutorials | Login Form using backend database (.NET) | Useful site for sending email through .NET | Encrypt/Decrypt data in SQL Server 2005 using SQL statements | Writing Managed Stored Procedures in SQL Server 2005 | FREE .NET Calendar Control | Useful WinForm Controls | Regular Expression (Regex) Library | Backup/Restore SQL Server 2005 Database using code | Verify SQL Server 2005 database backup using SMO | Backup SQL Server 2005 database using SMO | Restore SQL Server 2005 database using SMO | Use FxCop from Microsoft to aid with code optimization
    Reply With Quote Reply With Quote
  2. Dec 19th, 2005, 08:42 PM #2
    Andrew G
    Andrew G is offline
    Frenzied Member Andrew G's Avatar
    Join Date
    Nov 2005
    Location
    Sydney
    Posts
    1,587

    Re: color conversion

    This?
    VB Code:
    1. 'Example by Bertrand DUMAS-PILHOU ([email protected])

    2. Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, col As Long) As Long

    3. Private Sub Form_Load()

    4.     Dim RealColor As Long

    5.     'Convert OLE colors to RGB colors

    6.     TranslateColor Me.BackColor, 0, RealColor

    7.     'show the result

    8.     MsgBox "The backcolor of this form is R=" + CStr(RealColor And &HFF&) + " G=" + CStr((RealColor And &HFF00&) / 2 ^ 8) + " B=" + CStr((RealColor And &HFF0000) / 2 ^ 16)

    9. End Sub
    VB Code
    Marquee ProgressBar - 3D Pie Chart
    Reply With Quote Reply With Quote
  3. Dec 19th, 2005, 09:01 PM #3
    BrailleSchool
    BrailleSchool is offline

    Thread Starter
    PowerPoster
    Join Date
    Apr 2005
    Location
    Debug.Print
    Posts
    3,885

    Re: color conversion

    awesome. thanks
    Notary Public in and for the State of Iowa. Web site: http://www.ianotary.us

    A+, DCSE, e-Biz+, i-Net+, MCDST, MCP, Network+, Security+, A.A.S (Hons.)
    Visual Basic .NET Video Tutorials | Login Form using backend database (.NET) | Useful site for sending email through .NET | Encrypt/Decrypt data in SQL Server 2005 using SQL statements | Writing Managed Stored Procedures in SQL Server 2005 | FREE .NET Calendar Control | Useful WinForm Controls | Regular Expression (Regex) Library | Backup/Restore SQL Server 2005 Database using code | Verify SQL Server 2005 database backup using SMO | Backup SQL Server 2005 database using SMO | Restore SQL Server 2005 database using SMO | Use FxCop from Microsoft to aid with code optimization
    Reply With Quote Reply With Quote
  4. Dec 20th, 2005, 04:29 AM #4
    penagate
    penagate is offline
    I'm about to be a PowerPoster!
    Join Date
    Jan 2005
    Location
    Everywhere
    Posts
    13,647

    Re: [RESOLVED] color conversion

    Why use a whole API when you can do it in 4 bitwise operations...

    VB Code:
    1. red = rgbValue And &HFF&

    2. green = (rgbValue And &HFF00&) \ &HFF&

    3. blue = rgbValue \ &HFF00&

    Much more efficient
    Reply With Quote Reply With Quote
  6. Dec 20th, 2005, 04:37 AM #5
    seema_s
    seema_s is offline
    Fanatic Member
    Join Date
    Dec 2005
    Posts
    570

    Re: [RESOLVED] color conversion

    Quote Originally Posted by penagate
    Why use a whole API when you can do it in 4 bitwise operations...

    VB Code:
    1. red = rgbValue And &HFF&

    2. green = (rgbValue And &HFF00&) \ &HFF&

    3. blue = rgbValue \ &HFF00&

    Much more efficient
    Where to write this code in a load event or for command buuton?
    Reply With Quote Reply With Quote
  7. Dec 20th, 2005, 04:42 AM #6
    penagate
    penagate is offline
    I'm about to be a PowerPoster!
    Join Date
    Jan 2005
    Location
    Everywhere
    Posts
    13,647

    Re: [RESOLVED] color conversion

    Wherever you want. How should I know?
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width