Question

VB6 TextBox 问题。。 急！

如何在文本框中禁止插入键？（Insert）。像Office 一样可以选择插入的。
还有在文本框中如何不响应Home & End 键？KeyPress 中无法禁止。求神牛。

Answer 1

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 45 Or KeyCode = 35 Or KeyCode = 36 Then KeyCode = 0
End Sub

'KeyCode = 45代表按插入键，36是按Home，36是按End

追问

谢谢大哥。但是如何控制插入键（Insert）开启或关闭呢。和Office 一样？

追答

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii vbKeyBack And KeyAscii vbKeyReturn Then
Text1.SelLength = 1
' 将 Text1 输入光标位置的字符变成「被选取的字符」
Text1.SelText = Chr(KeyAscii)
' 「被选取的字符」取代成为「输入的字符」
KeyAscii = 0
' 将此一字符吞掉，不再传给 TextBox
End If
End Sub

追问

没听清？ 控制Insert开启或关闭

追答

上面代码是控制insert开启，你自己用个变量控制一下。

追问

你这个是手动替换的。多个TextBox 要逐个添加？有没有开启或关闭 Insert键* 的

追答

多个文本框，就用文本框数组，同一个事件即可，不需要逐个添加。insert键的功能是需要你自己实现的，没有现成的方法。