ポップアップメニューを複数使うには？ (ID:90719)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 私が試した方法は、以下の様な感じです。 Form1のメニュー構造は、 mnuTop ....mnuSub (Index=0) <---先頭項目でModal-Formを開く ....mnuSub (Index=1) と、しました。 Option Explicit Private m_fMenuClicked As Boolean Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = vbRightButton) Then m_fMenuClicked = False PopupMenu mnuTop If (m_fMenuClicked) Then Form2.Show vbModal End If End Sub Private Sub mnuSub_Click(Index As Integer) Select Case Index Case 0: m_fMenuClicked = True Case 1: End Select End Sub