Encriptado
Form
Private Sub Command1_Click()
UserControl11.desencrip
End Sub
Private Sub Command2_Click()
UserControl11.LIMPIAR
End Sub
User Control
Public vvalor As Integer
Public Function LIMPIAR()
Text1.Text = ""
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Then
KeyAscii = KeyAscii + valorcorrido
Else
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
Private Sub UserControl_Initialize()
Call UserControl_Resize
End Sub
Private Sub UserControl_Resize()
Text1.Top = 0
Text1.Left = 0
Text1.Height = UserControl.Height
Text1.Width = UserControl.Width
End Sub
Property Let valorcorrido(xxx As Integer)
vvalor = xxx
PropertyChanged valorcorrido
End Property
Property Get valorcorrido() As Integer
valorcorrido = vvalor
End Property
Public Function desencrip() '(texto As String)
For i = 1 To Len(Text1.Text)
letra = Mid(Text1.Text, i, 1)
codigo = Asc(letra) - valorcorrido
nuevotext = nuevotext & Chr(codigo)
Next i
Text1.Text = nuevotext
End Function
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
vvalor = PropBag.ReadProperty("valorcorrido", 0)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("valorcorrido", vvalor, 0)
End Sub