テキストを取得すると、改行が削除されます。 (ID:143487)

名前

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

本文

Microsoft Visual Studio 2008 のVBを使っております。

状況
Autocad と言うソフトに作業履歴を表示するテキストスクリーンがあります。
形状はメモ帳（NotePad）の様な感じで、編集機能は一切ありません。
約400行しか履歴は残りません。（古い物が自動で削除されます）

そこに表示されている履歴（文字）を全て取得しようと思い、APIの
   Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Byte()) As Integer
を使い、

Dim TxtHandle As Integer 'ウインドウのハンドル
        Dim retVal As Integer 
        Dim bytNoteText As Byte() = New Byte(65536) {}
        Dim NoteText As String 
        Public Const WM_GETTEXT As Integer = &HDS

retVal = SendMessage(TxtHandle, WM_GETTEXT, 65536, bytNoteText)

とする事で、文字列は取得はできたのですが、改行が全て削除されます。
改行も含んで取得する方法は無いでしょうか？

ちなみに、そのウインドウをCtrl+Aで選択し、Ctrl+Cコピーし、メモ帳に貼り付けると、下記の様になります

************************************************************************************

コマンド: offset

現在の設定: 元のオブジェクトを消去=いいえ  画層=元のオブジェクト  OFFSETGAPTYPE=0
オフセット距離を指定 または [通過点(T)/消去(E)/画層(L)] <通過点>: e

オフセット完了後に元のオブジェクトを消去しますか? [はい(Y)/いいえ(N)] <いいえ>: n

オフセット距離を指定 または [通過点(T)/消去(E)/画層(L)] <通過点>: l

オフセットで作成したオブジェクトの画層オプションを指定 [現在の画層(C)/元のオブジェクト(S)] <元のオブジェクト>: s

オフセット距離を指定 または [通過点(T)/消去(E)/画層(L)] <通過点>:

オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>:

************************************************************************************

これが、上記のコードで取得し、メモ帳に貼り付けると全てが1行に表示されます。

宜しくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る