Scribd
Upload
6 views5 pages

Version 2

The document describes a visual basic form with labels, text boxes and a command button to encrypt text. The form contains fields for input text, encrypted text and labels. It uses an object called CifrarPolar to encrypt the input text on button click and display it.

Uploaded by

「GDL」REVAN
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
6 views5 pages

Version 2

The document describes a visual basic form with labels, text boxes and a command button to encrypt text. The form contains fields for input text, encrypted text and labels. It uses an object called CifrarPolar to encrypt the input text on button click and display it.

Uploaded by

「GDL」REVAN
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 5

VERSION 5.

00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3630

ClientLeft = 60

ClientTop = 405

ClientWidth = 4050

LinkTopic = "Form1"

ScaleHeight = 3630

ScaleWidth = 4050

StartUpPosition = 3 'Windows Default

Begin VB.CommandButton Boton

BackColor = &H80000007&

Caption = "Cifrar"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 735

Left = 720

TabIndex = 1

Top = 2400

Width = 2415

End
Begin VB.TextBox Texto1

Alignment = 2 'Center

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 480

TabIndex = 0

Top = 600

Width = 3015

End

Begin VB.Label Texto2

Alignment = 2 'Center

BackColor = &H00FFC0C0&

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty
Height = 615

Left = 480

TabIndex = 4

Top = 1560

Width = 3015

End

Begin VB.Label Label2

Alignment = 2 'Center

Caption = "Texto Cifrado"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 600

TabIndex = 3

Top = 1200

Width = 2775

End

Begin VB.Label Label1

Alignment = 2 'Center

Caption = "Texto a Cifrar"

BeginProperty Font

Name = "MS Sans Serif"


Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 480

TabIndex = 2

Top = 120

Width = 2895

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim Objeto_CifrarPolar As New CifrarPolar

Private Sub Boton_Click()

Texto2.Caption = Objeto_CifrarPolar.CifrarPolar(Texto1.Text)

End Sub

Private Sub Form_Load()

Me.Caption = "Cifrador Cenit-Polar"

End Sub
Private Sub Text1_Change()

End Sub

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy