home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / mwatch / menter.txt < prev    next >
Text File  |  1992-08-24  |  705b  |  26 lines
  1. DefInt A-Z
  2.  
  3. Declare Sub StartMouseWatch Lib "mwatch.dll" (ByVal hWnd)
  4. Declare Sub StopMouseWatch Lib "mwatch.dll" (ByVal hWnd)
  5.  
  6. Declare Function HWndTag$ Lib "mwatch.dll" (ByVal hWnd)
  7. Declare Function HWndCtlName$ Lib "mwatch.dll" (ByVal hWnd)
  8. Declare Function MenuCaption$ Lib "mwatch.dll" (ByVal MenuID)
  9.  
  10. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  11.     If KeyCode < 0 Then
  12.         Caption = "Menu: " + MenuCaption$(KeyCode * -1)
  13.     Else
  14.         Caption = "CtlName: " + HWndCtlName$(KeyCode) + ", Tag: " + HWndTag$(KeyCode)
  15.     End If
  16. End Sub
  17.  
  18. Sub Form_Load ()
  19.     StartMouseWatch hWnd
  20. End Sub
  21.  
  22. Sub Form_Unload (Cancel As Integer)
  23.     StopMouseWatch (hWnd)
  24. End Sub
  25.  
  26.