ＥｄｉｔＢｏｘ

[papasan]

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

[papasan]

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

[NoWest]

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

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

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

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


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

[papasan]

NoWest様

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

[NoWest]

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

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

Callback.wbp

コード: 全て選択

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

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

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


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


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

コード: 全て選択

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]

[たかせ]

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

RADでのコントロールのコピー

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

2019/1/30修正