home *** CD-ROM | disk | FTP | other *** search
/ The Net: Ultimate Internet Guide / WWLCD1.ISO / pc / frntpage.sdk / utility / apitests / openweb.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-31  |  4.6 KB  |  155 lines
  1. VERSION 4.00
  2. Begin VB.Form frmOpenWeb 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Open Web"
  5.    ClientHeight    =   5490
  6.    ClientLeft      =   1890
  7.    ClientTop       =   2385
  8.    ClientWidth     =   5445
  9.    Height          =   5895
  10.    Left            =   1830
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5490
  15.    ScaleWidth      =   5445
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   2040
  18.    Width           =   5565
  19.    Begin VB.CommandButton btnOpen 
  20.       Caption         =   "Open Web"
  21.       Height          =   375
  22.       Left            =   240
  23.       TabIndex        =   9
  24.       Top             =   4920
  25.       Width           =   1215
  26.    End
  27.    Begin VB.TextBox txtUser 
  28.       Height          =   285
  29.       Left            =   240
  30.       TabIndex        =   8
  31.       Top             =   4200
  32.       Width           =   4935
  33.    End
  34.    Begin VB.TextBox txtWeb 
  35.       Height          =   285
  36.       Left            =   240
  37.       TabIndex        =   7
  38.       Top             =   3240
  39.       Width           =   4935
  40.    End
  41.    Begin VB.TextBox txtServer 
  42.       Height          =   285
  43.       Left            =   240
  44.       TabIndex        =   6
  45.       Top             =   2280
  46.       Width           =   4935
  47.    End
  48.    Begin VB.CommandButton btnPrompt 
  49.       Caption         =   "Prompt to Open Web"
  50.       Height          =   375
  51.       Left            =   1680
  52.       TabIndex        =   0
  53.       Top             =   1200
  54.       Width           =   2055
  55.    End
  56.    Begin VB.Label Label8 
  57.       Caption         =   "(the name of a FrontPage author or administrator for the web)"
  58.       Height          =   255
  59.       Left            =   240
  60.       TabIndex        =   12
  61.       Top             =   4560
  62.       Width           =   4935
  63.    End
  64.    Begin VB.Label Label7 
  65.       Caption         =   "(the name of the FrontPage web, or nothing for the Root Web)"
  66.       Height          =   255
  67.       Left            =   240
  68.       TabIndex        =   11
  69.       Top             =   3600
  70.       Width           =   4935
  71.    End
  72.    Begin VB.Label Label4 
  73.       Caption         =   "(the TCP/IP host name or address of the web server machine)"
  74.       Height          =   255
  75.       Left            =   240
  76.       TabIndex        =   10
  77.       Top             =   2640
  78.       Width           =   4935
  79.    End
  80.    Begin VB.Line Line2 
  81.       X1              =   240
  82.       X2              =   5160
  83.       Y1              =   1800
  84.       Y2              =   1800
  85.    End
  86.    Begin VB.Label Label3 
  87.       Caption         =   "User (optional):"
  88.       Height          =   255
  89.       Left            =   240
  90.       TabIndex        =   5
  91.       Top             =   3960
  92.       Width           =   1815
  93.    End
  94.    Begin VB.Label Label2 
  95.       Caption         =   "Web Name:"
  96.       Height          =   255
  97.       Left            =   240
  98.       TabIndex        =   4
  99.       Top             =   3000
  100.       Width           =   1815
  101.    End
  102.    Begin VB.Label Label1 
  103.       Caption         =   "Web Server:"
  104.       Height          =   255
  105.       Left            =   240
  106.       TabIndex        =   3
  107.       Top             =   2040
  108.       Width           =   1815
  109.    End
  110.    Begin VB.Line Line1 
  111.       X1              =   240
  112.       X2              =   5160
  113.       Y1              =   960
  114.       Y2              =   960
  115.    End
  116.    Begin VB.Label Label5 
  117.       Caption         =   "This form uses the following FrontPage Explorer methods:"
  118.       Height          =   255
  119.       Left            =   240
  120.       TabIndex        =   2
  121.       Top             =   120
  122.       Width           =   4935
  123.    End
  124.    Begin VB.Label Label6 
  125.       Alignment       =   2  'Center
  126.       Caption         =   "vtiPromptOpenWeb, vtiOpenWeb"
  127.       Height          =   255
  128.       Left            =   240
  129.       TabIndex        =   1
  130.       Top             =   480
  131.       Width           =   4935
  132.       WordWrap        =   -1  'True
  133.    End
  134. Attribute VB_Name = "frmOpenWeb"
  135. Attribute VB_Creatable = False
  136. Attribute VB_Exposed = False
  137. Option Explicit
  138. Private Sub btnOpen_Click()
  139.     MousePointer = 11
  140.     Dim webber As Object
  141.     Dim ret As Integer
  142.     Set webber = CreateObject("FrontPage.Explorer.1.1")
  143.     ret = webber.vtiOpenWeb(txtServer, txtWeb, txtUser)
  144.     Set webber = Nothing
  145.     MousePointer = 0
  146. End Sub
  147. Private Sub btnPrompt_Click()
  148.     MousePointer = 11
  149.     Dim webber As Object
  150.     Set webber = CreateObject("FrontPage.Explorer.1.1")
  151.     webber.vtiPromptOpenWeb
  152.     Set webber = Nothing
  153.     MousePointer = 0
  154. End Sub
  155.