複数行のテキストボックスから指定行のテキストを取得するには？ (ID:77167)

名前

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

本文 遅ればせながら失礼します。 当方も同じ現象で悩んでました。 EM_GETLINEとReplaceでは、改行できたり出来なかったり不安定なのです。 で、いろいろ悩んだ末、正しい使い方かは判りませんが、以下の方法で対応出来ましたので参考になればと思い記載しておきます。 With Text1 tmpText = "" 'テキストボックスの行数を取得 lngMaxRow = SendMessage(.hWnd, EM_GETLINECOUNT, 0&, 0&) For i = 0 To lngMaxRow - 1 strBuffer = "" '行毎の文字列を取得 lngCharsNumber = SendMessage(.hWnd, EM_GETLINE, i, _ ByVal strBuffer) '改行し再度テキスト整形 tmpText = tmpText & RTrim$(Left$(strBuffer, _ lngCharsNumber)) & vbNewLine Next .Text = tmpText End With