SideBandHtml.frm
资源名称:IE_VB.rar [点击查看]
上传用户:davilee3
上传日期:2015-04-22
资源大小:986k
文件大小:2k
源码类别:
浏览器
开发平台:
Visual Basic
- VERSION 5.00
- Begin VB.Form frmSideBandHtml
- BorderStyle = 0 'None
- Caption = "Form1"
- ClientHeight = 3195
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 4680
- ControlBox = 0 'False
- LinkTopic = "Form1"
- ScaleHeight = 3195
- ScaleWidth = 4680
- ShowInTaskbar = 0 'False
- StartUpPosition = 3 'Windows Default
- End
- Attribute VB_Name = "frmSideBandHtml"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private WithEvents m_cWeb As cWebBrowser
- Attribute m_cWeb.VB_VarHelpID = -1
- Private WithEvents m_web As SHDocVw.WebBrowser
- Attribute m_web.VB_VarHelpID = -1
- Implements LEPluginLib.ILESideBand
- Private Sub Form_Load()
- Set m_cWeb = New cWebBrowser
- m_cWeb.HostInfo = hfDefault Or hfFlatScroll
- m_cWeb.INIAll Me
- Set m_web = m_cWeb.WBCtrl
- 'm_web.Navigate "zsu.edu.cn"
- End Sub
- Public Sub Navigate(vUrl$)
- On Error Resume Next
- m_web.Navigate vUrl
- End Sub
- Public Sub SetToChild(lParentWnd&)
- SetWindowLong Me.hWnd, GWL_STYLE, GetWindowLong(Me.hWnd, GWL_STYLE) Or WS_CHILD
- SetParent Me.hWnd, lParentWnd
- End Sub
- Private Sub ILESideBand_CloseBand()
- Unload Me
- Debug.Print "close band"
- End Sub
- Private Sub ILESideBand_Resize(ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long)
- MoveWindow Me.hWnd, x, y, cx, cy, BooleanToBool(Me.Visible)
- End Sub
- Private Function ILESideBand_SendMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
- End Function
- Private Sub ILESideBand_SetSite(ByVal hParent As Long, ByVal vOutPort As LEPluginLib.ILEInfo)
- SetToChild hParent
- End Sub
- Private Sub ILESideBand_ShowBand(ByVal bShow As Boolean)
- Me.Visible = bShow
- End Sub
- Private Sub m_web_NewWindow2(ppDisp As Object, Cancel As Boolean)
- On Error Resume Next
- Dim tIndex&
- tIndex = gMainForm.NewWebbrowser(, , , , , True)
- Set ppDisp = webbState(tIndex).webForm.webMe
- End Sub