ku3 的點部落.....

 

經常會有把資料轉為 Byte() 陣列的需求，以下程式碼可以做到。

    '---以十六進位格式檢視陣列內容---
    Sub show陣列(ByVal b() As Byte, Optional ByVal w As Integer = 16)
        For i = 0 To UBound(b)
            Debug.Write(b(i).ToString("x2") & " " & IIf((i + 1) Mod w = 0, vbCrLf, ""))
        Next
        Debug.Write(vbCrLf)
    End Sub

 

測試看看：

    Private Sub B1() Handles Button7.Click
        Dim b0() As Byte
        b0 = BitConverter.GetBytes(CInt(32767)) : show陣列(b0, 16)
        b0 = BitConverter.GetBytes(CLng(32767)) : show陣列(b0, 16)
        b0 = BitConverter.GetBytes(CSng(32767)) : show陣列(b0, 16)
        b0 = BitConverter.GetBytes(CDbl(32767)) : show陣列(b0, 16)
    End Sub

 

 

輸出結果：

ff 7f 00 00
ff 7f 00 00 00 00 00 00
00 fe ff 46
00 00 00 00 c0 ff df 40

---

ku3