★★VB初心者質問スレ Part9(´・ω・`)★★
■ このスレッドは過去ログ倉庫に格納されています
0465デフォルトの名無しさん
NGNG別々のフォーム(同時に表示される事はない)にて、同一の名前で同じ動作をさせたい
コントロールがあります。
今は、それぞれのフォームのインスタンスを作る時に同じ名前にして、標準モジュールに
処理ルーチンを書き、それぞれのフォームのイベントを受け取った時点でそこに飛ばす
ようにしています。
コードで書くと、
Set Form = New FormA 'FormA という名前でデザインしてるとして
===FormAのコード 'FormBにも同じものを記述する
Private Sub command_click(Index as Integer)
CommandClick(Index)
End Sub
===標準モジュールのコード
Public Sub CommandClick(Index as Integer)
'ここにいろいろな処理を書く
'コントロールはForm.〜〜で参照する。
End Sub
このような感じなのですが、もっと良い方法がある気がしてなりません。
(あまりスマートではないので)
あと、呼び出す時に使われるコントロールがはっきりしてる場合は、コントロール自体を
オブジェクトとして渡しておいた方が良いものなのでしょうか?
以上、長文で申し訳ありませんがよろしくお願いします。
■ このスレッドは過去ログ倉庫に格納されています