by 7 » 2006年5月28日(日) 17:45
> 「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。
こんな感じのコードを投稿したような気がします。
コード: 全て選択
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
> 「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。
こんな感じのコードを投稿したような気がします。
[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]