表單1上打開表單2
show 1
表單2可以使用右擊選單
在表單1上打開表單2，在表單2上打開表單3
show 1
表單3無法調取右擊選單。
表單2.show 1
表單3.show 1
甚至4-5的時候
3以后的所有表單都無法使用右擊選單。
若不使用show 1 而使用show去打開是可以用的。
但是在運用軟體的時候，若使用TAB切換，會知道表單1覆寫到表單2之上，導致亂了視窗順序，導致資料傳輸失敗或者無法互相傳遞更新。
若使用
表單2.show
表單1.Enabled=False
的話，那么TAB切換后，導致表單1出現，表單2覆寫，且，表單1無法操作，認為假死。
求助，如何在show 1的模式下調取右擊選單？
uj5u.com熱心網友回復：
'Form1 '
'添加一個 CommandButton '
'添加一個選單命名為 mnuPopup，再加個選單項 mnuHello '
Option Explicit
Private Sub Command1_Click()
Dim frm As Form1
Set frm = New Form1
frm.Left = Me.Left + 720
frm.Top = Me.Top + 720
frm.Show vbModal, Me
End Sub
Private Sub Form_Load()
Me.Caption = Hex(Me.hWnd) '區分實體'
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
'無論下面哪種彈出都沒問題啊'
'PopupMenu Form1.mnuPopup '始終彈出第一個表單的選單'
PopupMenu Me.mnuPopup '彈出當前的選單'
End If
End Sub
Private Sub mnuHello_Click()
MsgBox "hello @ " & Me.Caption
End Sub
uj5u.com熱心網友回復：
Private Sub Command1_Click()
Form2.Show 1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu pop
End If
End Sub
'---------------------------------------
Private Sub Command1_Click()
Form3.Show 1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu pop
End If
End Sub
'---------------------------------------
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu pop
End If
End Sub
的確能調出POPUPMENU，我程式可能那里出錯了，唉，我再仔細檢查檢查，謝謝你
uj5u.com熱心網友回復：
Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu Me.AN1
MsgBox Me.AN1.Caption
End If
End Sub
如圖所示，在第三個表單以上，Popupmenu根本就沒運行，用一個對話框來確認一下，發現代碼右鍵被執行，但是彈出選單直接忽略過去了，高手救命呀
uj5u.com熱心網友回復：
你最后那個表單右鍵是再資料庫控制元件上右鍵的吧那你應該再那個資料庫控制元件的MouseDown里操作啊
uj5u.com熱心網友回復：
選單只要失去焦點就會自動關閉。可能是你那個表格控制元件在右鍵事件中，發現自己不需要顯示選單，錯誤地直接把焦點設到自己身上，導致你 PopupMenu 出來的選單直接被關閉。
你只要放個 PictureBox 彈出右鍵選單做個對比，就能確定是否是表格控制元件的問題了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81866.html
標籤：VB基礎類