Question

VB自定义HOTKEY控件中的光标问题

用text控件制作一个HotKey控件，想设置光标永远在文本最后面，并且不能选择文本？ 包括按Left、Home、Up等键 ，以及鼠标点击，都始终让光标位置在最后不变！ 我用下面的这段代码能实现 ，但如前所述，效果不佳。
txt.SelStart = Len(txt.Text)
txt.SelLength = 0

请问有更好的方法吗？ 就像windows系统的快捷方式里那个 “快捷键” 设置控件的效果那样，无论按什么键、怎么点鼠标，文本都不会被选定，且光标都在文本最后。

Answer 1

Private Sub Text1_GetFocus()
    Text1.SetFocus
    SendKeys "^{END}"
End Sub

追问

根本没有我想要的效果，鼠标照样可以选择文本呀！？ 按键 Shift + Left / Home等也照样可以选择文本。 麻烦考虑好了再回复好吗？

追答

上述代码经过测试，完全可用，题主不可用的话可以考虑如下另几种方式：

 

1、让 Text1 始终处于失去焦点的状态，用 Timer 也好，用 Text1_GetFocus() （也可能是 Text1_Focus()，因为我手头的是 VB.net 没有 VB6 的，上述代码也是在 .net 下测试通过的）也好。

 

2、禁止 Text1 输入：

Text1.Lock = True

 

3、屏蔽 Text1 的鼠标按键和键盘按键：

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

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

追问

你看来是没明白我的意思，我做这控件要求：

1. 控件是能接受键盘文字输入的，但要求光标永远位于文字最后。且让Home、Left、Up （Shift+Left、Shift + Home、Shift + Up、）等键的功能失效。

2. 禁止鼠标选择其中的文本，并且鼠标点击控件，光标也是永远位于文字最后。

追答

喔，你这么一说就很简单了，那修改一下第三种方法里关于 Text1_KeyPress 的部分就好了呀，判断 KeyAscii 的值是否是 Home、Left、Up、Shift 等键，如果是的话 KeyAscii = 0 屏蔽之。

【附】键值汇总：http://hi.baidu.com/phphave/item/bcfb0cac53d7b93a030a4d81

追问

不要每次只说一点点， 一次性全部帮我解决一下好吗？
而且我试过了，KeyAscii = 0 根本不能屏蔽Left、Home等键的功能。 按下Left键光标会向前移动，按下Home键光标会跑到文本开始位置......根本就没屏蔽到它们的功能啊！？

还有禁止鼠标点击选择文本呢？