home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Folder_Loc2065985162007.psc / FolderLock / frmL.frm < prev    next >
Text File  |  2007-05-15  |  6KB  |  173 lines
  1. VERSION 5.00
  2. Begin VB.Form frmL 
  3.    BackColor       =   &H00E0E0E0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Lock Folder"
  6.    ClientHeight    =   1845
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3795
  10.    Icon            =   "frmL.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1845
  15.    ScaleWidth      =   3795
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.TextBox txtPW 
  18.       Alignment       =   2  'Center
  19.       Appearance      =   0  'Flat
  20.       BackColor       =   &H00E0E0E0&
  21.       BeginProperty Font 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   9.75
  24.          Charset         =   0
  25.          Weight          =   700
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       ForeColor       =   &H000040C0&
  31.       Height          =   375
  32.       IMEMode         =   3  'DISABLE
  33.       Left            =   1440
  34.       PasswordChar    =   "*"
  35.       TabIndex        =   1
  36.       ToolTipText     =   "Type Your PassWord"
  37.       Top             =   570
  38.       Width           =   2175
  39.    End
  40.    Begin VB.TextBox txtName 
  41.       Alignment       =   2  'Center
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H00E0E0E0&
  44.       BeginProperty Font 
  45.          Name            =   "MS Sans Serif"
  46.          Size            =   9.75
  47.          Charset         =   0
  48.          Weight          =   700
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       ForeColor       =   &H000040C0&
  54.       Height          =   375
  55.       Left            =   1440
  56.       TabIndex        =   0
  57.       ToolTipText     =   "Type your User Name"
  58.       Top             =   83
  59.       Width           =   2175
  60.    End
  61.    Begin VB.CommandButton cmdLock 
  62.       BackColor       =   &H00E0E0E0&
  63.       Caption         =   "Lock"
  64.       Enabled         =   0   'False
  65.       BeginProperty Font 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   12
  68.          Charset         =   0
  69.          Weight          =   700
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   375
  75.       Left            =   1320
  76.       MouseIcon       =   "frmL.frx":AB7A
  77.       MousePointer    =   99  'Custom
  78.       Style           =   1  'Graphical
  79.       TabIndex        =   2
  80.       ToolTipText     =   "Lock Folder"
  81.       Top             =   1080
  82.       Width           =   1095
  83.    End
  84.    Begin VB.Label lblInfo 
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "Do Not Forget This Name and PassWord."
  87.       BeginProperty Font 
  88.          Name            =   "Arial"
  89.          Size            =   9
  90.          Charset         =   178
  91.          Weight          =   700
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       ForeColor       =   &H000000C0&
  97.       Height          =   255
  98.       Left            =   120
  99.       TabIndex        =   5
  100.       Top             =   1560
  101.       Width           =   3495
  102.    End
  103.    Begin VB.Label lnlPW 
  104.       Alignment       =   1  'Right Justify
  105.       AutoSize        =   -1  'True
  106.       BackStyle       =   0  'Transparent
  107.       Caption         =   "PassWord"
  108.       BeginProperty Font 
  109.          Name            =   "MS Sans Serif"
  110.          Size            =   12
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       ForeColor       =   &H00400000&
  118.       Height          =   300
  119.       Left            =   105
  120.       TabIndex        =   4
  121.       Top             =   600
  122.       Width           =   1230
  123.    End
  124.    Begin VB.Label lblNm 
  125.       Alignment       =   1  'Right Justify
  126.       AutoSize        =   -1  'True
  127.       BackStyle       =   0  'Transparent
  128.       Caption         =   "Name"
  129.       BeginProperty Font 
  130.          Name            =   "MS Sans Serif"
  131.          Size            =   12
  132.          Charset         =   0
  133.          Weight          =   700
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       ForeColor       =   &H00400000&
  139.       Height          =   300
  140.       Left            =   510
  141.       TabIndex        =   3
  142.       Top             =   120
  143.       Width           =   705
  144.    End
  145. End
  146. Attribute VB_Name = "frmL"
  147. Attribute VB_GlobalNameSpace = False
  148. Attribute VB_Creatable = False
  149. Attribute VB_PredeclaredId = True
  150. Attribute VB_Exposed = False
  151. Private Sub cmdLock_Click()
  152. If MsgBox("Do you really want to Lock the folder ?", vbYesNo, "Lock ??") = vbYes Then
  153. frmMain.Nm = txtName.Text
  154. frmMain.Pw = txtPW.Text
  155. Unload Me
  156. Else
  157. txtName.Text = ""
  158. txtPW.Text = ""
  159. txtName.SetFocus
  160. End If
  161. End Sub
  162. Private Sub txtName_Change()
  163. cmdLock.Enabled = CBool(Len(txtName.Text)) And CBool(Len(txtPW.Text))
  164. End Sub
  165. Private Sub txtPW_Change()
  166. Call txtName_Change
  167. End Sub
  168. Private Sub txtPW_KeyPress(KeyAscii As Integer)
  169. If txtName.Text <> "" And txtPW.Text <> "" And KeyAscii = 13 Then
  170. Call cmdLock_Click
  171. End If
  172. End Sub
  173.