home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / API-ucList1887915132005.psc / mIOleInPlaceActivate.bas < prev   
BASIC Source File  |  2004-09-02  |  2KB  |  37 lines
  1. Attribute VB_Name = "mIOleInPlaceActivate"
  2. '========================================================================================
  3. ' Filename:    mIOleInPlaceActivate.bas
  4. ' Author:      Mike Gainer, Matt Curland and Bill Storage
  5. ' Date:        09 January 1999
  6. '
  7. ' Requires:    OleGuids.tlb (in IDE only)
  8. '
  9. ' Description:
  10. ' Allows you to replace the standard IOLEInPlaceActiveObject interface for a
  11. ' UserControl with a customisable one.  This allows you to take control
  12. ' of focus in VB controls.
  13. '
  14. ' The code could be adapted to replace other UserControl OLE interfaces.
  15. '
  16. ' ---------------------------------------------------------------------------------------
  17. ' Visit vbAccelerator, advanced, free source for VB programmers
  18. ' http://vbaccelerator.com
  19. '========================================================================================
  20.  
  21. Option Explicit
  22.  
  23. '========================================================================================
  24. ' Lightweight object definition
  25. '========================================================================================
  26.  
  27. Public Type IPAOHookStruct
  28.     lpVTable    As Long                    'VTable pointer
  29.     IPAOReal    As IOleInPlaceActiveObject 'Un-AddRefed pointer for forwarding calls
  30.     Ctl         As ucListView              'Un-AddRefed native class pointer for making Friend calls
  31.     ThisPointer As Long
  32. End Type
  33.  
  34. '========================================================================================
  35. ' 0Friiroli=
  36. ' 0Friiroli=
  37. ' 0Friiriroli=========================ForFsls