vb.net，我有一個(gè)鼠標(biāo)右鍵點(diǎn)擊的事件，我想在這個(gè)事件里面加入鼠標(biāo)左鍵點(diǎn)擊的動(dòng)作，

你已經(jīng)有了“鼠標(biāo)右鍵點(diǎn)擊的事件”

站在用戶的角度思考問(wèn)題，與客戶深入溝通，找到平利網(wǎng)站設(shè)計(jì)與平利網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、主機(jī)域名、虛擬主機(jī)、企業(yè)郵箱。業(yè)務(wù)覆蓋平利地區(qū)。

說(shuō)明你肯定已經(jīng)有了if e.button=windows.forms.mousebuttons.right then

你只需要找到這條語(yǔ)句，通常這句話應(yīng)該在你的mouseclick事件中。

這條語(yǔ)句改成

if e.button=windows.forms.mousebuttons.left or e.button=windows.forms.mousebuttons.right then

就可以了！

^_^

vb.net為excel增加右鍵，并關(guān)聯(lián)過(guò)程？

需要設(shè)置一個(gè)右鍵菜單單擊的類，然后用集合把所有菜單事件組合起來(lái)。百度一下VB6，MyApp.CommandBars("Cell").Controls.Add(MsoControlType.msoControlButton, Before:=1)，基本代碼都有了

vb.net如何寫(xiě)在form1上右鍵被單擊的事件?

如果是窗體右鍵單擊事件，是

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

'這里寫(xiě)你要的代碼

End If

End Sub

但是如果只是右鍵單擊就彈出菜單的話沒(méi)必要這樣，只需要在窗體上放置一個(gè)ContextMenuStrip控件，然后在Form的ContextMenuStrip屬性中綁定這個(gè)控件就可以了。

vb.net 鼠標(biāo)右鍵事件

你是想使用右鍵菜單吧？

例如給picturebox添加右鍵菜單可以這樣：

從工具箱拖一個(gè)ContextMenuStrip到窗體上，然后自己添加你喜歡的菜單項(xiàng)，然后把PictureBox的ContextMenuStrip屬性設(shè)置為你你剛添加的哪個(gè)ContextMenuStrip，下拉列表里會(huì)有你剛剛添加的控件的！

vb鼠標(biāo)右鍵雙擊事件

先說(shuō)明幾點(diǎn):

1.不是所有的對(duì)象,都有雙擊事件(zhangfeizimo在前面說(shuō)過(guò)了)

2.支持雙擊事件的對(duì)象,在觸發(fā)這個(gè)事件時(shí),并不識(shí)別是不是右鍵

3.能識(shí)別右鍵的事件,不區(qū)分是單擊還是雙擊

所以,如果用系統(tǒng)的自帶單一事件,是不能直接完成你想的目的

不過(guò),可以變通,將幾個(gè)事件結(jié)合起來(lái),就可以實(shí)現(xiàn),看看下面的方法:

Dim

LastButton

As

Integer

Private

Sub

Form_DblClick()

If

LastButton

=

2

Then

Text1.Text

=

2

End

If

End

Sub

Private

Sub

Form_MouseUp(Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

LastButton

=

Button

End

Sub