Question

弹出式菜单

Private Sub print_Click()
Text1.Text = "你好"
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Form1.PopupMenu menu, 1
End If
End Sub
上面到程序运行到时候
为什么在点右键的时候出现的不是打印这个菜单
而是有复制粘贴这些菜单？
后边才出现打印这个菜单
为什么RichTextBox 这样菜单就不能备系统菜单覆盖

Answer 1

一般这种用rtfText。
在RichTextBox上用这个才行；因为你的菜单被系统的菜单覆盖了

rtf貌似本来就没有菜单的

Answer 2

'下面是修改后的代码：

Private Sub print_Click()
Text1.Text = "你好"
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
'修改部分
Text1.Enabled = False
Text1.Enabled = True

Form1.PopupMenu menu, 1
End If
End Sub