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 / frmDecPic.frm < prev    next >
Text File  |  2005-06-29  |  2KB  |  64 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmDecPic 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   " Read data from Image"
  7.    ClientHeight    =   1470
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   4605
  11.    ControlBox      =   0   'False
  12.    HelpContextID   =   1
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1470
  18.    ScaleWidth      =   4605
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   1  'CenterOwner
  21.    Begin MSComctlLib.ProgressBar ProgressBar1 
  22.       Height          =   255
  23.       Left            =   120
  24.       TabIndex        =   2
  25.       Top             =   600
  26.       Width           =   4335
  27.       _ExtentX        =   7646
  28.       _ExtentY        =   450
  29.       _Version        =   393216
  30.       Appearance      =   1
  31.       Scrolling       =   1
  32.    End
  33.    Begin VB.CommandButton cmdCancel 
  34.       Cancel          =   -1  'True
  35.       Caption         =   "&Cancel"
  36.       Height          =   375
  37.       Left            =   3240
  38.       TabIndex        =   0
  39.       Top             =   960
  40.       Width           =   1215
  41.    End
  42.    Begin VB.Label lblComment 
  43.       Caption         =   "Extracting data from the image..."
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   1
  47.       Top             =   240
  48.       Width           =   4335
  49.    End
  50. End
  51. Attribute VB_Name = "frmDecPic"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. Private Sub cmdCancel_Click()
  57. gblnCancelPic = True
  58. End Sub
  59.  
  60. Private Sub Form_Activate()
  61. Call LoadDataPicture(gstrImageFile)
  62. End Sub
  63.  
  64.