ab.com コミュニティ

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

SetDlgItemText(hMainWnd, EditBox2, StrPtr(strEditBox1))

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

EditBox1の内容は次のようにして取れます。（エディットボックスは共にMainWnd上にあるとします）
[code]Dim strEditBox1 As String
GetDlgItemTextStr(hMainWnd, EditBox1, strEditBox1)[/code]
それをEditBox2に書き込むにはSetDlgItemTextを使います。
[code]SetDlgItemText(hMainWnd, EditBox2, StrPtr(strEditBox1))[/code]

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