Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 26, 1999

Clear a Masked Edit Box

To blank out the text in a masked edit box, make sure the string you assign uses underscores matching the mask. It's difficult to maintain code when you have to change a mask; you have to find all the locations where you cleared the masked edit control in your code. To fix this problem, simply get rid of the mask, clear the contents, then restore the mask. Use this subroutine to clear the text of any masked edit box; just pass in the control:

 
Public Sub ClearMaskEdBox(oMaskEdBox As MaskEdBox)
	Dim sTemp As String
	With oMaskEdBox
		sTemp = .Mask
		.Mask = ""
		.Text = ""
		.Mask = sTemp
	End With
End Sub

'Sample Call:
Private Sub cmdClear_Click()
	ClearMaskEdBox MaskEdBox1
	MaskEdBox1.SetFocus
End Sub
E.J. Osis
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date