浏览器

开发平台：
Visual Basic

LEInfo.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 = "ILEInfo"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'---------------------------------------------------------------------------------------
' Module    : ILEInfo
' DateTime  : 2005-5-13 12:13
' Author    : Lingll
' Purpose   : LE对外提供信息的接口
'---------------------------------------------------------------------------------------
Option Explicit
Public Enum CmnCtrlType
    cmCtrl_ToolBar = 1
    cmCtrl_TreeView = 2
    cmCtrl_ListView = 3
    cmCtrl_Tab = 4
    cmCtrl_StatusBar = 5
    cmCtrl_Rebar = 6
End Enum
'---------------------------------------------------------------------------------------
' Procedure : GetMainWindowObj
' DateTime  : 2005-5-13 12:13
' Author    : Lingll
' Purpose   : 获取主窗口
'---------------------------------------------------------------------------------------
Public Function GetMainWindowObj() As Object
Attribute GetMainWindowObj.VB_Description = "获取主窗口"
End Function
'---------------------------------------------------------------------------------------
' Procedure : GetActiveWindow
' DateTime  : 2005-5-13 12:14
' Author    : Lingll
' Purpose   : 获取当前子窗口
'---------------------------------------------------------------------------------------
Public Function GetActiveWindow() As Object
Attribute GetActiveWindow.VB_Description = "获取当前子窗口"
End Function
'---------------------------------------------------------------------------------------
' Procedure : GetForegroundWebObj
' DateTime  : 2005-5-13 12:16
' Author    : Lingll
' Purpose   : 获取当前webbrowser object
'---------------------------------------------------------------------------------------
Public Function GetForegroundWebObj() As IUnknown
Attribute GetForegroundWebObj.VB_Description = "获取当前webbrowser object"
End Function
'---------------------------------------------------------------------------------------
' Procedure : ShowPopupWindow
' DateTime  : 2005-5-18 18:00
' Author    : Lingll
' Purpose   :
'---------------------------------------------------------------------------------------
Public Function ShowPopupWindow(vForm As Object) As Boolean
End Function
'---------------------------------------------------------------------------------------
' Procedure : NewWebWindow
' DateTime  : 2005-5-28 12:12
' Author    : Lingll
' Purpose   : 新建浏览窗口
'---------------------------------------------------------------------------------------
Public Sub NewWebWindow(Optional vUrl$)
Attribute NewWebWindow.VB_Description = "新建浏览窗口"
End Sub
'---------------------------------------------------------------------------------------
' Procedure : CreateLCmnCtrl
' DateTime  : 2005-5-31 00:28
' Author    : Lingll
' Purpose   : 利用le创建windows common control
'---------------------------------------------------------------------------------------
Public Function CreateLCmnCtrl(vCtrlType As CmnCtrlType) As Object
End Function
'---------------------------------------------------------------------------------------
' Procedure : SendMessage
' DateTime  : 2005-8-15 01:27
' Author    : Lingll
' Purpose   : 全能型函数,方便日后扩展
'---------------------------------------------------------------------------------------
Public Function SendMessage(ByVal uMsg&, ByVal wParam&, ByVal lParam&) As Long
End Function

						