VB.NET Maskedbox Control - Final Release

RicardoPDV

Rate me:

4.12/5 (24 votes)

17 Jan 20031 min read

175.6K

1.8K

A very useful maskedbox control using vb.net

Introduction

VB.NET does not have a masked texbox and it's very important for user input. So I have made it myself because the components I have found is not good enough for me.

Details

The "#" character in the mask is used for digit only
The "&" character accepts letter or digit
Supported mask symbols are "-", ".", ",", "/", "\", ":"

Using Component

The use of this component is very simple. You have to select the toolbox panel, right click in the windows forms section and select customize toolbox.

Select .NET framework components, then click browse and select maskedbox.dll in the download path. The maskedbox component will appear at the end of windows forms panel. Now select the component and drop it on a form.

Then set the mask property with any combination of valid characters

Ex. ##.###.####-###.###/###

History

Initial - I fixed a bug where the space key is not recognized. This version inherits a textbox component to publish all features of the textbox plus maskedbox
20-jan-2003 Fixes - Function keys now are not handled by control. They cause an invalid character in between the text. The function SetText has been created. Programatically changing the text value in control din't change the masked text, so I created this function where the parameter is a string to fill the text (with no mask). If the text is "", then the text and mask is cleared with a empty mask.
21-jan-2003 - The Final Release!!! I hope! Accept all characters and function keys. The delete key is working now !

Comments

Any comments ? Email me at pdvtech@terra.com.br. Visit my business site at www.pdvtech.com.br.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Written By

RicardoPDV

Web Developer

Brazil

Im a 48 years old and work developing applications since 14 years old

COBOL, my first language (i love)
BASIC, i born know

C#, Current passion !

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs) Dim tmpset = Me.SelectionStart On Error Resume Next Select Case e.KeyCode Case Keys.Delete If Len(Me.SelectedText) = Len(Me.Text) Then Me.Text = String.Empty Exit Select End If Me.Text = "" For a = tmpset To aMask.Length - 1 Select Case aMskMask.GetValue(a + 1) Case ".", "-", "\", "/", "," aMask.SetValue(aMask.GetValue(a + 2), a) a = a + 1 Case Else aMask.SetValue(aMask.GetValue(a + 1), a) End Select Next aMask.SetValue(CType("_", Char), aMask.Length - 1) e.Handled = True Me.Text = "" For a = 0 To aMask.Length - 1 Me.Text += aMask.GetValue(a) Next Me.SelectionStart = tmpset End Select End Sub

Protected Overrides Sub OnEnter(ByVal e As System.EventArgs) MyBase.Text = Me.FormatData(Me.Text()) End Sub Protected Overrides Sub OnLeave(ByVal e As System.EventArgs) MyBase.Text = Me.FormatData(Me.Text()) End Sub Protected Function FormatData(ByVal sText As String) As String If sText Is Nothing Or sText Is String.Empty Then Exit Function Else sText = sText.Replace("_", "") If Len(Me.Mask) < 10 Then Try Dim MyDate As DateTime = CType(sText, Date) Return MyDate.ToString("MM/dd/yy") Catch Return sText End Try Else Try Dim MyDate As DateTime = CType(sText, Date) Return MyDate.ToString("MM/dd/yyyy") Catch Return sText End Try End If End If End Function

AddHandler txtMyDateField1.DataBindings("Text").Format, AddressOf Format AddHandler txtMyDateField2.DataBindings("Text").Format, AddressOf Format Public Sub Format(ByVal sender As Object, ByVal e As Windows.Forms.ConvertEventArgs) 'This subroutine converts any SQL Server timedate to mm/dd/yy format If Not IsDBNull(e.Value) Then Dim MyDate As DateTime = CType(e.Value, Date) e.Value = MyDate.ToString("MM/dd/yy") End If End Sub

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.