开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
ILESideBand.cls
资源名称：IE_VB.rar　[点击查看]
上传用户：davilee3
上传日期：2015-04-22
资源大小：986k
文件大小：2k
源码类别：

浏览器

开发平台：

Visual Basic

ILESideBand.cls：源码内容
  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 = "ILESideBand"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '---------------------------------------------------------------------------------------
  15. ' Module    : ILESideBand
  16. ' DateTime  : 2005-5-21 22:20
  17. ' Author    : Lingll
  18. ' Purpose   :
  19. '---------------------------------------------------------------------------------------
  21. Option Explicit
  23. '---------------------------------------------------------------------------------------
  24. ' Procedure : SetSite
  25. ' DateTime  : 2005-5-28 12:09
  26. ' Author    : Lingll
  27. ' Purpose   :
  28. '---------------------------------------------------------------------------------------
  29. Public Sub SetSite(ByVal hParent&, ByVal vOutPort As ILEInfo)
  31. End Sub
  35. '---------------------------------------------------------------------------------------
  36. ' Procedure : ShowBand
  37. ' DateTime  : 2005-5-29 21:18
  38. ' Author    : Lingll
  39. ' Purpose   : 是否显示band
  40. '---------------------------------------------------------------------------------------
  41. Public Sub ShowBand(bShow As Boolean)
  43. End Sub
  45. '---------------------------------------------------------------------------------------
  46. ' Procedure : Resize
  47. ' DateTime  : 2005-5-28 12:10
  48. ' Author    : Lingll
  49. ' Purpose   :
  50. '---------------------------------------------------------------------------------------
  51. Public Sub Resize(ByVal x&, ByVal y&, ByVal cx&, ByVal cy&)
  53. End Sub
  57. '---------------------------------------------------------------------------------------
  58. ' Procedure : CloseBand
  59. ' DateTime  : 2005-5-28 12:16
  60. ' Author    : Lingll
  61. ' Purpose   : 关闭(程序退出)
  62. '---------------------------------------------------------------------------------------
  63. Public Sub CloseBand()
  64. Attribute CloseBand.VB_Description = "关闭(程序退出)"
  66. End Sub