EditBox で…

[M.S.]

EditBox の内容を消さずに、
一番後ろに文字を追加するソースを質問した方がいるはずなんですけど、
「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。

どなたか何処にあるか知っている方はいませんか？

[7]

> 「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。
こんな感じのコードを投稿したような気がします。

コード: 全て選択

Function Edit_AddText(ByVal hWnd As HWND,ByVal lpString As LPSTR) As BOOL
	SendMessage(hWnd,EM_SETSEL,GetWindowTextLength(hWnd),-1)
	Edit_AddText=SendMessage(hWnd,EM_REPLACESEL,FALSE,lpString) As BOOL
End Function

追記。
「AddText」で検索したら見つかりました。
リアルタイムにクリップボードの監視
あちゃぁ...質問の方だとコード間違ってるじゃないか...。

[ここをクリックすると内容が表示されます]

[konisi]

コード: 全て選択

Sub AddStr(hWnd As HANDLE,Str$ As String)
    Dim A$ As String
    A$=ZeroString(GetWindowTextLength(hWnd))
    GetWindowText(hWnd,A$,GetWindowTextLength(hWnd)+1)
    A$=A$+Str$
    SetWindowText(hWnd,A$)
End Sub

こんな感じにすればいいかと思います。

使い方の例
AddStr(GetDlgItem(hMainWnd,EditBox1),"追加される文章")


追記
タッチの差で抜かれました＾＾；

[M.S.]

7さん、konishiさん、どうもありがとうございました。

早速組み込みたいと思います。