home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / DBPWD.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-08  |  2.7 KB  |  99 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDBPWD 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Password Required"
  5.    ClientHeight    =   1260
  6.    ClientLeft      =   2550
  7.    ClientTop       =   3330
  8.    ClientWidth     =   2820
  9.    BeginProperty Font 
  10.       Name            =   "
  11.       Size            =   9
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    HelpContextID   =   2016133
  19.    Icon            =   "DBPwd.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    ScaleHeight     =   1260
  23.    ScaleWidth      =   2820
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   2  'CenterScreen
  26.    Begin VB.CommandButton cmdCancel 
  27.       Cancel          =   -1  'True
  28.       Caption         =   "
  29. (&C)"
  30.       Height          =   375
  31.       Left            =   1440
  32.       MaskColor       =   &H00000000&
  33.       TabIndex        =   3
  34.       Top             =   795
  35.       Width           =   1215
  36.    End
  37.    Begin VB.CommandButton cmdOK 
  38.       Caption         =   "
  39. (&O)"
  40.       Default         =   -1  'True
  41.       Height          =   375
  42.       Left            =   120
  43.       MaskColor       =   &H00000000&
  44.       TabIndex        =   2
  45.       Top             =   795
  46.       Width           =   1215
  47.    End
  48.    Begin VB.TextBox txtPassword 
  49.       Height          =   285
  50.       Left            =   120
  51.       PasswordChar    =   "*"
  52.       TabIndex        =   1
  53.       Top             =   315
  54.       Width           =   2535
  55.    End
  56.    Begin VB.Label lblLabels 
  57.       AutoSize        =   -1  'True
  58.       Caption         =   "
  59.       Height          =   195
  60.       Index           =   0
  61.       Left            =   120
  62.       TabIndex        =   0
  63.       Top             =   75
  64.       Width           =   1905
  65.    End
  66. Attribute VB_Name = "frmDBPWD"
  67. Attribute VB_GlobalNameSpace = False
  68. Attribute VB_Creatable = False
  69. Attribute VB_PredeclaredId = True
  70. Attribute VB_Exposed = False
  71. Option Explicit
  72. '>>>>>>>>>>>>>>>>>>>>>>>>
  73. Const FORMCAPTION = "
  74. Const BUTTON1 = "
  75. (&O)"
  76. Const BUTTON2 = "
  77. (&C)"
  78. Const Label1 = "
  79. '>>>>>>>>>>>>>>>>>>>>>>>>
  80. Public PWD As String
  81. Private Sub cmdCancel_Click()
  82.   PWD = vbNullString
  83.   Hide
  84. End Sub
  85. Private Sub Form_Load()
  86.   Me.Caption = FORMCAPTION
  87.   cmdOK.Caption = BUTTON1
  88.   cmdCancel.Caption = BUTTON2
  89.   lblLabels(0).Caption = Label1
  90. End Sub
  91. Private Sub cmdOK_Click()
  92.   PWD = txtPassword.Text
  93.   Hide
  94. End Sub
  95. Private Sub txtPassword_GotFocus()
  96.   txtPassword.SelStart = 0
  97.   txtPassword.SelLength = Len(txtPassword.Text)
  98. End Sub
  99.