home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Steganogra1945511132005.psc / frmKeyEnter.frm < prev    next >
Text File  |  2005-07-01  |  3KB  |  130 lines
  1. VERSION 5.00
  2. Begin VB.Form frmRead 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   " Read data from image..."
  6.    ClientHeight    =   1650
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4545
  10.    ControlBox      =   0   'False
  11.    HelpContextID   =   1
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1650
  16.    ScaleWidth      =   4545
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.CheckBox chkHide 
  20.       Caption         =   "&Hide Typing"
  21.       Height          =   225
  22.       Left            =   240
  23.       TabIndex        =   1
  24.       Top             =   960
  25.       Width           =   1500
  26.    End
  27.    Begin VB.CommandButton cmdCancel 
  28.       Cancel          =   -1  'True
  29.       Caption         =   "&Cancel"
  30.       Height          =   375
  31.       Left            =   3120
  32.       TabIndex        =   3
  33.       Top             =   1080
  34.       Width           =   1170
  35.    End
  36.    Begin VB.CommandButton cmdOK 
  37.       Caption         =   "&Read"
  38.       Height          =   375
  39.       Left            =   1800
  40.       TabIndex        =   2
  41.       Top             =   1080
  42.       Width           =   1170
  43.    End
  44.    Begin VB.TextBox txtCode 
  45.       BackColor       =   &H00FFFFFF&
  46.       ForeColor       =   &H00000000&
  47.       Height          =   285
  48.       Left            =   240
  49.       TabIndex        =   0
  50.       Top             =   480
  51.       Width           =   4050
  52.    End
  53.    Begin VB.Label lblCode 
  54.       Caption         =   "Passphraze"
  55.       Height          =   255
  56.       Left            =   240
  57.       TabIndex        =   4
  58.       Top             =   240
  59.       Width           =   4245
  60.    End
  61. End
  62. Attribute VB_Name = "frmRead"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67.  
  68. Private Sub Form_Activate()
  69. Me.chkHide.Value = 1
  70. Me.txtCode.PasswordChar = "*"
  71. gblnCancelKey = False
  72. If gstrActiveKey = "" Then
  73.     Me.txtCode.Text = ""
  74.     Me.txtCode.Text = ""
  75.     Me.txtCode.SetFocus
  76.     Else
  77.     Me.txtCode.Text = gstrActiveKey
  78.     Me.txtCode.Text = gstrActiveKey
  79.     If Me.cmdOK.Enabled = True Then
  80.         Me.cmdOK.SetFocus
  81.         Else
  82.         Me.txtCode.SetFocus
  83.     End If
  84. End If
  85. End Sub
  86.  
  87. Private Sub chkHide_Click()
  88. If Me.chkHide.Value = 1 Then
  89.     Me.txtCode.PasswordChar = "*"
  90.     Else
  91.     Me.txtCode.PasswordChar = ""
  92.     End If
  93. End Sub
  94.  
  95. Private Sub cmdOK_Click()
  96. If Me.txtCode.Text = "" Then Exit Sub
  97. gstrActiveKey = Me.txtCode.Text
  98. Me.Hide
  99. End Sub
  100.  
  101. Private Sub cmdCancel_Click()
  102. gblnCancelKey = True
  103. Me.Hide
  104. End Sub
  105.  
  106. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  107. Call RandomFeed(x, y)
  108. End Sub
  109.  
  110. Private Sub txtCode_Change()
  111. If Len(Me.txtCode.Text) > 0 Then
  112.     Me.cmdOK.Enabled = True
  113.     Else
  114.     Me.cmdOK.Enabled = False
  115.     End If
  116. End Sub
  117.  
  118. Private Sub txtCode_KeyPress(KeyAscii As Integer)
  119. If KeyAscii = 13 Then
  120.     KeyAscii = 0
  121.     If Me.txtCode <> "" And Me.cmdOK.Enabled = True Then cmdOK_Click
  122.     End If
  123. End Sub
  124.  
  125. Private Sub txtCode_GotFocus()
  126. Me.txtCode.SelStart = 0
  127. Me.txtCode.SelLength = Len(Me.txtCode.Text)
  128. End Sub
  129.  
  130.