VB程序疑问

来源：百度知道 编辑：UC知道 时间：2024/05/27 07:37:53
Sub GUIDToByte(strGUID As String, GUID() As Byte)
' 复制一个GUID从GUIDGEN.EXE
GUID(0) = Val("&H" & Mid$(strGUID, 8, 2))
GUID(1) = Val("&H" & Mid$(strGUID, 6, 2))
GUID(2) = Val("&H" & Mid$(strGUID, 4, 2))
GUID(3) = Val("&H" & Mid$(strGUID, 2, 2))
GUID(4) = Val("&H" & Mid$(strGUID, 13, 2))
GUID(5) = Val("&H" & Mid$(strGUID, 11, 2))
GUID(6) = Val("&H" & Mid$(strGUID, 18, 2))
GUID(7) = Val("&H" & Mid$(strGUID, 16, 2))
GUID(8) = Val("&H" & Mid$(strGUID, 21, 2))
GUID(9) = Val("&H" & Mid$(strGUID, 23, 2))
GUID(10) = Val("&H" & Mid$(strGUID, 26, 2))
GUID(11) = Val("&H" & Mid$(strGUID, 28, 2))
GUID(12) = Val("&H" & Mid$(strGUID, 30, 2))
GUID(13) = Val("&H" & Mid$(strGUID, 32, 2))
GUID(14) = Val("&H" & Mid$(

就是将strGUID中的内容取出来换成16进制的数字保存到GUID()数组中
比如GUID(0) = Val("&H" & Mid$(strGUID, 8, 2))
这个就表示从strGUID的第8个字符开始长度为2的一个子串前面加上&H(&H表示16进制)然后用val转换为数字最后保存到GUID数组的第一项GUID(0)中
其他类似