摘要:Private Function Byte2HexStr(bt() As Byte) As String Dim btLen As Integer Dim I As Integer Dim strDes As String btLen = UBound(bt) + 1 strDes = Space$(btLen * 2) For I = 0 To btLen - 1 Mid$(strDes, I + I + 1, 2) = Right$( "0 " & He...
阅读全文
posted @ 2010-08-10 10:51
浙公网安备 33010602011771号