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 / frmEncPic.frm < prev    next >
Text File  |  2005-06-28  |  2KB  |  66 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmEncPic 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   " Save data to 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 VB.CommandButton cmdCancel 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "&Cancel"
  24.       Height          =   375
  25.       Left            =   3240
  26.       TabIndex        =   2
  27.       Top             =   960
  28.       Width           =   1215
  29.    End
  30.    Begin MSComctlLib.ProgressBar ProgressBar1 
  31.       Height          =   255
  32.       Left            =   120
  33.       TabIndex        =   1
  34.       Top             =   600
  35.       Width           =   4335
  36.       _ExtentX        =   7646
  37.       _ExtentY        =   450
  38.       _Version        =   393216
  39.       Appearance      =   1
  40.       Scrolling       =   1
  41.    End
  42.    Begin VB.Label lblComment 
  43.       Caption         =   " Merging encrypted data and image..."
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   0
  47.       Top             =   240
  48.       Width           =   4335
  49.    End
  50. End
  51. Attribute VB_Name = "frmEncPic"
  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. Me.Refresh
  62. Me.lblComment.Caption = "Saving data in " & CutFilePath(gstrImageFile)
  63. Call SaveDataPicture
  64. Me.Hide
  65. End Sub
  66.