Insert/Overwrite mode

How can I allow the user to overwrite text in a Textbox or a MaskEdBox without having to delete it?
BenJrAsked:
Who is Participating?
 
trkcorpConnect With a Mentor Commented:
Maybe this will help you even though it is not exactly what you describe.  This will "mark" all of the text when the control gets focus thus enabling the user to replace the entire contents without having to delete or mark the contents himself.
Create a form and place 2 text boxes and 1 masked edit box on the form.  Paste the following code:

Private Sub MaskEdBox1_Gotfocus()
Call SelectMe(Me.ActiveControl)
End Sub

Private Sub Text1_GotFocus()
  Call SelectTxt(Me.ActiveControl)
End Sub

Private Sub Text2_GotFocus()
  Call SelectTxt(Me.ActiveControl)
End Sub

Private Sub SelectMe(This As MaskEdBox)
  This.SelStart = 0
  This.SelLength = Len(This.Text)
End Sub

Private Sub SelectTxt(This As TextBox)
  This.SelStart = 0
  This.SelLength = Len(This.Text)
End Sub


You will note the behaviour when you run the pgm.  I have found this approach especially useful on masked edit controls.

0
 
trkcorpCommented:
Just want to see answer...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.