home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / source / chap07 / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-05-20  |  2.8 KB  |  99 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5385
  5.    ClientLeft      =   2085
  6.    ClientTop       =   1320
  7.    ClientWidth     =   7395
  8.    Height          =   5790
  9.    Left            =   2025
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5385
  12.    ScaleWidth      =   7395
  13.    Top             =   975
  14.    Width           =   7515
  15.    Begin VB.CommandButton go 
  16.       Caption         =   "GO"
  17.       Height          =   375
  18.       Left            =   4440
  19.       TabIndex        =   1
  20.       Top             =   1080
  21.       Width           =   975
  22.    End
  23.    Begin VB.TextBox txtURL 
  24.       Height          =   375
  25.       Left            =   1800
  26.       TabIndex        =   0
  27.       Top             =   1080
  28.       Width           =   2175
  29.    End
  30.    Begin VB.Label Label 
  31.       Caption         =   "This example uses Microsoft Internet and Shell Controls"
  32.       BeginProperty Font 
  33.          name            =   "Arial"
  34.          charset         =   0
  35.          weight          =   400
  36.          size            =   9.75
  37.          underline       =   0   'False
  38.          italic          =   0   'False
  39.          strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   &H000000FF&
  42.       Height          =   375
  43.       Left            =   480
  44.       TabIndex        =   4
  45.       Top             =   360
  46.       Width           =   5175
  47.    End
  48.    Begin VB.Label Label1 
  49.       Caption         =   "URL Address"
  50.       Height          =   375
  51.       Left            =   360
  52.       TabIndex        =   3
  53.       Top             =   1080
  54.       Width           =   975
  55.    End
  56.    Begin SHDocVwCtl.ShellExplorer ShellExplorer1 
  57.       Height          =   2895
  58.       Left            =   360
  59.       OleObjectBlob   =   "Form1.frx":0000
  60.       TabIndex        =   2
  61.       Top             =   1560
  62.       Width           =   4455
  63.    End
  64. Attribute VB_Name = "Form1"
  65. Attribute VB_Creatable = False
  66. Attribute VB_Exposed = False
  67. Private Sub Command1_Click()
  68. End Sub
  69. Private Sub Command2_Click()
  70.     ShellExplorer1.Application.GoBack
  71. End Sub
  72. Private Sub Command3_Click()
  73.     ShellExplorer1.Application.GoForward
  74. End Sub
  75. Private Sub Form_Load()
  76.     txtURL.Text = "c:\test\test1.htm"
  77.     Form_Resize
  78. End Sub
  79. Private Sub Form_Resize()
  80.     If WindowState <> 1 Then
  81.         ShellExplorer1.Left = 0
  82.         ShellExplorer1.Width = Width - 100
  83.         ShellExplorer1.Height = Height - ShellExplorer1.Top - 370
  84.     End If
  85. End Sub
  86. Private Sub Text1_Change()
  87. End Sub
  88. Private Sub go_Click()
  89.    ShellExplorer1.Location = txtURL.Text
  90. End Sub
  91. Private Sub Label1_Click()
  92. End Sub
  93. Private Sub ShellExplorer1_OnBeginNavigate(ByVal HLink As Object, Cancel As Boolean)
  94. End Sub
  95. Private Sub T_Click()
  96. End Sub
  97. Private Sub txtURL_Change()
  98. End Sub
  99.