怎样将web颜色转换成vb颜色？？？？？？

比如#FFFFFF这样的Web颜色，怎样转换成VB里面的&H00FFFFFF&这样的颜色？？？？ 问题点数：20、回复次数：4Top

1 楼HungryBoy（http://www.zhijian.net）回复于 2005-12-22 17:50:02 得分 0

给你一个VB转成网页的！  
  Public   Function   FormatRGBString(val   As   Long)   As   String  
          Dim   color   As   String  
          Dim   pad   As   Long  
          Dim   r   As   String  
          Dim   g   As   String  
          Dim   b   As   String    
          color   =   Hex(val)  
          pad   =   6   -   Len(color)  
           
          If   pad   Then  
                  color   =   String(pad,   "0")   &   color  
          End   If  
                   
          'Extract   the   rgb   components  
          r   =   Right(color,   2)  
          g   =   Mid(color,   3,   2)  
          b   =   Left(color,   2)          
   
          color   =   "#"   &   r   &   g   &   b  
           
          FormatRGBString   =   color  
  End   FunctionTop

2 楼KennyLong（Kenny Long）回复于 2005-12-22 18:08:40 得分 0

我需要反向转换的。。。。。Top

3 楼KennyLong（Kenny Long）回复于 2005-12-22 18:49:04 得分 0

有人知道吗？？？Top

4 楼rainstormmaster（暴风雨 v2.0）回复于 2005-12-22 19:13:58 得分 20

val("&H"+"FFFFFF")Top

相关问题

• 转换
• vb
• 颜色
• formatrgbstring
• 转换成vb
• pad
• color
• ffffff
• val
• dim

• 帖主：KennyLong
• rainstormmaster

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