home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / vspell / vtsevent.frm (.txt) < prev    next >
Visual Basic Form  |  1994-10-06  |  6KB  |  143 lines
  1. vtsevent
  2. VisualSpeller Events Example
  3. Form15
  4. Evspell
  5. VTSPELL
  6. american.vtd
  7. Text1
  8. Text1
  9. DoneButton
  10. &Done
  11. LoadTextButton
  12.     &LoadText
  13. CheckButton
  14. &Check
  15. Label1
  16. 2Type text in box and press CHECK to spellcheck it!
  17. CheckButton_Click
  18.     Form_Load
  19. LoadTextButton_Clickq
  20. LoadTextFile
  21. GetAFileName
  22. Text1
  23. DoneButton_Click
  24. speller-
  25. ClearCounts
  26.     AutoPopUp
  27. EventOptions
  28. AutoReplace1
  29. EHandlerb
  30.     CheckText
  31. ResultCode
  32.     WordCount
  33. ReplaceCount
  34. VTST_WORD_MISSPELLED
  35. VTST_IGNORE_REPLACE
  36. ReplaceOccurred
  37. SelStart
  38. WordOffset
  39.     SelLength
  40. MisspelledWordm
  41. UseVBDialog
  42. PopUp,
  43. VTPOP_MISSPELL
  44. VTST_CHECK_CANCELED
  45. ResumeCheck
  46. VTRC_NOCHECK;
  47. Evspell_Misspelled
  48. Evspelly
  49. Evpeller
  50.     Evspeller
  51. Evspell_Complete
  52. Evspell_CheckStatus
  53. Evspell_CheckError
  54. VTPOP_ERROR
  55. Evspell_BeforeReplace
  56. Evspell_AfterReplace
  57. Evspell_AfterPopUp
  58. EventAction
  59. VTEV_CANCEL
  60. Evspell_Found
  61. Text1_Change
  62. CheckButton_Click
  63.  Here we will use a second spellchecker control to
  64.  spellcheck using the internal popups, but this)
  65.  time entirely under control of events, including
  66.  highlighting from within an event.n
  67.  The events that occur are:n
  68.  Misspell (Word misspelled)
  69.  Complete (Done or canceled)
  70.  BeforeReplace (Automatic replace about to occur)
  71.  AfterReplace (Automatic replacement done)
  72.  AfterPopup (Automatic popup completed)n
  73.  CheckStatus (Some status condition occurred)c
  74.  CheckError (An error occurred)t
  75.  There is also a Found event, but that is disabled
  76.  by default.  It would trigger every single foundd
  77.  word, and just eat up time.
  78.  NOTE: IN ORDER FOR THE SELECTION TO BE HIGHLIGHTED
  79.  WHILE A DIALOGUE (POPUP) IS DISPLAYED, THEI
  80.  HideSelection PROPERTY OF THE TEXT CONTROLI
  81.  MUST BE SET FALSE!E
  82.  Counts to zeroC
  83.  Here, the spellcheck is started via CheckText.  When
  84.  control returns, we're done, because everything will
  85.  have been handled in an event.  Well, everythingw
  86.  except an error triggering an event.  But who
  87.  cares. 
  88.  Start the spellcheck 
  89.  Now go look at the various Evspell events to seee
  90.  the behind-the-scenes code!
  91. DoneButton_Click
  92.  Exit this form
  93. Evspell_AfterPopUp
  94.  An automatic popup session has completed.  If
  95.  a replacement was made, update the text control.n
  96. Evspell_AfterReplace
  97.  A global replace has been made.  If we wanted to,
  98.  now would be an opportunity to update the text in
  99.  the text box.  However, that would only slow things
  100.  down, and we do it when we need to anyways.
  101.  To try, just put Text1.text = Evspell.Text in
  102. Evspell_BeforeReplace
  103.  This indicates a global replace is about to be
  104.  made, but there's no sense in doing anything.
  105.  Let it happen.e
  106. Evspell_CheckError
  107.  An error condition has occurred.  Let's just use
  108.  the internal error popup.
  109. Evspell_CheckStatus
  110.  Condition here is VTST_BREAK, which indicates
  111.  the BreakWordCount has expired and we shoulds
  112.  DoEvents to give others a time slice.  Then, we
  113.  just exit and spellchecking will pick back up.e
  114. Evspell_Complete
  115.  To build up messagese
  116.  Two things can get us here - completion (result
  117.  code of 0) or cancel.
  118. Spellcheck complete!
  119.  Words Checked
  120.  Words Replaced
  121. Canceled
  122.  In either case, update the text box if replaces
  123.  occurred.
  124. Evspell_Misspelled
  125.  If replacements occurred, update the text so thee
  126.  highlighting offsets will be correct.  Then highlight
  127.  the word that will be displayed in the popup box.
  128.  Now we're sure the text control text 
  129.  matches that saved by the VBX, so wes
  130.  can go ahead and highlight the word
  131.  in the textboxh
  132.  Now exit.  The default condition will go aheado
  133.  and invoke the automatic popup box.  We could have
  134.  done the job ourself, then set Evspell.EventAction
  135.  to VTEV_RESUME to continue the spellchecking,
  136.  or to VTEV_CANCEL to cancel the spellcheck.
  137. Form_Load
  138. The quifk rown fxo jumps ovr the lazi dog's bac.
  139. LoadTextButton_Click
  140.  This allows a text file to be loaded into the
  141.  text control, for convenience.l
  142. *.txt
  143.