UC知道弹出式菜单
来源：百度知道 编辑：UC知道 时间：2024/09/23 04:06:25
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 这样菜单就不能备系统菜单覆盖
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 这样菜单就不能备系统菜单覆盖
一般这种用rtfText。
在RichTextBox上用这个才行；因为你的菜单被系统的菜单覆盖了
rtf貌似本来就没有菜单的
'下面是修改后的代码：
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