字符串转换成十六进制

web学习吧　2006-12-19　来源:　收藏本文

-huitiansou
'字符串转换成十六进制
Public Function StrToHex(ByVal strS As String) As String
Dim abytS() As Byte
Dim bytTemp As Byte
Dim strTemp As String
Dim lLocation As Long
abytS = StrConv(strS, vbFromUnicode)
For lLocation = 0 To UBound(abytS)
bytTemp = abytS(lLocation)
strTemp = Hex(bytTemp)
strTemp = Right("00" & strTemp, 2)
StrToHex = StrToHex & strTemp
Next lLocation
End Function

上一篇：MD5加密算法在VB中的实现下一篇：delegate 与多线程

【发表评论】【收藏本文】【推荐好友】【打印本页】【关闭窗口】

最新相关文章

热点教程

·C#的多线程机制探索（转自天极网）
·C#的多线程机制探索（续2）
·有趣的多线程编程（4）——死锁
·C#的多线程机制探索（续1）
·有趣的多线程编程（1）——一个简单的例子
·(四)线程--使用线程回调方法
·线程池跟自定义事件的应用例子
·(二)线程--通过委托异步调用方法
·C#的多线程机制探索（续3）
·如何在调用线程的时候传递参数
·(七)线程--管理线程(使线程中止,暂停,挂起等)
·(三)线程--等待句柄
·不错的线程使用示例
·多线程应用程序中调用窗体的一点心得
·多线程编程学习笔记（六）
·有趣的多线程编程（2）——线程中的参数传递
·初识C#线程
·asp.net利用多线程执行长时间的任务，客户端
·开心，捕捉子线程内异常的例子
·在你的VB.NET应用程序中使用多线程

实用信息推荐