头痛的颜色问题

请问高手，如何将一个颜色分解，得出其中红、绿、蓝三种颜色的数值？谢谢！ 问题点数：30、回复次数：11Top

1 楼playyuer（退休干部 卧鼠藏虫）回复于 2001-05-28 11:58:00 得分 30

Private   Sub   Command1_Click()  
  'Num:   (1=red,   2=green,   3=blue).  
  MsgBox   GetRGB(RGB(255,   255,   255),   1)  
  MsgBox   GetRGB(RGB(255,   9,   6),   2)  
  MsgBox   GetRGB(RGB(255,   255,   7),   3)  
   
  End   Sub  
  Function   GetRGB(RGBval   As   Long,   Num   As   Integer)   As   Integer  
                  If   Num   >   0   And   Num   <   4   And   RGBval   >   -1   And   RGBval   <   16777216   Then  
                      GetRGB   =   RGBval   \   256   ^   (Num   -   1)   And   255  
                  End   If  
  End   Function   Top

2 楼huangguanshu（）回复于 2001-05-28 12:03:00 得分 0

 
  R   =   ColorAnd   &HFF&  
  G   =   (Color   And   &HFF00&)   /   &H100  
  G   =   (Color   And   &HFF0000)   /   &H10000Top

3 楼huangguanshu（）回复于 2001-05-28 12:03:00 得分 0

R   =   ColorAnd   &HFF&  
  G   =   (Color   And   &HFF00&)   /   &H100  
  B   =   (Color   And   &HFF0000)   /   &H10000   Top

4 楼liulinliu（哦，好累）回复于 2001-05-28 12:17:00 得分 0

VB怎么   跑这来拉  
  呵呵Top

5 楼EndDuke（游戏狂徒）回复于 2001-05-28 12:27:00 得分 0

用GerRGB函数,返回RGB值Top

6 楼QQRN（笨QQ－馊主意提供者）回复于 2001-05-28 13:10:00 得分 0

oTop

7 楼VB666（）回复于 2001-05-28 19:12:00 得分 0

Top

8 楼VB666（）回复于 2001-05-28 19:12:00 得分 0

多谢playyuer(女㊣爱)　Top

9 楼VB666（）回复于 2001-05-28 19:14:00 得分 0

Top

10 楼playyuer（退休干部 卧鼠藏虫）回复于 2001-05-28 19:30:00 得分 0

huangguanshu()   也应得分Top

相关问题

• rgbval
• 颜色
• msgbox getrgb
• rgb
• num
• as integer

• 帖主：VB666
• playyuer

• Visual Basic类图书
• Visual Basic类源码下载