① 在VB中調用彈出式菜單應使用什麼方法
用MouseUp事件里的
Button參數
1表示左鍵
2表示右鍵
建一個菜單
vbFile
子菜單vbRight:
(右鍵點擊窗體
就會彈出
vbFile下的幾個子菜單了)
Private
Sub
Form_Load()
vbFile.Visible
=
False
End
Sub
Private
Sub
Form_MouseUp(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Select
Case
Button
Case
1
Print
"點擊了左鍵"
Case
2
Print
"點擊了右鍵"
PopupMenu
vbFile
End
Select
End
Sub
----------------------------
Private
Sub
Text1_MouseDown(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
1
Then
PopupMenu
color,
4
Or
0
End
If
End
Sub
是對的。
建議改成MouseUp事件,因為你看正常的彈出菜單
都是滑鼠鍵彈起來出現的
才發現
你是想要把系統的右鍵彈出式菜單屏蔽吧
如下代碼即可(把相應代碼改成你想要的)
Private
Sub
Text1_MouseUp(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
1
Then
PopupMenu
color,
0
Or
4'左鍵所觸發的內容
End
If
If
Button
=
2
Then'右鍵所觸發的內容
Text1.Enabled
=
False
Text1.Enabled
=
True
PopupMenu
color,
0
Or
4
End
If
End
Sub
② 如何用vb建立彈出菜單
PopupMenu 方法
用以在 MDIForm 或 Form 對象上的當前滑鼠位置或指定的坐標位置顯示彈出式菜單。不支持命名參數。
語法
object.PopupMenu menuname, flags, x, y, boldcommand
PopupMenu 方法的語法包含下列部分:
部分 描述
object 可選的。一個對象表達式,其值為「應用於」列表中的一個對象。如果省略 object,則帶有焦點的 Form 對象預設為 object。
Menuname 必需的。要顯示的彈出式菜單名。指定的菜單必須含有至少一個子菜單。
Flags 可選的。一個數值或常數,按照下列設置中的描述,用以指定彈出式菜單的位置和行為。
X 可選的。指定顯示彈出式菜單的 x 坐標。如果該參數省略,則使用滑鼠的坐標。
Y 可選的。指定顯示彈出式菜單的 y 坐標。如果該參數省略,則使用滑鼠的坐標。
boldcommand 可選的。指定彈出式菜單中的菜單控制項的名字,用以顯示其黑體正文標題。如果該參數省略,則彈出式菜單中沒有以黑體字出現的控制項。
設置值
用於 flag 的設置值有:
常數位置 值 描述
vbPopupMenuLeftAlign 0 (預設值)。彈出式菜單的左邊定位於 x。
vbPopupMenuCenterAlign 4 彈出式菜單的於 x 居中位。
vbPopupMenuRightAlign 8 彈出式菜單的右邊定位於 x。
常數行為 值 描述
vbPopupMenuLeftButton 0 (預設值)。 僅當使用滑鼠左按鈕時, 彈出式菜單中的項目才響應滑鼠單擊。
vbPopupMenuRightButton 2 不論使用滑鼠右按鈕還是左按鈕, 彈出式菜單中的項目都響應滑鼠單擊。
說明
上述常數在對象瀏覽器中的 Visual Basic (VB) 對象庫里列出。
可使用 ScaleMode 屬性指定x和y坐標的度量單位。x 和 y 坐標定義彈出式菜單相對於指定窗體顯示的位置。如果沒有包括 x 和 y 坐標,則彈出式菜單就顯示在滑鼠指針當前的位置。
在顯示彈出式菜單時,調用 PopupMenu 方法後面的代碼直到用戶或者從菜單中選擇了命令(這時,該命令的 Click 事件的代碼比 PopupMenu 語句後面的代碼先執行)或者取消該菜單時才能執行。此外,每次只能顯示一個彈出式菜單,因此,如果已經顯示了一個彈出式菜單或打開了一個下拉式菜單時,該方法的其它調用將被忽略。
③ vb 問題 如何建立一個 彈出式菜單
1、首先,需要點擊菜單欄中的工具按鈕。
④ vb 彈出窗體
1.在"菜單編輯器窗口"中建立一個將要作為彈出式菜單的主菜單項,如你所說的,就是"編輯"主菜單項,此菜單項的標題為"編輯",名稱為"edit",所包含的菜單項為"剪切","復制","粘貼".建立彈出式菜單所需的菜單後,可以把"編輯"的visible屬性設置為false,也可以設置為true,關鍵看你需要.
2.為建立好的菜單編寫程序代碼,要顯示彈出式菜單,可以使用popupmenu方法,大概代碼如下:
private
sub
form_mouseup(button
as
integer,shift
as
integer,x
as
single,y
as
single)
if
button=2
then
'檢查是否按下的是滑鼠右鍵
popupmenu
edit
'edit是"編輯"菜單的控制名,將其激活顯示在窗體上
end
if
end
sub
⑤ VB如何右鍵窗體彈出菜單
1.在"菜單編輯器窗口"中建立一個將要作為彈出式菜單的主菜單項,如你所說的,就是"編輯"主菜單項,此菜單項的標題為"編輯",名稱為"EDIT",所包含的菜單項為"剪切","復制","粘貼".建立彈出式菜單所需的菜單後,可以把"編輯"的VISIBLE屬性設置為FALSE,也可以設置為TRUE,關鍵看你需要.
2.為建立好的菜單編寫程序代碼,要顯示彈出式菜單,可以使用POPUPMENU方法,大概代碼如下:
Private Sub Form_MouseUp(Button as Integer,Shift as Integer,X as Single,Y as Single)
If Button=2 then '檢查是否按下的是滑鼠右鍵
PopUpMenu EDIT 'EDIT是"編輯"菜單的控制名,將其激活顯示在窗體上
End If
End Sub
⑥ vb怎麼實現點擊滑鼠右鍵出現菜單選項
方法1:編寫菜單,然後利用菜單項的:Enabled屬性或者Visible屬性;
方法2:建立快捷菜單;右擊出現菜單。
方法1的實現簡單:
在創建菜單的時候,每個菜單項有1個」標題」和」名稱」,其中名稱其實是該菜單項的對象的名稱,例如某菜單名稱叫」abc」,那麼:
abc.
Visible=false
就使它不可見
abc.
Visible=true
就使它可見
⑦ vb 右鍵彈出式菜單製作
彈出式菜單,首先要創建菜單對象。方法是,把你要彈出的菜單當成是一個正常展示在窗體頂部的菜單,使用菜單編輯器將它製作出來。比如:添加一個標題是「彈出菜單」名稱是「menu1」的根菜單項,在其下層你可能要添加復制、粘貼、這是什麼…這樣的子菜單項作為彈出菜單的內容,內容你隨意,這里不細究。最後要把根菜單項的「可見」對勾去掉。
創建完菜單對象後,便可以使用popupmenu方法來彈出菜單。方法是:
popupmenu
菜單對象名
繼續上個例子,就是
popupmenu
menu1
這個方法後面還有很多可選參數,如協調位置等,這些待你自己慢慢研究,這里不細究。如果你的彈出菜單是通過按右鍵彈出的話,通常會把它放到mousedown事件中,繼續上個例子,就是
private
sub
控制項_mousedown(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
if
button
=
2
then
'如果點的是右鍵
popupmenu
menu1
end
if
end
sub
⑧ VB 中彈出式菜單怎麼寫
彈出式菜單名稱為: a
寫入:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu a
End Sub
還可以繼續編寫子菜單:用MouseUp事件里的 Button參數(1表示左鍵 2表示右鍵)
建一個菜單 vbFile 子菜單vbRight: (右鍵點擊窗體 就會彈出 vbFile下的幾個子菜單了)
寫入:
Private Sub Form_Load()
vbFile.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Print "1"
Case 2
Print "2"
PopupMenu vbFile
End Select
End Sub
以上這樣就可以了。
(8)vb菜單有什麼方法可以彈出擴展閱讀:
vb可以設計包括導航菜單、下拉菜單、右鍵菜單、頂部菜單等等各類需求菜單樣式。
同時VB可以利用控制項做出一些不同的風格菜單,讓菜單別具一格。
主菜單欄
主菜單欄應構成 UI 任何特定於上下文菜單中程序包的命令的標准位置。主菜單欄與其他命令結構不同,因為在環境中使用它來控制哪些命令都可見。所有其他命令欄只需禁用命令不在上下文中,它們放在一個菜單或工具欄上。
環境定義一組內置於主菜單欄的命令所共有跨整個 IDE 和任務的多個域。這些命令是始終可見的而不考慮其中 Vspackage 載入到環境。
These commands are always visible regardless of which VSPackages are loaded into the environment。 雖然 Vspackage 可以擴展此命令集,從每個產品和其命令的位置設置命令將為每個團隊的責任。
參考資料:微軟官網-菜單和 Visual studio 命令