vb 弹出式菜单问题
做了一个弹出式菜单使用代码:
程序代码:
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu tvwmenu End If End Sub
为什么总是提示没有子菜单呢?
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu tvwmenu End If End Sub