home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / VBINTRNT.ZIP / VBINTRNT.EXE / WEBFORM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-01  |  2.4 KB  |  76 lines
  1. VERSION 4.00
  2. Begin VB.Form webForm 
  3.    Caption         =   "World Wide Visual Basic Web"
  4.    ClientHeight    =   6945
  5.    ClientLeft      =   945
  6.    ClientTop       =   1635
  7.    ClientWidth     =   9420
  8.    ControlBox      =   0   'False
  9.    Height          =   7365
  10.    Left            =   885
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   6945
  15.    ScaleWidth      =   9420
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1275
  18.    Width           =   9540
  19.    Begin VB.CommandButton cmdCancel 
  20.       Caption         =   "Cancel"
  21.       Height          =   375
  22.       Left            =   8160
  23.       TabIndex        =   1
  24.       Top             =   120
  25.       Width           =   975
  26.    End
  27.    Begin SHDocVwCtl.WebBrowser webBrowser 
  28.       Height          =   5895
  29.       Index           =   1
  30.       Left            =   240
  31.       TabIndex        =   2
  32.       Top             =   840
  33.       Width           =   8895
  34.       Object.Height          =   393
  35.       Object.Width           =   593
  36.       AutoSize        =   0
  37.       ViewMode        =   1
  38.       AutoSizePercentage=   0
  39.       AutoArrange     =   -1  'True
  40.       NoClientEdge    =   -1  'True
  41.       AlignLeft       =   0   'False
  42.       Location        =   ""
  43.    End
  44.    Begin ComctlLib.TabStrip TabStrip1 
  45.       Height          =   390
  46.       Left            =   240
  47.       TabIndex        =   0
  48.       Top             =   480
  49.       Width           =   8895
  50.       _Version        =   65536
  51.       _ExtentX        =   15690
  52.       _ExtentY        =   688
  53.       _StockProps     =   68
  54.       ImageList       =   ""
  55.       i1              =   "webForm.frx":0000
  56.    End
  57. Attribute VB_Name = "webForm"
  58. Attribute VB_Creatable = False
  59. Attribute VB_Exposed = False
  60. Option Explicit
  61. Private Sub cmdCancel_Click()
  62.     webForm.Hide
  63. End Sub
  64. Private Sub Form_Load()
  65.     CenterForm Me
  66. End Sub
  67. Private Sub TabStrip1_Click()
  68. If TabStrip1.SelectedItem.Index <> TabStrip1.Tabs.Count Then
  69.     Debug.Print "Displaying page:" & TabStrip1.SelectedItem.Tag & "Tab #" & TabStrip1.SelectedItem.Index
  70.     WebBrowser(TabStrip1.SelectedItem.Index).ZOrder 0
  71.     goForm.Show
  72.     Debug.Print "Displaying page:" & TabStrip1.SelectedItem.Tag & "Tab #" & TabStrip1.SelectedItem.Index
  73.     WebBrowser(TabStrip1.SelectedItem.Index).ZOrder 0
  74. End If
  75. End Sub
  76.