ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 21:16

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 4 件の記事 ] 
作成者 メッセージ
 記事の件名: EditBox で…
投稿記事Posted: 2006年5月28日(日) 17:18 
オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部
EditBox の内容を消さずに、
一番後ろに文字を追加するソースを質問した方がいるはずなんですけど、
「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。

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


通報する
ページトップ
 記事の件名: Re: EditBox で…
投稿記事Posted: 2006年5月28日(日) 17:45 
オフライン

登録日時: 2005年5月31日(火) 18:51
記事: 473
お住まい: 新潟県
> 「検索」で探しても見つからないので、「どんなコードだったかなぁ…」と思っています。
こんな感じのコードを投稿したような気がします。
コード:
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」で検索したら見つかりました。
リアルタイムにクリップボードの監視
あちゃぁ...質問の方だとコード間違ってるじゃないか...。


最後に編集したユーザー 7 [ 2006年5月28日(日) 17:53 ], 累計 2 回

通報する
ページトップ
 記事の件名:
投稿記事Posted: 2006年5月28日(日) 17:50 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
コード:
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を主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
投稿記事Posted: 2006年5月28日(日) 22:08 
オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部
7さん、konishiさん、どうもありがとうございました。

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


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 4 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[9人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean