home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / VBINTRNT.ZIP / VBINTRNT.EXE / GOFORM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-01  |  3.0 KB  |  98 lines
  1. VERSION 4.00
  2. Begin VB.Form goForm 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Where Do You Want To Go Today?"
  5.    ClientHeight    =   2790
  6.    ClientLeft      =   1950
  7.    ClientTop       =   1725
  8.    ClientWidth     =   4815
  9.    Height          =   3210
  10.    Left            =   1890
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2790
  16.    ScaleWidth      =   4815
  17.    Top             =   1365
  18.    Width           =   4935
  19.    Begin VB.Frame Frame2 
  20.       Caption         =   "Open A Local File"
  21.       Height          =   1005
  22.       Left            =   90
  23.       TabIndex        =   3
  24.       Top             =   1680
  25.       Width           =   4605
  26.       Begin VB.CommandButton Command2 
  27.          Caption         =   "Open File..."
  28.          Height          =   450
  29.          Left            =   840
  30.          TabIndex        =   4
  31.          Top             =   330
  32.          Width           =   3135
  33.       End
  34.    End
  35.    Begin VB.Frame Frame1 
  36.       Caption         =   "URL To Visit"
  37.       Height          =   1470
  38.       Left            =   75
  39.       TabIndex        =   0
  40.       Top             =   75
  41.       Width           =   4635
  42.       Begin VB.CommandButton Command1 
  43.          Caption         =   "Go..."
  44.          Default         =   -1  'True
  45.          Height          =   405
  46.          Left            =   1170
  47.          TabIndex        =   2
  48.          Top             =   870
  49.          Width           =   2295
  50.       End
  51.       Begin VB.TextBox userURL 
  52.          BeginProperty Font 
  53.             name            =   "MS Sans Serif"
  54.             charset         =   0
  55.             weight          =   400
  56.             size            =   12
  57.             underline       =   0   'False
  58.             italic          =   0   'False
  59.             strikethrough   =   0   'False
  60.          EndProperty
  61.          Height          =   420
  62.          Left            =   210
  63.          TabIndex        =   1
  64.          Text            =   "http://www."
  65.          Top             =   300
  66.          Width           =   4215
  67.       End
  68.    End
  69.    Begin MSComDlg.CommonDialog openHTML 
  70.       Left            =   0
  71.       Top             =   2880
  72.       _Version        =   65536
  73.       _ExtentX        =   847
  74.       _ExtentY        =   847
  75.       _StockProps     =   0
  76.       DialogTitle     =   "Open HTML File"
  77.       FileName        =   "*.htm*"
  78.       Filter          =   "*.htm*|HTML Files"
  79.    End
  80. Attribute VB_Name = "goForm"
  81. Attribute VB_Creatable = False
  82. Attribute VB_Exposed = False
  83. Private Sub Command1_Click()
  84. If debugMode Then
  85.     Debug.Print "Requesting:" & userURL
  86. End If
  87. webForm.WebBrowser(webForm.TabStrip1.Tabs.Count).Location = userURL
  88. Unload goForm
  89. End Sub
  90. Private Sub Command2_Click()
  91. openHTML.ShowOpen
  92. If openHTML.FileName <> "" Then webForm.WebBrowser(webForm.TabStrip1.Tabs.Count).Location = "file:///" & openHTML.FileName
  93. Unload goForm
  94. End Sub
  95. Private Sub Form_Load()
  96.     CenterForm Me
  97. End Sub
  98.