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需要的颜色
相关文档：
有静态和动态两种，静态的需要lib而动态的只需要一个dll就可以了（但是要知道函数的定义一般是头文
件）动态相对复杂一点！但是掌握了也不是很难
//第一步 定义函数指针就是你要调用的函数，参数必须一致，不然就内存泄露
typedef HANDLE ......
谁能帮我把这段代码转成Vb的代码，不胜感激，谢谢！
void CTempDlg::OnOK()
{
UpdateData(1);
int nlen=m_edit1.GetLength();
char *username=m_edit1.GetBuffer(nlen);//定义一个新字符串username,长度为nlen，并将m_edit1中的字符串一个个放入到username数组中
char strA[]="90123456 ......
之前碰到一个问题，VB中向一个C++写的DLL中注册一个Callback，C++在调用这个Callback时有些问题，具体问题描述和下面这个帖子中的情况是一样的: http://topic.csdn.net/t/20051104/09/4370840.html
经过尝试以后发现，在VB中写的回调函数必须是用Function关键字，并且，必须要设置返回值，如下：
Public Function Callbac ......
Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......
在日常的操作系统维护过程中，有时我们也会写一些小的脚本程序来简化系统管理工作，例如调用一些WMI函数来自动安装卸载程序之类的。
在实际工作中，我发现程序员对脚本抱怨最多的就是脚本程序很难调试这个缺点，特别是调试.vbs等WSH程序的时候，总是：
1. 在资源管理器里面双击一个. ......
