記号に対応したシフトJISコード変換するには (ID:117570)

名前

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

本文 Dim bytTemp() As Byte bytTemp = StrConv(strData, vbFromUnicode) Mscomm1.Output = bytTemp