我 們 在 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