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