home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Capture_IE775174302002.psc / IBrowser.cls < prev    next >
Encoding:
Visual Basic class definition  |  2002-01-18  |  1.5 KB  |  67 lines

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "IBrowser"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15. 'IBrowser - Interface Class
  16. 'This class defines the interface for calling classes.
  17. Public Sub SetBrowserInst(Browser As SHDocVw.InternetExplorer)
  18.     '
  19. End Sub
  20. Public Sub BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
  21. '
  22. End Sub
  23.  
  24. Public Sub DocumentComplete(ByVal pDisp As Object, URL As Variant)
  25. '
  26. End Sub
  27.  
  28. Public Sub DownLoadBegin()
  29. '
  30. End Sub
  31.  
  32. Public Sub DownLoadComplete()
  33. '
  34. End Sub
  35.  
  36. Public Sub FileDownload(Cancel As Boolean)
  37. '
  38. End Sub
  39.  
  40. Public Sub NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  41. '
  42. End Sub
  43.  
  44. Public Sub NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
  45. '
  46. End Sub
  47.  
  48. Public Sub NewWindow2(ppDisp As Object, Cancel As Boolean)
  49. '
  50. End Sub
  51.  
  52. Public Sub OnFullScreen(ByVal FullScreen As Boolean)
  53. '
  54. End Sub
  55.  
  56. Public Sub ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
  57. '
  58. End Sub
  59.  
  60. Public Sub TitleChange(ByVal Text As String)
  61. '
  62. End Sub
  63.  
  64. Public Sub WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
  65. '
  66. End Sub
  67.