他のフォームのイベントを無効にする
ここに載せてあるソースコードは、参考のために載せてあります
サンプルコードは、一番下に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 |