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 format
End If
End Sub
为什么加了
Text1.Enabled = False
Text1.Enabled = True
两条语句就能屏蔽系统的快捷菜单
什么原理啊