Long型をULONG型に変換したい (ID:81869)

名前

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

本文 ってーか、この関数、何したいの？ あとULongってUnsigned Longじゃ…？ ウルトラですか。 >ULONG型を使用するアプリにデータを転送したいため ああ、送りたいのか。 >下記のようにプログラミングしましたが >Chr()で表示できないバイナリ値の場合、 バイナリ値をChr()で表示ってどーよ？ >szULONGには正しい数値が入りません。 関数最後じゃszULONGは文字なんすけど？ >lnLng=5000 の場合 szULONG= 88 13 00 00 の形式で こんな形式見たことありません。 >入ってきて欲しいのですが 00 13 00 00 となります。 しかも関数最後じゃ空白だし。 >※ちなみにデータ転送はString型でないと送れないため >szULONGは他型で定義出来ません。 タガタ？？ あ〜ん〜と〜〜〜〜、まぁわからん。 わからんから、プログラムだけ作っといたぞ。 Msgbox proc1(5000) とかでためしてみ。 Type tLong datus As Long End Type Type tLong_Bytes data(1 To 4) As Byte End Type Function proc1(ByVal nLongValue As Long) As String Dim i As Long Dim v1 As tLong Dim v2 As tLong_Bytes v1.datus = nLongValue LSet v2 = v1 For i = 1 To 4 proc1 = proc1 + Hex(v2.data(i)) + " " Next End Function