Private Sub Form_Load()
↓ヘルプファイルを指定
App.HelpFile = App.Path & "\ex34.chm"
Me.HelpContextID = 10000
End Sub
↓「終了(X)」メニューの処理
Private Sub mnuQuit_Click()
cmdQuit_Click
End Sub
↓「ヘルプ(H)」メニューが選択されたら[F1]キーを送信する
Private Sub mnuHelp_
Click()
SendKeys "{F1}"
End Sub
↓コンテキストメニューで「ヘルプ」メニューを表示する
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
' 右ボタンがクリックされたとき
PopupMenu popHelp
End If
End Sub
↓ 終了処理
Private Sub cmdQuit_Click()
Unload Me
End Sub |