Visual Basic Tips

メニュー・ポップアップメニューの実現

通常のメニューをポップアップメニューにする事ができます。

□下のサンプルを実行するとこんな感じです。


Private Sub Form_Load()
　　menu0.Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　If Button = vbLeftButton Then
　　　　Me.PopupMenu menu0, vbPopupMenuLeftButton
　　Else
　　　　menu0.Visible = False '右クリックでメニュー消去
　　End If
End Sub

Private Sub menu1_Click()
　　MsgBox "Menu1"
End Sub

Private Sub menu2_Click()
　　MsgBox "Menu2"
End Sub

□メニューの定義は通常と変わりません。

DownLoad vbtips061.lzh 2KB (VB6.0)