SideBandHtml.frm
上传用户:davilee3
上传日期:2015-04-22
资源大小:986k
文件大小:2k
源码类别:

浏览器

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form frmSideBandHtml 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4680
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3195
  12.    ScaleWidth      =   4680
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15. End
  16. Attribute VB_Name = "frmSideBandHtml"
  17. Attribute VB_GlobalNameSpace = False
  18. Attribute VB_Creatable = False
  19. Attribute VB_PredeclaredId = True
  20. Attribute VB_Exposed = False
  21. Option Explicit
  22. Private WithEvents m_cWeb As cWebBrowser
  23. Attribute m_cWeb.VB_VarHelpID = -1
  24. Private WithEvents m_web As SHDocVw.WebBrowser
  25. Attribute m_web.VB_VarHelpID = -1
  26. Implements LEPluginLib.ILESideBand
  27. Private Sub Form_Load()
  28. Set m_cWeb = New cWebBrowser
  29. m_cWeb.HostInfo = hfDefault Or hfFlatScroll
  30. m_cWeb.INIAll Me
  31. Set m_web = m_cWeb.WBCtrl
  32. 'm_web.Navigate "zsu.edu.cn"
  33. End Sub
  34. Public Sub Navigate(vUrl$)
  35. On Error Resume Next
  36. m_web.Navigate vUrl
  37. End Sub
  38. Public Sub SetToChild(lParentWnd&)
  39. SetWindowLong Me.hWnd, GWL_STYLE, GetWindowLong(Me.hWnd, GWL_STYLE) Or WS_CHILD
  40. SetParent Me.hWnd, lParentWnd
  41. End Sub
  42. Private Sub ILESideBand_CloseBand()
  43. Unload Me
  44. Debug.Print "close band"
  45. End Sub
  46. Private Sub ILESideBand_Resize(ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long)
  47. MoveWindow Me.hWnd, x, y, cx, cy, BooleanToBool(Me.Visible)
  48. End Sub
  49. Private Function ILESideBand_SendMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  50. End Function
  51. Private Sub ILESideBand_SetSite(ByVal hParent As Long, ByVal vOutPort As LEPluginLib.ILEInfo)
  52. SetToChild hParent
  53. End Sub
  54. Private Sub ILESideBand_ShowBand(ByVal bShow As Boolean)
  55. Me.Visible = bShow
  56. End Sub
  57. Private Sub m_web_NewWindow2(ppDisp As Object, Cancel As Boolean)
  58. On Error Resume Next
  59. Dim tIndex&
  60. tIndex = gMainForm.NewWebbrowser(, , , , , True)
  61. Set ppDisp = webbState(tIndex).webForm.webMe
  62. End Sub