ab.com コミュニティ

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

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

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

[code]
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
[/code]
こんな感じにすればいいかと思います。

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


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

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

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

> 「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。
こんな感じのコードを投稿したような気がします。
[code]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[/code]

追記。
「AddText」で検索したら見つかりました。
[url=http://www.activebasic.com/forum/viewtopic.php?p=4564&highlight=AddText#4564]リアルタイムにクリップボードの監視[/url]
あちゃぁ...質問の方だとコード間違ってるじゃないか...。
[hide][code]Function Edit_AddText(ByVal hWnd As HWND,ByVal lpString As LPSTR,ByVal bUndo As BOOL) As BOOL
SendMessage(hWnd,EM_SETSEL,GetWindowTextLength(hWnd),-1)
Edit_AddText=SendMessage(hWnd,EM_REPLACESEL,bUndo,lpString As LPARAM) As BOOL
End Function[/code][/hide]

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

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