home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / focus001 / foc001f.frm (.txt) next >
Visual Basic Form  |  1992-05-04  |  8KB  |  141 lines
  1. Foc001
  2. Focus U-Turn Test Program
  3. wwwwp
  4. wwwwwp
  5. Form1+
  6. lblFirstName
  7. First Name:
  8. lblLastName
  9. Last Name:
  10. lblLeftRight
  11. Left / Right
  12. lblValue
  13.  Value
  14. txtFirstName
  15. txtLastName
  16. hsbLeftRight    
  17. lblLeftRightValue
  18. lblType
  19. Type:
  20. clbType
  21. lblComments1
  22. When ALL control edits are passed, this form can be unloaded or exited.  ALL controls, except push buttons, are initialized to values that will fail verification.  This is done to require input of valid values. 
  23. pbtLoadFocusUTurn
  24. "   Unload  FOCUS-U-TURN Form . . .
  25. lblComments2
  26. The 'Unload...' push button transfers to a second form that allows this form to be reloaded.  The 'Verify and Exit' push button will NOT allow an exit unless ALL edits are passed.  
  27. pbtExit
  28.  Verify and Exit
  29. pbtExitNoVerify
  30.  Exit Without Verify
  31. Text1_Change
  32. Form_Click
  33.     Form_Load
  34.     nVerifyOK
  35. txtFirstName_Change#
  36. txtFirstName_GotFocus
  37. hgCtlWithFocus
  38. GetFocus
  39. ngVerifyOKE
  40. txtLastName_Change
  41. hsbLeftRight_Change
  42. txtFirstName_LostFocus\
  43. txtFirstNameE
  44. nRetVal
  45. PostMessage
  46. WM_NEXTDLGCTL
  47. lParam
  48. txtLastName_GotFocus+
  49. hsbLeftRight_GotFocus
  50. SendMessage
  51. FALSE
  52. ngCtlFocusIDk
  53. txtLastName
  54. hsbLeftRightq
  55. txtLastName_LostFocusN
  56. hsbLeftRight_LostFocus
  57. Value
  58. nCurrValue
  59. ngCurrValue2
  60. nType
  61. Verifyn
  62. pbtExit_Click
  63. SelStart
  64.     Sellength
  65. clbType_Change
  66. clbType_GotFocus
  67. clbType
  68. clbType_LostFocus
  69. csbType
  70.     ListIndex
  71. ngCurrIndex
  72. nVerifyAll
  73. lblType_Click
  74. FocusUTurn
  75. Foc001
  76. pbtLoadFocusUTurn_Click
  77. Foc002
  78. lblLeftRightValue
  79. Caption
  80. Command1_Click
  81. pbtExitNoVerify_Click
  82.     nMsgOnOff
  83. nMsgOn
  84. pbtExit_GotFocus
  85. pbtLoadFocusUTurn_GotFocus
  86. Label1_Click
  87. Form_Load
  88. 1 City
  89. 2 County
  90. 3 State"
  91. 4 Federal"
  92. txtFirstName_GotFocus
  93.  This is where we 'think' we are...so all is well...
  94. txtFirstName_LostFocus
  95.  Do NOTHING...let GotFocus handle 'Focus U-Turns'...
  96. txtLastName_GotFocus
  97.  This is where we 'think' we are...so all is well...
  98. hsbLeftRight_GotFocus
  99.  This is where we 'think' we are...so all is well...
  100. txtLastName_LostFocus
  101.  Do NOTHING...let GotFocus handle 'Focus U-Turns'...
  102. hsbLeftRight_LostFocus
  103.  Do NOTHING...let GotFocus handle 'Focus U-Turns'...
  104. hsbLeftRight_Change
  105.  Verify OK...so ignore this...
  106.  hsbLeftRight is current control...so do nothing...t
  107. pbtExit_Click
  108.  It is somewhat redundant to verify here because validation wasa
  109.  already done in the GotFocus event...
  110.  Do NOTHING...not interested since no problem...
  111. clbType_Change
  112.  Verify OK...so ignore this...
  113.  clbType is the current control...so do nothing...
  114. clbType_GotFocus
  115.  This is where we 'think' we are...so all is well...
  116. clbType_LostFocus
  117.  Do NOTHING...let GotFocus handle 'Focus U-Turns'...
  118. pbtLoadFocusUTurn_Click
  119.  It is somewhat redundant to verify here because validation wasa
  120.  already done in the GotFocus event...
  121.  Do NOTHING...not interested since no problem...
  122. pbtExitNoVerify_Click
  123. pbtExit_GotFocus
  124.  All of the events are coded to stop on the FIRST edit error...If it isi
  125.  important to see ALL edit errors then another function similar to
  126.  FocusUTurn() can be used...However, it is more complicated because it
  127.  requires that you KNOW how many errors so that you can actually do theo
  128.  'Focus U-Turn' on the last one in addition to displaying the message...
  129.  Alternatively, you could build a list of all errors, load-up a listboxs
  130.  with the error list and then do the 'Focus U-Turn' via a 'OK' push 
  131.  button on a modal form...
  132.  Current control is OK...so continue checking the other controls...z
  133.  Do NOTHING...not interested since no problem...
  134.  Already did this one...
  135.  No need to do anything more at this point....
  136. pbtLoadFocusUTurn_GotFocus
  137.  Current control is OK...so continue checking the other controls...z
  138.  Do NOTHING...not interested since no problem...
  139.  Already did this one...
  140.  No need to do anything at this point...
  141.