ab.com コミュニティ

水波形さん、イグトランスさん　ヒント 大変ありがとうございます。

水波形さんの方法はMicrosoftへのエラ－報告画面が出たので止めました。
イグトランスさんのGetWindowTextStr関数とCode（EditBox1に修正して）でEditBox2に指定どおりの文字列が表示されました。

GetWindowTextStr(GetDlgItem(hMainWnd, EditBox2), Data$)
buffer$ =Mid$(Data$, 1, 2)
SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$) 

水波形さんの方法でうまくいきます。

このほか、[url=http://www.activebasic.com/forum/viewtopic.php?t=745]エディットボックスの内容の取得[/url]の一番最後の淡幻星さんの発言のところにある拙作GetWindowTextStr関数でも可能です。
[code]GetWindowTextStr(GetDlgItem(hMainWnd, EditBox2), Data$)
buffer$ =Mid$(Data$, 1, 2)
SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$) [/code]

GetWindowText関数はABのStringのことなど露知らずです。なので、水波形さん案のZeroStringにせよGetWindowTextStrにせよ、こちら側でStringとのすりあわせを行ってあげないといけないということなのです。

Data$ = ZeroString(8)
GetDlgItemText(hMainWnd, EditBox1, VarPtr(Data$), 8)
buffer$ =Mid$(Data$, 1, 2)
SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$) 

ポインタの概念が私はまだ、完璧ではないのでそのあたりはカットして……


[code]Data$ = ZeroString(8)
GetDlgItemText(hMainWnd, EditBox1, VarPtr(Data$), 8)
buffer$ =Mid$(Data$, 1, 2)
SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$)
[/code]

と、するとうまくいきそうな気がします。
実験していないので定かではありませんが……

	GetDlgItemText(hMainWnd, EditBox1, Data$, 8)
	SetWindowText(GetDlgItem(hMainWnd, EditBox2), Data$)

	Data$ ="1234"
	buffer$ =Mid$(Data$, 1, 2)
	SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$)

	GetDlgItemText(hMainWnd, EditBox1, Data$, 8)
	buffer$ =Mid$(Data$, 1, 2)
	SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$)

Dim Data$ As String
Dim buffer$ As String
と変数を定義して、MainWnd_EditBox1_Change()イベントで、
(1)[code] GetDlgItemText(hMainWnd, EditBox1, Data$, 8)
SetWindowText(GetDlgItem(hMainWnd, EditBox2), Data$)
[/code]
とすると、EditBox1に入力した文字列がEditBox2にそのまま正常に表示されます。
又、
(2)[code] Data$ ="1234"
buffer$ =Mid$(Data$, 1, 2)
SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$)
[/code]
とやっても、EditBox2には文字列"12"が正常に表示されます。

ところが、
(3)[code] GetDlgItemText(hMainWnd, EditBox1, Data$, 8)
buffer$ =Mid$(Data$, 1, 2)
SetWindowText(GetDlgItem(hMainWnd, EditBox2), buffer$)
[/code]
とすると、EditBox1に入力してもEditBox2には何も表示されません。

環境は、Windows XP SP3、ActiveBasic ver.4.24.00で起きています。
Windows Meでも同様なのでOSは関係ないと思います。
(3)は(1)と(2)の組み合わせで、EditBox2にはEditBox1に入力した内容の指定文字列が表示されると思ったのですが、何故でしょうか？