投稿日 | : 2007/07/19(Thu) 18:23 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: SendMessageのEM_FMTLINESについて |
当然、 Text1.MultiLine = True ですよね。
どちらでも問題ありませんが、本当にこのコードを試されたのでしょうか?
他に何か書いたコードがありませんか? 投稿したコードのみで試して見て下さい。
追加したコードは下記の部分だけです。
Private Sub Form_Load()
Text1.Move 1000, 1000, 1426, 765
' Text1.MultiLine = True プロパティで設定
End Sub
Private Sub Command1_Click()
Dim str As String
'ソフト改行文字を付加
Call SendMessage(Text1.hwnd, EM_FMTLINES, 1&, ByVal 0&)
Text1.Refresh '追加 これが原因かも
str = Text1.Text
If InStr(str, vbCr & vbCr & vbLf) = 0 Then
MsgBox "ソフト改行は含まれていません"
Else
MsgBox "ソフト改行挿入成功"
End If
End Sub