
I've been having trouble with the MSMASKED.VBX so this is an 
attempt to do masked input in a regular VB text box. You can take 
a look at how the input works by running the example program.

It will handle simple masked input situations such as a date, a phone 
number, or a decimal number (with or without a dollar sign).  It won't
work if you place an immutable character at the end of the mask and 
it won't handle commas in a numeric field.

When entering a decimal number, the digits to the left of the decimal 
will be automatically repositioned when you enter the decimal.

Input is always in OverWrite Mode rather than Insert Mode.

The following subroutines are in MASKPROC.BAS

  AddZeros -> if you are leaving the text box, this will automatically
  replace any spaces after the decimal with zeros.

  IsADot -> looks to see if there is a decimal in the mask. The
  variable DOTCOUNT contains the number of decimals (periods) found 
  and WHEREDOT is the position of the decimal.

  KeyData ->  handles keyboard input of data and presses of the
  BackSpace Key.
  
  KeyDelete -> handles presses of the Delete Key.

  PutCursor -> places the cursor after any immutable characters
  when the text box receive focus.

Look at the events for each Text Box to see where the Subroutines
are called.

The masks are in form_load.

If you find any or all of this to be useful, feel free to use it anywhere
you like.  No cost, no warranty.

Feel free to send any comments my way.

Bob Craig   CompuServe:  70042,1041         Dec 14/93
Salt Spring Island, BC, Canada




