EditBox の内容を消さずに、
一番後ろに文字を追加するソースを質問した方がいるはずなんですけど、
「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。
どなたか何処にあるか知っている方はいませんか?
EditBox で…
Re: EditBox で…
> 「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。
こんな感じのコードを投稿したような気がします。
追記。
「AddText」で検索したら見つかりました。
リアルタイムにクリップボードの監視
あちゃぁ...質問の方だとコード間違ってるじゃないか...。
こんな感じのコードを投稿したような気がします。
コード: 全て選択
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」で検索したら見つかりました。
リアルタイムにクリップボードの監視
あちゃぁ...質問の方だとコード間違ってるじゃないか...。
[ここをクリックすると内容が表示されます]
コード: 全て選択
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
最後に編集したユーザー 7 [ 2006年5月28日(日) 17:53 ], 累計 2 回
コード: 全て選択
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),"追加される文章")
追記
タッチの差で抜かれました^^;
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ありがとうございます。
7さん、konishiさん、どうもありがとうございました。
早速組み込みたいと思います。
早速組み込みたいと思います。