home *** CD-ROM | disk | FTP | other *** search
/ NetComm Communications 5 / NetComm.iso / resource / netcomm / wcomm / disk2 / frmlock.fr_ / frmlock.bin (.txt)
Encoding:
Visual Basic Form  |  1994-10-24  |  2.9 KB  |  89 lines
  1. VERSION 2.00
  2. Begin Form frmLock 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Lock Password List"
  5.    ControlBox      =   0   'False
  6.    Height          =   3105
  7.    HelpContextID   =   56331
  8.    Left            =   1815
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2700
  13.    ScaleWidth      =   5985
  14.    Top             =   1980
  15.    Width           =   6105
  16.    Begin CommandButton btnHelp 
  17.       Caption         =   "&Help"
  18.       Height          =   375
  19.       Left            =   4680
  20.       TabIndex        =   3
  21.       Top             =   2160
  22.       Width           =   1215
  23.    End
  24.    Begin TextBox txtLockWord 
  25.       Height          =   285
  26.       Left            =   1920
  27.       PasswordChar    =   "*"
  28.       TabIndex        =   0
  29.       Top             =   1680
  30.       Width           =   3975
  31.    End
  32.    Begin CommandButton btnCancel 
  33.       Cancel          =   -1  'True
  34.       Caption         =   "Cancel"
  35.       Height          =   375
  36.       Left            =   1680
  37.       TabIndex        =   2
  38.       Top             =   2160
  39.       Width           =   1215
  40.    End
  41.    Begin CommandButton btnOK 
  42.       Caption         =   "OK"
  43.       Default         =   -1  'True
  44.       Height          =   375
  45.       Left            =   240
  46.       TabIndex        =   1
  47.       Top             =   2160
  48.       Width           =   1215
  49.    End
  50.    Begin Label Label1 
  51.       Caption         =   "&Master password:"
  52.       Height          =   255
  53.       Left            =   240
  54.       TabIndex        =   4
  55.       Top             =   1680
  56.       Width           =   1575
  57.    End
  58.    Begin Label lblLock 
  59.       Caption         =   "Enter a Master Password below to LOCK the password list.  Locking the password list prevents others from adding or making changes to the list.  After locking the  list, you will be asked for the Master Password each time you select the Password button from the Host Monitor.  Only by supplying the password entered below will you be able to make changes to the password list."
  60.       Height          =   1215
  61.       Left            =   240
  62.       TabIndex        =   5
  63.       Top             =   240
  64.       Width           =   5535
  65.       WordWrap        =   -1  'True
  66.    End
  67. ' The follwoing declarations are used for version control reasons only
  68. ' and are not used within the application
  69. ' "$Revision:   1.7  $"
  70. ' "$Date:   12 Apr 1993 16:52:26  $"
  71. Option Explicit
  72. Sub btnCancel_Click ()
  73.     Unload frmLock
  74. End Sub
  75. Sub btnHelp_Click ()
  76.     Help
  77. End Sub
  78. Sub btnOK_Click ()
  79.     If Len(txtLockWord.Text) = 0 Then
  80.         sLockWord = ""
  81.         frmManage.btnLockList.Caption = "Lock List..."
  82.     Else
  83.         sLockWord = txtLockWord.Text
  84.         frmManage.btnLockList.Caption = "Unlock List..."
  85.     End If
  86.     StoreHostSettings
  87.     Unload frmLock
  88. End Sub
  89.