EditBox1の内容を取得その内容をEditBox2に書き込み

[ゲスト]

EditBox1の内容を取得その内容をEditBox2に書き込みする方法を教えてください
できればソースコードをお願いします。

[イグトランス]

http://www.activebasic.com/forum/viewtopic.php?t=432
この方法を使うには上から「これをコピーしてください」というところをコピーしてください。

EditBox1の内容は次のようにして取れます。（エディットボックスは共にMainWnd上にあるとします）

コード: 全て選択

Dim strEditBox1 As String
GetDlgItemTextStr(hMainWnd, EditBox1, strEditBox1)

それをEditBox2に書き込むにはSetDlgItemTextを使います。

コード: 全て選択

SetDlgItemText(hMainWnd, EditBox2, StrPtr(strEditBox1))