browser.frm

主要是网络和数据库的一些东东

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1 
   Caption         =   "简易浏览器"
   ClientHeight    =   8070
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10230
   LinkTopic       =   "Form1"
   ScaleHeight     =   8070
   ScaleWidth      =   10230
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出"
      Height          =   375
      Left            =   7920
      TabIndex        =   5
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton cmdHome 
      Caption         =   "打开主页"
      Height          =   375
      Left            =   5640
      TabIndex        =   4
      Top             =   240
      Width           =   1095
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser 
      Height          =   6975
      Left            =   240
      TabIndex        =   3
      Top             =   840
      Width           =   9735
      ExtentX         =   17171
      ExtentY         =   12303
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
   Begin VB.CommandButton cmdBack 
      Caption         =   "上一步"
      Height          =   375
      Left            =   6840
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
   Begin VB.TextBox txtURL 
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   240
      Width           =   4095
   End
   Begin VB.CommandButton cmdGo 
      Caption         =   "打开网页"
      Height          =   375
      Left            =   4440
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdBack_Click()
 On Error Resume Next
WebBrowser.GoBack
txtURL.Text = ""
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdGo_Click()

If Len(txtURL.Text) > 0 Then
    WebBrowser.Navigate txtURL.Text
Else
    WebBrowser.Stop
    MsgBox "Please Enter a valid URL.", vbOKOnly, "Invalid URL"
    txtURL.SetFocus
End If

End Sub

Private Sub cmdHome_Click()
'打开默认主页
WebBrowser.Navigate "tup.tsinghua.edu.cn"
txtURL.Text = "tup.tsinghua.edu.cn"
End Sub

Private Sub Form_Load()
'设置默认主页
txtURL.Text = "http://tup.tsinghua.edu.cn"
WebBrowser.Navigate "http://tup.tsinghua.edu.cn"

End Sub

Private Sub txtURL_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        WebBrowser.Navigate txtURL.Text
    End If
End Sub