Question

VB 编程，如何实现：文本框对键盘屏蔽，但可响应鼠标进行光标、选择文字的操作？

Answer 1

在文本框的属性栏找到Locked属性，设置为False即可。

Answer 2

可将文本框的Locked属性设为True,这样就不可以输入和粘贴,但是可以通过修改Text属性来改变文本框的内容.
Text1.Locked = True
Text1.Text = "123"
Text1.Text = "456"

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

追问

谢谢啦！如何将使用鼠标右键的粘贴也屏蔽掉？

追答

这个是挂钩子的：http://zhidao.baidu.com/question/176846719.html
这个简单一些：
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "禁止右键菜单!"
End If
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
PopupMenu s
Text1.Enabled = True
End If
End Sub