VB實現右鍵擴展菜單以及按鈕觸發擴展菜單功能

開發全自動液體工作站的過程，需要用到點擊擴展菜單功能，經過摸索終於實現了一個Demo，現分享出來。

1、擴展菜單大致原理：利用PopUpMenu功能，事先做好擴展菜單以及子菜單，設置爲隱藏屬性，通過一定條件觸發顯示。

2、源碼如下，供參考。

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
''程序功能說明：利用PopupMenu功能實現窗體右鍵擴展菜單以及按鈕按下擴展菜單功能
''
''程序開發時間：20170929
''
''軟件版權信息：
''
''作者聯繫方式：參見博客地址
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'右鍵按下觸發擴展菜單
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
'利用PopupMenu方法
  If button And vbRightButton Then
     PopupMenu ButtonMenu    '彈出菜單
  End If
End Sub


'按鈕點擊觸發彈出擴展菜單
Private Sub button_Click()
 PopupMenu ButtonMenu    '彈出菜單
End Sub


Private Sub ButtonBlack_Click()
Shape1.BackStyle = 1
Shape1.BackColor = vbBlack

End Sub

Private Sub ButtonGreen_Click()
Shape1.BackStyle = 1
Shape1.BackColor = vbGreen

End Sub

Private Sub ButtonRed_Click()
Shape1.BackStyle = 1
Shape1.BackColor = vbRed

End Sub


Private Sub ButtonYellow_Click()
Shape1.BackStyle = 1
Shape1.BackColor = vbYellow
End Sub

3、Demo效果圖。

4、實際測試效果視頻。

鏈接：http://pan.baidu.com/s/1gfiYklt 密碼：zgd5