home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / INTERNET / VARIE / TEKTEL / SRC.ZIP / DLGOPEN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-29  |  2.9 KB  |  99 lines
  1. VERSION 2.00
  2. Begin Form dlgOpen 
  3.    Caption         =   "Open Telnet connection"
  4.    ClientHeight    =   2160
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4560
  8.    Height          =   2565
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2160
  12.    ScaleWidth      =   4560
  13.    Top             =   1140
  14.    Width           =   4680
  15.    Begin SSPanel Panel3D1 
  16.       BackColor       =   &H00C0C0C0&
  17.       BevelInner      =   1  'Inset
  18.       Font3D          =   0  'None
  19.       Height          =   2175
  20.       Left            =   0
  21.       TabIndex        =   1
  22.       Top             =   0
  23.       Width           =   4575
  24.       Begin CommandButton Command1 
  25.          Caption         =   "VAX"
  26.          Height          =   255
  27.          Left            =   2760
  28.          TabIndex        =   7
  29.          Top             =   840
  30.          Visible         =   0   'False
  31.          Width           =   495
  32.       End
  33.       Begin CommandButton butCancel 
  34.          Caption         =   "&Cancel"
  35.          Height          =   375
  36.          Left            =   2760
  37.          TabIndex        =   6
  38.          Top             =   1440
  39.          Width           =   1215
  40.       End
  41.       Begin CommandButton butOpen 
  42.          Caption         =   "&Open"
  43.          Default         =   -1  'True
  44.          Height          =   375
  45.          Left            =   600
  46.          TabIndex        =   5
  47.          Top             =   1440
  48.          Width           =   1215
  49.       End
  50.       Begin TextBox txtPort 
  51.          Height          =   285
  52.          Left            =   840
  53.          TabIndex        =   4
  54.          Text            =   "23"
  55.          Top             =   840
  56.          Width           =   735
  57.       End
  58.       Begin TextBox txtSite 
  59.          Height          =   285
  60.          Left            =   840
  61.          TabIndex        =   0
  62.          Top             =   360
  63.          Width           =   3495
  64.       End
  65.       Begin Label Label2 
  66.          Alignment       =   1  'Right Justify
  67.          BackStyle       =   0  'Transparent
  68.          Caption         =   "Port:"
  69.          Height          =   255
  70.          Left            =   240
  71.          TabIndex        =   3
  72.          Top             =   840
  73.          Width           =   495
  74.       End
  75.       Begin Label Label1 
  76.          Alignment       =   1  'Right Justify
  77.          BackStyle       =   0  'Transparent
  78.          Caption         =   "Site:"
  79.          Height          =   255
  80.          Left            =   240
  81.          TabIndex        =   2
  82.          Top             =   360
  83.          Width           =   495
  84.       End
  85.    End
  86. Option Explicit
  87. Sub butCancel_Click ()
  88.   Unload Me
  89. End Sub
  90. Sub butOpen_Click ()
  91.   frmMain!wskTelnet.IPName = txtSite.Text
  92.   frmMain!wskTelnet.Port = txtPort.Text
  93.   frmMain!wskTelnet.Open = True
  94.   Unload Me
  95. End Sub
  96. Sub Command1_Click ()
  97.   txtSite.Text = "cpcvax.uea.ac.uk"
  98. End Sub
  99.