by THEREMIN » 2007年3月19日(月) 00:36
といっても2度も呼ばれるのは気持ち悪いし何が起こるか分からないので、
Callback.wbpを書き換えようと思いましたが、
RADを使うと書き換えられてしまうので、メインウィンドウで作ってしまうことにしました。
コード: 全て選択
Dim DefaultIndex=0 As Long ' 最初に読み込むファイル番号
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
' アップダウンコントロールを作成(0-100)
CreateUpDownControl(1342177430,258,25,20,38,hMainWnd,"UpDown", _
GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE, _
GetDlgItem(hMainWnd, InputEditBox),0,100,0)
' デフォルトの番号を設定
SetDlgItemText(hMainWnd, InputEditBox, Str$(DefaultIndex))
End Sub
ここで、InputEditBoxに設定する値はDefaultIndexとなっていますが、
iniファイルがあればファイルから読み込んだ値が使われます。
といっても2度も呼ばれるのは気持ち悪いし何が起こるか分からないので、
Callback.wbpを書き換えようと思いましたが、
RADを使うと書き換えられてしまうので、メインウィンドウで作ってしまうことにしました。
[code]Dim DefaultIndex=0 As Long ' 最初に読み込むファイル番号
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
' アップダウンコントロールを作成(0-100)
CreateUpDownControl(1342177430,258,25,20,38,hMainWnd,"UpDown", _
GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE, _
GetDlgItem(hMainWnd, InputEditBox),0,100,0)
' デフォルトの番号を設定
SetDlgItemText(hMainWnd, InputEditBox, Str$(DefaultIndex))
End Sub[/code]
ここで、InputEditBoxに設定する値はDefaultIndexとなっていますが、
iniファイルがあればファイルから読み込んだ値が使われます。