home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / PROGRAMS / SAVE_ME / SAVEME2.FRM (.txt) < prev   
Encoding:
Visual Basic Form  |  1992-01-28  |  3.8 KB  |  70 lines
  1. SaveMe
  2. VB Save Me
  3. wwwwwwwwwwwwww
  4. wwwwwwwwwwwwww
  5. Form1,
  6. btnSave
  7. &Save File
  8. btnSave
  9. Save File &As...
  10. btnSave
  11. Sa&ve Project
  12. btnSave
  13. Sav&e Project As...
  14. FindWindow
  15. lpClassName
  16. lpWindowName
  17. GetActiveWindow
  18. SetActiveWindow
  19. FALSE
  20. btnSave_Click
  21. Index
  22. VBhWnd
  23. ActivehWnd
  24. PrevhWnd
  25. MB_OK
  26.  SAVE ME!
  27. *   This is just a little program that I threw together  *''
  28. *   to help remind me to save my Forms, Files, and
  29. *   Projects while I work in VB.  I have a tendency to   *''
  30. *   make changes and run the program without saving my   *''
  31. *   latest changes, and, if it bombs, I kick myself
  32. *   repeatedly.  SAVE ME! uses SendKeys to save the
  33. *   currrent file or project in VB when in design mode.  *''
  34. *   Obviously it is not as reliable as using the VB
  35. *   menus directly, and I use it mainly as a visual
  36. *   reminder.  You can make the form even less obtrusive *''
  37. *   by placing it on your screen and then turning off
  38. *   Control Box and making the Form caption "".  You
  39. *   won't be able to drag it around but, by putting a
  40. *   Timer on the form that looks to see if VB is still   *''
  41. *   active, you could have it shut down automatically
  42. *   when VB is closed.
  43. # *' 
  44. *   Let me know if you find it useful, or not.
  45. *   Gregg Irwin CIS:ID 72450,676
  46. Userr
  47. Const NULL = 0&
  48.  '--If you want to pass NULL to FindWindow
  49. btnSave_Click
  50. -- Class name for VB = "wndclass_desked_gsk"
  51. -- Caption for VB
  52.  = "Microsoft Visual Basic [design]"n
  53. ** NOTE: Looks for VB in DESIGN mode only **'
  54. wndclass_desked_gsk"
  55. Microsoft Visual Basic [design]"
  56. -- Make sure VB is running before we do anything
  57. -- if VB isn't active then activate it. 
  58. -- Save the handle of the currently active window
  59. -- Command it to do our biddingn
  60. -- Save File
  61. -- Save File As...
  62. -- Save Project
  63. -- Save Project As...i
  64. Visual Basic is not running"
  65. Save Me...Didn't
  66. Len(VBhWnd)c
  67. -- Un-REM this to re-activate the window that was.
  68.    active when we started.
  69. dummy = SetActiveWindow(PrevhWnd) 
  70.