home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 54 / IOPROG_54.ISO / soft / vbasic / setup1.exe / #setuppath# / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-11-26  |  3.2 KB  |  106 lines
  1. VERSION 5.00
  2. Object = "{9DFCCD4E-CE25-11D5-96B6-C0BBFEF90E16}#1.0#0"; "CRIPTER.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   5  'Sizable ToolWindow
  5.    Caption         =   "Esempio sull'utilizzo di Cripter"
  6.    ClientHeight    =   3735
  7.    ClientLeft      =   60
  8.    ClientTop       =   300
  9.    ClientWidth     =   6795
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3735
  14.    ScaleWidth      =   6795
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.CommandButton Command2 
  18.       Caption         =   "Decripta"
  19.       Height          =   255
  20.       Left            =   5400
  21.       TabIndex        =   7
  22.       Top             =   3240
  23.       Width           =   975
  24.    End
  25.    Begin VB.Frame Frame2 
  26.       Caption         =   "Frame2"
  27.       Height          =   1575
  28.       Left            =   120
  29.       TabIndex        =   4
  30.       Top             =   2040
  31.       Width           =   6615
  32.       Begin VB.TextBox Text4 
  33.          Height          =   375
  34.          Left            =   120
  35.          TabIndex        =   6
  36.          Top             =   720
  37.          Visible         =   0   'False
  38.          Width           =   6375
  39.       End
  40.       Begin VB.TextBox Text3 
  41.          Height          =   375
  42.          Left            =   120
  43.          TabIndex        =   5
  44.          Text            =   "Inserisci il testo da decriptare"
  45.          Top             =   240
  46.          Width           =   6375
  47.       End
  48.    End
  49.    Begin VB.Frame Frame1 
  50.       Caption         =   "Cripta testo"
  51.       Height          =   1815
  52.       Left            =   120
  53.       TabIndex        =   0
  54.       Top             =   120
  55.       Width           =   6615
  56.       Begin VB.CommandButton Command1 
  57.          Caption         =   "Cripta"
  58.          Height          =   255
  59.          Left            =   5040
  60.          TabIndex        =   3
  61.          Top             =   1440
  62.          Width           =   1095
  63.       End
  64.       Begin VB.TextBox Text2 
  65.          Height          =   495
  66.          Left            =   120
  67.          TabIndex        =   2
  68.          Top             =   840
  69.          Visible         =   0   'False
  70.          Width           =   6375
  71.       End
  72.       Begin VB.TextBox Text1 
  73.          Height          =   495
  74.          Left            =   120
  75.          TabIndex        =   1
  76.          Text            =   "Inserisci testo da criptare"
  77.          Top             =   240
  78.          Width           =   6375
  79.       End
  80.    End
  81.    Begin Cript.Cripter Cripter1 
  82.       Left            =   1800
  83.       Top             =   960
  84.       _ExtentX        =   3625
  85.       _ExtentY        =   1931
  86.    End
  87. Attribute VB_Name = "Form1"
  88. Attribute VB_GlobalNameSpace = False
  89. Attribute VB_Creatable = False
  90. Attribute VB_PredeclaredId = True
  91. Attribute VB_Exposed = False
  92. Private Sub Command1_Click()
  93. Text2.Text = Cripter1.codifica(Text1.Text)
  94. Text2.Visible = True
  95. End Sub
  96. Private Sub Command2_Click()
  97. Text4.Text = Cripter1.Decodifica(Text3.Text)
  98. Text4.Visible = True
  99. End Sub
  100. Private Sub Text1_Click()
  101. Text1.Text = ""
  102. End Sub
  103. Private Sub Text3_Click()
  104. Text3.Text = ""
  105. End Sub
  106.