VB取各颜色分量,将RGB转为HTML颜色.

关注

原创最新推荐文章于 2026-03-18 01:11:39 发布 2.1k 阅读 AI 写同款· GEO 优化 ›

VB颜色对话框ShowColor “ 本节课程学习ShowColor颜色对话框” 上节课程一起学习了ShowSave保存对话框，本节课程将学习的是颜色对话框。颜色对话框，为用户提供一个颜色选择器，用户选择一个颜色后，可以返回这个颜色的值。首先，将对话框控件添加到窗体上。然后，设置对话框属性。比如： '设置取消报错 CommonDialog1.CancelError = True '设置flags属性 CommonDialog1.Flags = cdlCCRGBInit 注意：以上属性设置并不是必须要设置的，即使不进行属性设置，也阅读详情

'//取各颜色分量 
Public Function GetRedValue(COLOR As Long) As Integer '取得红色值 
       GetRedValue = COLOR And 
End Function
Public Function GetGreenValue(COLOR As Long) As Integer '取得绿色值 
       GetGreenValue = (COLOR And 65280) / 256
End Function
Public Function GetBlueValue(COLOR As Long) As Integer '取得蓝色值 
        GetBlueValue = (COLOR And &HFF0000) / 65536
End Function
'//将RGB转化为HTML颜色. 
Public Function GetHexColor(Red As Integer, Green As Integer, Blue As Integer) As String 
'将RGB颜色转换为HTML颜色 
  Dim StrRed As String, StrGreen As String, StrBlue As String
  StrRed = Hex(Red)
  StrGreen = Hex(Green)
  StrBlue = Hex(Blue)
  If Red <= 16 Then StrRed = "0" & StrRed
  If Green <= 16 Then StrGreen = "0" & StrGreen
  If Blue <= 16 Then StrBlue = "0" & StrBlue
  GetHexColor = StrRed & StrGreen & StrBlue
End Function