バイナリデータをテキストボックスに表示するには？ (ID:88144)

名前

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

本文 Private Sub MScomm1_OnComm() Dim bytDat() As Byte Dim RDat As Variant Dim St as string bytDat() = MSComm1.Input y = y + 1 '??? 'RDat = Val(bytDat()) 'テキストボックスで受信データ表示 'Text1.Text = Text1.Text & RDat st="" for each RDat in bytDat st=st & right$("00" & Hex$(RDat),2) next Text1.Text=Text1.Text & RDat End Sub もっと型に気をつければよかったかもしれない。 ※誤爆予感…