易截截图软件、单文件、免安装、纯绿色、仅160KB

VB 中颜色互相转换的两个小函数(REG和 VB颜)

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 任务栏透明

代码:
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetW ......

VB中如何声明及使用多维数组,多层数组及动态数组

声明固定大小的数组  
  有三种方法声明固定大小的数组,用哪一种方法取决于数组应有的有效范围:    
  建立公用数组,在模块的声明段用   Public   语句声明数组。  
  建立模块级数组,在模块的声明段用   Private   语句声明数组。  
  建 ......

VB中回调函数的一个问题

之前碰到一个问题,VB中向一个C++写的DLL中注册一个Callback,C++在调用这个Callback时有些问题,具体问题描述和下面这个帖子中的情况是一样的: http://topic.csdn.net/t/20051104/09/4370840.html
经过尝试以后发现,在VB中写的回调函数必须是用Function关键字,并且,必须要设置返回值,如下:
Public Function Callbac ......

在VB6中用CopyMemory拷贝字符串的种种猫腻(一)

本文来自此帖的冗长讨论,感谢Tiger_Zhao的全程指点和陈辉、阿勇、马云剑等很多朋友的热心参与。本文其他部分在:(二)、(三)、(四)。
 
话说VB6是个很认真细致的妈妈,它会悄没声地帮你做很多事。今天我们来说的是VB6在API调用时自动对字符串参数进行转换的“好人好事”。 
第一节 体贴的VB妈 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号