ab.com コミュニティ

RADツール(AB4.24は確認/AB5は未確認)でEDITコントロールをに1個づつ貼り付けて100個以上並べても上記の現象は発生しませんが、
複数個まとめてEDITコントロールを貼り付けようとすると下記のトピックのような現象が発生した際に上記の現象がおこることがありました。

[url=https://www.activebasic.com/forum/viewtopic.php?f=3&t=628]RADでのコントロールのコピー[/url]

この場合wndファイルをエディタで修正することで解決しました。
よろしくお願いいたします。

[b]2019/1/30修正[/b]

Const EditBox35=1034
Const EditBox36=1035
Const EditBox37=1036
Const =1037
Const 1=1038
Const F=1039

Dim hEdhit[10,10] As HWND
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	Dim i As Long, j As Long
	For i=0 To 9
		For j=0 To 9
			hEdhit[i,j] = CreateWindowEx(WS_EX_STATICEDGE,"EDIT","",WS_CHILD or WS_VISIBLE,60*j,20*i,60,20,hMainWnd,10*i+j,GetModuleHandle(NULL),NULL)
		Next
	Next
End Sub

[quote]> NoWest様
>
> メールにて送付りました。
> Ｅｘｃｅｌの様な入力フォーム（Ｇｒｄｉの代わり）を作成したいのです。
> よろしくお願いいたします。[/quote]

見たところ、ProjectEdhitorのバグのようです。

[b]Callback.wbp[/b]
[code]Const EditBox35=1034
Const EditBox36=1035
Const EditBox37=1036
Const =1037
Const 1=1038
Const F=1039[/code]

明らかに、途中から文字コードがおかしくなっていますね。

エディタはAB4とAB5にほとんど違いが無いので、バグもそのままなんでしょう。


一応AB4でもインターフェイスを使ってＧｒidコントロールも実装できなくは無いようですが、
かなり難易度は高めのようです。


今のところすぐにバグの修正はできないと思いますので、
以下のように配列を使う方法をお勧めします。

[code]Dim hEdhit[10,10] As HWND
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim i As Long, j As Long
For i=0 To 9
For j=0 To 9
hEdhit[i,j] = CreateWindowEx(WS_EX_STATICEDGE,"EDIT","",WS_CHILD or WS_VISIBLE,60*j,20*i,60,20,hMainWnd,10*i+j,GetModuleHandle(NULL),NULL)
Next
Next
End Sub[/code]

こうすれば、各エディットボックスのハンドルを２次元配列に格納することで
各列と各行のデータを取り出せます。
[/quote]

NoWest様

メールにて送付りました。
Ｅｘｃｅｌの様な入力フォーム（Ｇｒｄｉの代わり）を作成したいのです。
よろしくお願いいたします。

[quote]> 新規プロジェクトを作成しＥｄｉｔＢｏｘを１００個くらい貼り付け、コンパイルするとＣａｌｌｂａｃｋ．ｗｂｐが壊れてコンパイルできません。
> ＡＢ４、５共に壊れます。ＥｄｉｔＢｏｘをエディタにて修正してもコンパイルで壊れます。
> 何か回避方法はありませんか？[/quote]

エディットボックスを１００個並べたことが無かったのでどのような症状が出ているのか
想像できないですね（笑

よろしかったら、プロジェクトを丸々、私にメールで送信していただけますか？
問題を見て、解決法を考えて見ます。

※メールアドレスは右の欄のメンバーリストから私の名前のあたりを
探してもらえばメールが送れると思います


それにしてもエディットボックス１００個は何に使うんですか？
もしかすると、それはリストビューコントロールで置き換えることができるかもしれませんよ。
調べてみてください。

修正です。
> ＡＢ４、５共に壊れます。ＥｄｉｔＢｏｘをエディタにて修正してもコンパイルで壊れます。
ＡＢ４、５共に壊れます。Ｃａｌｌｂａｃｋ．ｗｂｐをエディタにて修正してもコンパイルで壊れます。

新規プロジェクトを作成しＥｄｉｔＢｏｘを１００個くらい貼り付け、コンパイルするとＣａｌｌｂａｃｋ．ｗｂｐが壊れてコンパイルできません。
ＡＢ４、５共に壊れます。ＥｄｉｔＢｏｘをエディタにて修正してもコンパイルで壊れます。
何か回避方法はありませんか？