home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / XPerimenta3231610312001.psc / frmConnect.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-11-01  |  4.1 KB  |  136 lines
  1. VERSION 5.00
  2. Begin VB.Form frmConnect 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Connect"
  5.    ClientHeight    =   2520
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   4680
  9.    BeginProperty Font 
  10.       Name            =   "Arial"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   2520
  22.    ScaleWidth      =   4680
  23.    ShowInTaskbar   =   0   'False
  24.    StartUpPosition =   2  'CenterScreen
  25.    Begin VB.CommandButton cmdCancel 
  26.       Caption         =   "&Cancel"
  27.       Height          =   375
  28.       Left            =   2520
  29.       TabIndex        =   2
  30.       Top             =   2040
  31.       Width           =   975
  32.    End
  33.    Begin VB.CommandButton cmdOK 
  34.       Caption         =   "&OK"
  35.       Height          =   375
  36.       Left            =   3600
  37.       TabIndex        =   1
  38.       Top             =   2040
  39.       Width           =   975
  40.    End
  41.    Begin VB.Frame fraConnectServer 
  42.       Caption         =   "Please Connect To A Server"
  43.       BeginProperty Font 
  44.          Name            =   "Arial"
  45.          Size            =   8.25
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   1815
  53.       Left            =   120
  54.       TabIndex        =   0
  55.       Top             =   120
  56.       Width           =   4455
  57.       Begin VB.TextBox txtPort 
  58.          Height          =   315
  59.          Left            =   3720
  60.          TabIndex        =   10
  61.          Top             =   360
  62.          Width           =   615
  63.       End
  64.       Begin VB.TextBox txtPassword 
  65.          Height          =   315
  66.          IMEMode         =   3  'DISABLE
  67.          Left            =   960
  68.          PasswordChar    =   "*"
  69.          TabIndex        =   8
  70.          Top             =   1320
  71.          Width           =   3375
  72.       End
  73.       Begin VB.TextBox txtUsername 
  74.          Height          =   315
  75.          Left            =   960
  76.          TabIndex        =   6
  77.          Top             =   840
  78.          Width           =   3375
  79.       End
  80.       Begin VB.TextBox txtURL 
  81.          Height          =   315
  82.          Left            =   720
  83.          TabIndex        =   4
  84.          Top             =   360
  85.          Width           =   2535
  86.       End
  87.       Begin VB.Label lblPort 
  88.          Caption         =   "Port:"
  89.          Height          =   375
  90.          Left            =   3360
  91.          TabIndex        =   9
  92.          Top             =   360
  93.          Width           =   375
  94.       End
  95.       Begin VB.Label lblPassword 
  96.          Caption         =   "Password:"
  97.          Height          =   375
  98.          Left            =   120
  99.          TabIndex        =   7
  100.          Top             =   1320
  101.          Width           =   975
  102.       End
  103.       Begin VB.Label lblUsername 
  104.          Caption         =   "Username:"
  105.          Height          =   375
  106.          Left            =   120
  107.          TabIndex        =   5
  108.          Top             =   840
  109.          Width           =   975
  110.       End
  111.       Begin VB.Label lblURL 
  112.          Caption         =   "URL:"
  113.          Height          =   375
  114.          Left            =   120
  115.          TabIndex        =   3
  116.          Top             =   360
  117.          Width           =   495
  118.       End
  119.    End
  120. Attribute VB_Name = "frmConnect"
  121. Attribute VB_GlobalNameSpace = False
  122. Attribute VB_Creatable = False
  123. Attribute VB_PredeclaredId = True
  124. Attribute VB_Exposed = False
  125. Private Sub cmdCancel_Click()
  126.     strDownURL = ""
  127.     frmConnect.Hide
  128.     End Sub
  129. Public Sub cmdOK_Click()
  130.     strDownURL = txtURL.Text
  131.     strDownUsername = txtUsername.Text
  132.     strDownPassword = txtPassword.Text
  133.     strDownConnectPort = txtPort.Text
  134.     frmConnect.Hide
  135. End Sub
  136.