VB 中颜色互相转换的两个小函数(REG和 VB颜)
来源:互联网 发布:lol代练价格表淘宝 编辑:程序博客网 时间:2024/06/05 08:43
VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex As String
clrHex = Replace(Format(Hex$(dwColor), "@@@@@@"), " ", "0")
ColorToRGB.Red = Mid$(clrHex, 5, 2)
ColorToRGB.Green = Mid$(clrHex, 3, 2)
ColorToRGB.Blue = Mid$(clrHex, 1, 2) '
End Function
Public Function RgbToColor(ByVal rColor As String)
Dim tempColor As String, RedColor As String, GreenColor As String, BlueColor As String
tempColor = Replace(rColor, "0x", "")
RedColor = Mid(tempColor, 1, 2)
GreenColor = Mid(tempColor, 3, 2)
BlueColor = Mid(tempColor, 5, 2)
RgbToColor = RGB(Val("&H" & RedColor), Val("&H" & GreenColor), Val("&H" & BlueColor))
End Function
说明===============
ColorToRGB 作用是将VB中的颜色转换成RGB的颜色 比如 &H00FFFFFF& 会变成FFFFFF
RgbToColor 作用是将16进制的颜色 如FFFF00 转换成对应的十进制 再通过VB自带的RGB函数 转换成VB需要的颜色
- VB 中颜色互相转换的两个小函数(REG和 VB颜)
- VB UNICODE 和UTF-8的互相转换
- VB.NET与C#的互相转换
- VB中类型转换函数
- [VB.NET]VB2005中文本框的两个小问题
- VB与Java颜色值的转换
- GBK和UTF8编码之间互相转换的两个函数
- 两个自定义函数在vb中遨游
- VB txt 转换 excel 的小程序
- VB中各种数据类型转换函数
- VB中各种数据类型转换函数
- VB中各种数据类型转换函数
- vb.net中类型转换函数
- vb.net中类型转换函数
- VB中各种数据类型转换函数
- vb.net中类型转换函数
- vb.net中类型转换函数
- VB中设置MSHFlexGrid每行的颜色
- 获取 usb 信息 尝试
- C语言链表例程(转)
- 索引生成器
- ceshi
- 开展面试应注意的问题,什么叫做面试,面试的程序
- VB 中颜色互相转换的两个小函数(REG和 VB颜)
- Linux平台Makefile文件的编写基础篇
- 一切归于平静...
- TEST
- 在动态库内部获取动态库路径
- Lunix调试技术
- spring.net 框架分析(三)ContextRegistry.GetContext()
- 基于UDP、TCP协议的C#网络编程之一
- 为FireFox添加IE的方法和属性