他のフォームのイベントを無効にする

<戻る

ここに載せてあるソースコードは、参考のために載せてあります

サンプルコードは、一番下にLZHとしてあります

同じアプリ上で他のすべてのフォームのイベントを無効にします




Option Explicit

'Meフォーム以外のフォームのイベントを無効にする

'この方法は、別のフォームに
'フォーカスが移っては困るときに使えます

'バージョン情報の表示などに
'応用できると思い作りました

Private Sub Command1_Click()
    
    '通常のフォームの呼び出しかた
    frmAbout.Show
End Sub

Private Sub Command2_Click()
    
    'ちょっとだけ違う呼び出しかた
    '詳しくは、Showメソッドのヘルプをご覧になってください
    '↓がこのサンプルの重要なところ
    frmAbout.Show 1
End Sub

Private Sub Form_Load()

End Sub



<戻る

Sample34.lzh


http://www.vector.co.jp/authors/VA015521/