# 急急急 请教一个怪现像 有关 PopupMenu , Form.Show , TreeView

Posted by vito on September 11, 1999 at 15:30:57:

'在这个project中共有
'Form1,Form2,TreeView1,testMenu(with submenu ItemA,ItemB)
'testMenu的visible设成False
'在Form1上面放一个 TreeView(版本为 common control 6.0 (sp3)或5.0 sp2)
'

'以下是整个 project 的程式 -----------------------------------------

Private Sub TreeView1_MouseUP(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu testMenu
End If
End Sub

Private Sub ItemA_Click()
Form2.Show 1
End Sub

'--------------------------------------------------------------------

问题在 : 当user使用视窗右上角的'X'来关闭Form2时

若这个Form2的 'X' 位在 Form1 的 标题栏上面, (也就是把form2的 'X' 移到 form1 的标题列上再按 'X')
就会导至一个系统的PopupMenu的发生,
而这个popupMenu却是 Form1 上的 caption area 的标准 menu

为什么会这样子呢,有解吗?????????

ps.若是 MouseUp 是作用在 Form1上,或 其它元件上,试过好几个都不会有这种现像说
就是这个TreeView会,下面这一段是作用在 Form1上的 mouseUp

Private Sub Form1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu testMenu
End If
End Sub

Follow Ups:

- Re: 急急急 请教一个怪现像 有关 PopupMenu , Form.Show , TreeView Buier 17:08:34 9/11/99 (1)
  - Re: 急急急 请教一个怪现像 有关 PopupMenu , Form.Show , TreeView vito 09:53:24 9/12/99 (0)