Código: Seleccionar todo
Public Class Form1
Dim VectorLetras() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
Dim nC As Integer = 3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Letra, LetraAcentuada As Char
Dim x As Integer
Dim swCarEsMay, swLetraNoEncontrada As Boolean
For i = 1 To TextBox1.TextLength
If Char.IsLetter(GetChar(TextBox1.Text, i)) Then
Letra = GetChar(TextBox1.Text, i)
LetraAcentuada = Letra
If Char.IsLower(Letra) Then swCarEsMay = False Else swCarEsMay = True
Letra = LCase(Letra)
swLetraNoEncontrada = True
For x = 0 To 26
If Letra = VectorLetras(x) Then
x = (x + nC) Mod 27
Letra = CChar(VectorLetras(x))
If swCarEsMay Then Letra = UCase(Letra) Else Letra = LCase(Letra)
TextBox2.Text = TextBox2.Text + Letra
swLetraNoEncontrada = False
Exit For
End If
Next
If swLetraNoEncontrada Then TextBox2.Text = TextBox2.Text + LetraAcentuada
Else
TextBox2.Text = TextBox2.Text + GetChar(TextBox1.Text, i)
End If
Next
Clipboard.SetDataObject(TextBox2.Text)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim Cadena As String
Cadena = Clipboard.GetText
TextBox1.Text = Cadena
Button1.Focus()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Letra, LetraAcentuada As Char
Dim x, y As Integer
Dim swCarEsMay, swLetraNoEncontrada As Boolean
For i = 1 To TextBox1.TextLength
If Char.IsLetter(GetChar(TextBox1.Text, i)) Then
Letra = GetChar(TextBox1.Text, i)
LetraAcentuada = Letra
If Char.IsLower(Letra) Then swCarEsMay = False Else swCarEsMay = True
Letra = LCase(Letra)
swLetraNoEncontrada = True
For x = 0 To 26
If Letra = VectorLetras(x) Then
For y = 1 To nC
x -= 1
If x = -1 Then x = 26
Next
Letra = CChar(VectorLetras(x))
If swCarEsMay Then Letra = UCase(Letra) Else Letra = LCase(Letra)
TextBox2.Text = TextBox2.Text + Letra
swLetraNoEncontrada = False
Exit For
End If
Next
If swLetraNoEncontrada Then TextBox2.Text = TextBox2.Text + LetraAcentuada
Else
TextBox2.Text = TextBox2.Text + GetChar(TextBox1.Text, i)
End If
Next
Clipboard.SetDataObject(TextBox2.Text)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
End Sub
End Class
