home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / TXTFMT.ZIP / FORM1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1992-06-23  |  3.7 KB  |  78 lines
  1. Form1
  2. Formatting Sample Code
  3. Form1
  4. Label1
  5. Data entry here:
  6. Command1
  7. 99/99/99
  8. Command4
  9. Money
  10. Text1
  11. Command2
  12. 99/99/9999
  13. Command5
  14. Clear
  15. Label2
  16. Format string:
  17. Text2
  18. 999.999
  19. Command3
  20. Upper case
  21. Command6
  22. Text3
  23. Either type in a valid format string, or click on one of the buttons to the right to select a format type.  To test the format, click on the format box with the mouse.
  24. HelpCtl
  25. ExitCtl
  26. Text1_Change
  27. Text1_KeyPressW
  28. KeyAscii
  29. FormatString5
  30. Text2
  31. MyFormat
  32. Text1
  33. Text2_Change
  34. Text2_KeyPress
  35.     KeyStroke
  36. FormatEditing
  37. Text3
  38. SelStart
  39. Text1_LostFocus
  40. CheckFormat
  41. result
  42. decimali
  43. Command1_Click{
  44. Command2_Click
  45. Command3_Click
  46. Command4_Click
  47. Command5_Click
  48. Command6_Click
  49. Form_Click
  50.     Form_Load
  51. HelpCtl_Click
  52. Form2
  53. ExitCtl_Click
  54. Text2_KeyPress
  55.  Validate the format expression.
  56.  Must have at least one place to the lefte
  57.    of the decimal point.
  58.  Invalid format character.
  59. Text1_KeyPress
  60.  Get format string.
  61. Text1_LostFocus
  62.  Get format string.r
  63.  Check formatting.
  64.  As implemented, only numbers and dates need to be checked.g
  65. Command1_Click
  66. 99/99/99
  67. Command2_Click
  68. 99/99/9999
  69. Command3_Click
  70. !!!!!!!!!!!!!!!!!!!!!!!!!!
  71. Command4_Click
  72. 99999999999.99
  73. Command5_Click
  74. Command6_Click
  75. HelpCtl_Click
  76. ExitCtl_Click
  77.     End
  78.