VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 让TextBox的输入具备overwrite(覆盖)的功能
发表评论(0)作者:, 平台:, 阅读:13060, 日期:2000-03-12
让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