投稿日 | : 2006/01/26(Thu) 00:06 |
投稿者 | : ガッ |
Eメール | : |
URL | : |
タイトル | : Re: サブウインドウを開いて処理を行う。 |
> メインウインドウにあるボタン(LABEL)をクリックすると、
LABEL_Click()で、
> 新しくウインドウ(サブウインドウみたいなもの)が開かれ、
Dim f As SubWindow
Set f=New SubWindow
f.Show Owner:=Me
> その新しく表示されたウインドウ上に
> チェックボックスを24個と実行ボタンを設けて、実行ボタンを押すと
実行ボタン_Click()で、
> そのサブウインドウが閉じられて、
Unload Me
> 処理が行われると言った部分
> (処理内容に関しては自分でやります)が
これはメインウィンドウ間でイベントを送信すればいいのかな?
適当に、私が考えた骨組みだけ書いておきます。
・MainForm
・Private WithEvents insSubForm As SubForm
・LABEL_Click()イベントプロシージャ
1 LABEL.Enabled=False 'ボタンを二重に利用されないようにする
2 Set insSubForm=New SubForm
3 insSubForm.Show Owner:=Me
・insSubForm_SubFormEvent(ByVal args As Variant)イベントプロシージャ
1 実処理をする
2 Set insSubForm=Nothing
・SubForm
・Public Event SubFormEvent(ByVal args As Variant)
・Form_Load()イベントプロシージャ
・初期化処理
・実行ボタン_Click()イベントプロシージャ
・RaizeEvent SubFormEvent(<渡したい引数>)
・Unload Me
動くかなぁ…
> どうしても分かりません。何か良い方法は無いものでしょうか?
私も良く分からないまま回答していたり…
※デザパタの面白いサイト見つけたので、
役に立つかは分かりませんがここに載せておきますね
hhttp://www.hyuki.com/dp/cat_index.html