home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / TXTFMT1.ZIP / FORM1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1992-06-25  |  3.7 KB  |  85 lines
  1. Form1
  2. Formatting Sample Code
  3. Form1
  4. Label1
  5. Data entry here:
  6. Command1
  7. 99/99/99
  8. Command7
  9. Lose Focus
  10. Text1
  11. Command2
  12. Phone #
  13. Label2
  14. Format string:
  15. Command4
  16. Money
  17. Command5
  18. Clear
  19. Text2
  20. 999.999
  21. Command3
  22. Upper case
  23. Command6
  24. Text3
  25. 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.
  26. HelpCtl
  27. ExitCtl
  28. Text1_Change
  29. Text1_KeyPressW
  30. KeyAscii
  31. FormatString5
  32. Text2
  33. MyFormat
  34. Text1
  35. Text2_Change
  36. Text2_KeyPress
  37.     KeyStroke
  38. FormatEditing
  39. Text3
  40. SelStart
  41. Text1_LostFocus
  42. CheckFormat
  43. result
  44. decimali
  45. Command1_Click{
  46. Command2_Click
  47. Command3_Click
  48. Command4_Click
  49. Command5_Click
  50. Command6_Click    
  51. Form_Click
  52.     Form_Load
  53. HelpCtl_Click
  54. Form2
  55. ExitCtl_Click)
  56. Text1_GotFocusK
  57. InitFormat
  58. Text2_LostFocus
  59. TextChanged
  60. Beepit
  61. Text1_KeyPress
  62.  Get format string.
  63. Text1_LostFocus
  64.  Get format string.
  65.  Turn on beep if error.i
  66.  Check formatting.
  67.  As implemented, only numbers and dates need to be checked.o
  68. Cannot leave Text1; data does not match format."
  69. Command1_Click
  70. @L 99/99/99"
  71. Command2_Click
  72. @L (999) 999-9999"
  73. Command3_Click
  74. !!!!!!!!!!!!!!!!!!!!!!!!!!
  75. Command4_Click
  76. 99999999999.99
  77. Command5_Click
  78. Command6_Click
  79. HelpCtl_Click
  80. ExitCtl_Click
  81. Text1_GotFocus
  82.  Get format string.1
  83.  Use template to fill in literals.
  84. Text1_Change
  85.