文字列Stringから整数Longへの変換について (ID:107948)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでいかが？ Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (dst As Any, src As Any, ByVal num As Long) Private Sub Command1_Click() Dim b() As Byte Dim l As Long Dim s As String Dim i As Integer l = 66 Debug.Print "b(3)", "b(2)", "b(1)", "b(0)", "l", "s" Debug.Print "Long -> Byte() -> String" ReDim b(4) CopyMemory b(0), l, 4 s = b() Debug.Print b(3), b(2), b(1), b(0), l, s Erase b() l = 0 Debug.Print "String -> Byte() -> Long" b() = s CopyMemory l, b(0), 4 Debug.Print b(3), b(2), b(1), b(0), l, s End Sub