Browser Client

Development Platform:

Visual Basic

SideBandHtml.frm：Code Content

							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

						