浏览器

开发平台：

Visual Basic

OutPortInfo.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 = "cOutPortInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module    : cOutPortInfo
' DateTime  : 2005-5-13 12:34
' Author    : Lingll
' Purpose   : 为插件提供信息及操作
'---------------------------------------------------------------------------------------
Option Explicit
Implements LEPluginLib.ILEInfo
Private Function ILEInfo_CreateLCmnCtrl(ByVal vCtrlType As LEPluginLib.CmnCtrlType) As Object
Debug.Print "===========ILEInfo_CreateLCmnCtrl==========", vCtrlType
Select Case vCtrlType
    Case cmCtrl_ToolBar
        Set ILEInfo_CreateLCmnCtrl = CreateCmmCtrl(strCLSID_cToolBar)
    Case cmCtrl_TreeView
        Set ILEInfo_CreateLCmnCtrl = CreateCmmCtrl(strCLSID_cTreeView32)
    Case cmCtrl_ListView
        Set ILEInfo_CreateLCmnCtrl = CreateCmmCtrl(strCLSID_cSysListView32)
    Case cmCtrl_Tab
        Set ILEInfo_CreateLCmnCtrl = CreateCmmCtrl(strCLSID_cTabControl32)
    Case cmCtrl_StatusBar
        Set ILEInfo_CreateLCmnCtrl = CreateCmmCtrl(strCLSID_cStatusbar32)
    Case cmCtrl_Rebar
        Set ILEInfo_CreateLCmnCtrl = CreateCmmCtrl(strCLSID_cRebar)
    Case Else
        Set ILEInfo_CreateLCmnCtrl = Nothing
End Select
End Function
Private Function ILEInfo_GetActiveWindow() As Object
If loadedBrowserCount > 0 Then
    Set ILEInfo_GetActiveWindow = webbState(gActiveWebIndex).webForm
Else
    Set ILEInfo_GetActiveWindow = Nothing
End If
End Function
Private Function ILEInfo_GetForegroundWebObj() As stdole.IUnknown
If loadedBrowserCount > 0 Then
    Set ILEInfo_GetForegroundWebObj = webbState(gActiveWebIndex).webForm.webMe
Else
    Set ILEInfo_GetForegroundWebObj = Nothing
End If
End Function
Private Function ILEInfo_GetMainWindowObj() As Object
Set ILEInfo_GetMainWindowObj = gMainForm
End Function
Private Sub ILEInfo_NewWebWindow(Optional vUrl As String = "")
gMainForm.NewWebbrowser vUrl
End Sub
Private Function ILEInfo_SendMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
End Function
Private Function ILEInfo_ShowPopupWindow(vForm As Object) As Boolean
'Dim tFrm As Form
'Set tFrm = vForm
'tFrm.Show 0 ', gMainForm
'tFrm.Show 0, gMainForm
End Function

						