十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊
量身定制 + 運營維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
在你的主窗體里找到MouseDown事件

創(chuàng)新互聯(lián)是少有的成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、營銷型企業(yè)網(wǎng)站、小程序開發(fā)、手機APP,開發(fā)、制作、設(shè)計、外鏈、推廣優(yōu)化一站式服務(wù)網(wǎng)絡(luò)公司,2013年至今,堅持透明化,價格低,無套路經(jīng)營理念。讓網(wǎng)頁驚喜每一位訪客多年來深受用戶好評
如果是任意點擊的用下面的代碼就足夠了
如果一定要是邊框的話你要給出邊框的高度(以像素為單位)
我的QQ:575297577
Private Sub 主窗體_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
你的窗體.Show()
End If
End Sub
你已經(jīng)有了“鼠標(biāo)右鍵點擊的事件”
說明你肯定已經(jīng)有了if e.button=windows.forms.mousebuttons.right then
你只需要找到這條語句,通常這句話應(yīng)該在你的mouseclick事件中。
這條語句改成
if e.button=windows.forms.mousebuttons.left or e.button=windows.forms.mousebuttons.right then
就可以了!
^_^
需要設(shè)置一個右鍵菜單單擊的類,然后用集合把所有菜單事件組合起來。百度一下VB6,MyApp.CommandBars("Cell").Controls.Add(MsoControlType.msoControlButton, Before:=1),基本代碼都有了
如果是窗體右鍵單擊事件,是
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
'這里寫你要的代碼
End If
End Sub
但是如果只是右鍵單擊就彈出菜單的話沒必要這樣,只需要在窗體上放置一個ContextMenuStrip控件,然后在Form的ContextMenuStrip屬性中綁定這個控件就可以了。
你是想使用右鍵菜單吧?
例如給picturebox添加右鍵菜單可以這樣:
從工具箱拖一個ContextMenuStrip到窗體上,然后自己添加你喜歡的菜單項,然后把PictureBox的ContextMenuStrip屬性設(shè)置為你你剛添加的哪個ContextMenuStrip,下拉列表里會有你剛剛添加的控件的!