浏览器

开发平台：

Visual Basic

LEplugin.cls：源码内容

							VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ILEpluginCmd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'---------------------------------------------------------------------------------------
' Module    : ILEpluginCmd
' DateTime  : 2005-5-13 12:22
' Author    : Lingll
' Purpose   : 命令方式的插件
'---------------------------------------------------------------------------------------
Option Explicit
'---------------------------------------------------------------------------------------
' Procedure : RunCommand
' DateTime  : 2005-5-13 12:21
' Author    : Lingll
' Purpose   : 执行命令
'---------------------------------------------------------------------------------------
Public Function RunCommand(Optional lParam& = 0) As Boolean
Attribute RunCommand.VB_Description = "执行命令"
End Function
'---------------------------------------------------------------------------------------
' Procedure : SetSite
' DateTime  : 2005-5-13 12:22
' Author    : Lingll
' Purpose   :
'---------------------------------------------------------------------------------------
Public Sub SetSite(ByVal pUnkSite As IUnknown, ByVal vOutPort As ILEInfo)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : ShowOption
' DateTime  : 2005-5-13 16:08
' Author    : Lingll
' Purpose   : 显示设置窗口
'---------------------------------------------------------------------------------------
Public Sub ShowOption()
End Sub

						