VB 版 (精华区)

发信人: successful (成功之路), 信区: VB
标  题: 如何让TextBox的输入具备overwrite(覆盖)的功能
发信站: 哈工大紫丁香 (2000年08月04日16:19:48 星期五), 转信

如何让TextBox的输入具备overwrite(覆盖)的功能？
我 们 在 TextBox 中 所 输 入 的 字 符 ， 一 律 会 被 TextBox 是 视 为在 光 标
 处 插 入 (insert)新 的 字 符 ， 如 果 想 以 输 入 的 字 符 overwrite(盖掉 )
 输 入 光 标 所 在 位 置 的 字 符 ， 可 以 在 TextBox 的 KeyPress 物件 程 序
 中 撰 写 以 下 程 序 ：
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 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.226.223]