VB超级模块函数.Int2Hex高低位互换

Private Function Int2Hex(Value As Long, n As Long) As String
Dim tmp1 As String, tmp2 As String, i As Long
tmp1 = Right("0000000" + Hex(Value), n)
For i = 0 To Len(tmp1) / 2 - 1
tmp2 = tmp2 + Mid(tmp1, Len(tmp1) - 1 - 2 * i, 2)
Next i
Int2Hex = tmp2
End Function

对于操作底层数据来说起到很大的作用，如果你从事这方面的内存或者封包类软件开发，以上代码是必备。

比如我们把一个常数 &H1122 写入到内存里面，作为某个函数的参数。那么这个常数就需要高低位互换下。

VB交流站www.zai996.com q1016058890