by NoWest » 2009年6月09日(火) 00:02
> NoWest様
>
> メールにて送付りました。
> Excelの様な入力フォーム(Grdiの代わり)を作成したいのです。
> よろしくお願いいたします。
見たところ、ProjectEdhitorのバグのようです。
Callback.wbp
コード: 全て選択
Const EditBox35=1034
Const EditBox36=1035
Const EditBox37=1036
Const =1037
Const 1=1038
Const F=1039
明らかに、途中から文字コードがおかしくなっていますね。
エディタはAB4とAB5にほとんど違いが無いので、バグもそのままなんでしょう。
一応AB4でもインターフェイスを使ってGridコントロールも実装できなくは無いようですが、
かなり難易度は高めのようです。
今のところすぐにバグの修正はできないと思いますので、
以下のように配列を使う方法をお勧めします。
コード: 全て選択
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
こうすれば、各エディットボックスのハンドルを2次元配列に格納することで
各列と各行のデータを取り出せます。
[/quote]
[quote]> NoWest様
>
> メールにて送付りました。
> Excelの様な入力フォーム(Grdiの代わり)を作成したいのです。
> よろしくお願いいたします。[/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でもインターフェイスを使ってGridコントロールも実装できなくは無いようですが、
かなり難易度は高めのようです。
今のところすぐにバグの修正はできないと思いますので、
以下のように配列を使う方法をお勧めします。
[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]
こうすれば、各エディットボックスのハンドルを2次元配列に格納することで
各列と各行のデータを取り出せます。
[/quote]