frmwebbroswer

100个vb编程实例,什么都有

      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   24
      ImageHeight     =   24
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   8
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":01F2
            Key             =   "back"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":04D4
            Key             =   "forward"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":07B6
            Key             =   "stop"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":0A98
            Key             =   "refresh"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":0D7A
            Key             =   "home"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":105C
            Key             =   "search"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":133E
            Key             =   "open"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmWebBroswer.frx":1456
            Key             =   "save"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   10
      Top             =   6450
      Width           =   9480
      _ExtentX        =   16722
      _ExtentY        =   609
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   8
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5997
            MinWidth        =   5997
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            Object.Width           =   1764
            MinWidth        =   1764
            TextSave        =   "01-7-8"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            Object.Width           =   1236
            MinWidth        =   1236
            TextSave        =   "15:57"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   970
            MinWidth        =   970
            TextSave        =   "CAPS"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            Alignment       =   1
            Object.Width           =   970
            MinWidth        =   970
            TextSave        =   "NUM"
         EndProperty
         BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   3
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   970
            MinWidth        =   970
            TextSave        =   "Ins"
         EndProperty
         BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   4
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   971
            MinWidth        =   971
            TextSave        =   "SCRL"
         EndProperty
      EndProperty
   End
   Begin VB.Label LabelUrl 
      Caption         =   "当前地址"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   650
      Width           =   735
   End
End
Attribute VB_Name = "FrmWebBroswer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdAddress_Click()
Load frmNoteBook
frmNoteBook.Show
End Sub

Private Sub CmdChat_Click()
Load frmClient
frmClient.Show
End Sub

Private Sub CmdImage_Click()
Load frmControl
frmControl.Show
End Sub



Private Sub CmdText_Click()
Load frmMDI
frmMDI.Show
End Sub

Private Sub CndFtp_Click()
Load frmFtp
frmFtp.Show
End Sub

Private Sub ComboLink_Click()
    Me.WebBrowser(Me.SSTabUrl.Tab).Navigate Me.ComboLinkUrl.List(Me.ComboLink.ListIndex)
End Sub

Private Sub ComboUrl_Click()
Me.WebBrowser(Me.SSTabUrl.Tab).Navigate Me.ComboUrl.Text
End Sub

Private Sub ComboUrl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Me.WebBrowser(Me.SSTabUrl.Tab).Navigate Me.ComboUrl.Text
    Call AddUrl
End If
End Sub

Private Sub Form_Load()

For i = 0 To Me.SSTabUrl.Tabs - 1
    Me.SSTabUrl.TabCaption(i) = "Link" + CStr(i + 1)
Next

With Me.ComboLink
    .AddItem "清华大学"
    .AddItem "欢迎使用263.net免费邮箱"
    .AddItem "网上新生活来自易得方舟！"
    .AddItem "ChinaRen --欢迎访问China人网站"
    .AddItem "人来了 , 人来了"
    .AddItem "新浪网"
    .AddItem "网易"
    .ListIndex = 0
End With
With Me.ComboLinkUrl
    .AddItem "http://www.tsinghua.edu.cn"
    .AddItem "http://www.freemail.263.net"
    .AddItem "http://www.fanso.com"
    .AddItem "http://www.chinaren.com"
    .AddItem "http://www.renren.com"
    .AddItem "http://www.sina.com"
    .AddItem "http://www.netease.com"
    .ListIndex = 0
End With
End Sub




Private Sub TabStrip1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > 8400 And X < 8400 + 975) And (Y > 720 And Y < 720 + 5415) Then
    Me.Webtools.Visible = True
Else
    Me.Webtools.Visible = False
End If
End Sub

Private Sub Image1_Click()
Me.WebBrowser(Me.SSTabUrl.Tab).Navigate "http://www.foxyhunter.chinaren.com"
End Sub





Private Sub SSTabUrl_Click(PreviousTab As Integer)
Me.ComboUrl.Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationURL
Me.StatusBar1.Panels(1).Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationURL
Me.StatusBar1.Panels(2).Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationName
Me.Caption = "飓风浏览器---" + Me.WebBrowser(Me.SSTabUrl.Tab).LocationName
End Sub






Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "open"
        Me.CommonDialog1.ShowOpen
        If Me.CommonDialog1.FileName = "" Then
            Exit Sub
        End If
        Me.WebBrowser(Me.SSTabUrl.Tab).Navigate Me.CommonDialog1.FileName
    Case "save"
        Me.CommonDialog1.ShowSave
    Case "back"
        On Error GoTo errhandle
        Me.WebBrowser(Me.SSTabUrl.Tab).GoBack
    Case "forward"
        On Error GoTo errhandle
        Me.WebBrowser(Me.SSTabUrl.Tab).GoForward
    Case "stop"
        On Error GoTo errhandle
        Me.WebBrowser(Me.SSTabUrl.Tab).Stop
    Case "refresh"
        On Error GoTo errhandle
        Me.WebBrowser(Me.SSTabUrl.Tab).Refresh
    Case "home"
        On Error GoTo errhandle
        Me.WebBrowser(Me.SSTabUrl.Tab).GoHome
    Case "gosearch"
        On Error GoTo errhandle
        Me.WebBrowser(Me.SSTabUrl.Tab).GoSearch
End Select
Me.ComboUrl.Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationURL
errhandle:
        If Not Err.Number = 0 And Not Err.Description = "溢出" Then MsgBox Err.Description
End Sub


Private Sub WebBrowser_BeforeNavigate2(Index As Integer, ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Me.ComboUrl.Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationURL
Call AddUrl
Me.SSTabUrl.TabCaption(Index) = "Begin"
End Sub

Private Sub WebBrowser_DownloadComplete(Index As Integer)
Me.ComboUrl.Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationURL
Me.StatusBar1.Panels(1).Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationURL
End Sub

Private Sub WebBrowser_NavigateComplete2(Index As Integer, ByVal pDisp As Object, URL As Variant)
Me.StatusBar1.Panels(1).Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationURL
Me.StatusBar1.Panels(2).Text = Me.WebBrowser(Me.SSTabUrl.Tab).LocationName
Call AddUrl
Me.SSTabUrl.TabCaption(Index) = "Finish"
End Sub

Private Sub WebBrowser_ProgressChange(Index As Integer, ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Me.SSTabUrl.TabCaption(Index) = "Loading..." + CStr(Progress / ProgressMax * 100) + "%"
If Progress = ProgressMax Then Me.SSTabUrl.TabCaption(Index) = "Finish"
End Sub

Private Sub WebBrowser_StatusTextChange(Index As Integer, ByVal Text As String)
Me.StatusBar1.Panels(1).Text = Text
End Sub

Private Sub WebBrowser_TitleChange(Index As Integer, ByVal Text As String)
Me.Caption = "飓风浏览器---" + Text
End Sub