ポップアップメニューを表示する

ポップアップメニューを表示する

ポップアップメニューを表示するにはフォームのPopupMenuメソッドを使用します。表示するメニューはタイトルとそれに含まれる項目で構成し、普段は表示する必要がないので、[表示]チェックボックスをオフにします。

以下のコードでは選択された項目に応じて図形を描画・消去します。

Private Sub Form_Click()
PopupMenu mnuDraw
End Sub

' 円
Private Sub mnuDrawCircle_Click()
Circle (1000, 1000), 1000
End Sub

' 描画した図形を消去
Private Sub mnuDrawCls_Click()
Cls
End Sub

' 直線
Private Sub mnuDrawLine_Click()
Line (100, 100)-(2000, 2000)
End Sub

' 正方形
Private Sub mnuDrawSquare_Click()
Line (100, 100)-(2000, 2000), , B
End Sub

サンプルプログラムのダウンロード(1.10KB)

戻る