/ Snippet Library - View Code

Snippet details

ID: 188

Viewed: 1316

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

How to toggle between insert & overwrite in a text box

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight Allnone
Code
Highlight All'1. Put a label On the form called 'lblOVR' '2. Put this code In KeyUp event of Form Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyInsert Then If lblOVR = "Over" Then lblOVR = "Insert" Else lblOVR = "Over" End If End If End Sub '3. Put this code In KeyPress event of Text Box Private Sub txtText_KeyPress(KeyAscii As Integer) 'Exit if already selected If txtText.SelLength > 0 Then Exit Sub If lblOVR = "Over" Then If KeyAscii <> 8 And txtText.SelLength = 0 Then txtText.SelLength = 1 '8=backspace End If Else txtText.SelLength = 0 End If End Sub

No Reviews to show