https://foro.gambas-es.org/viewtopic.php?f=5&t=3923&p=22185#p22185
-----------------------------------
didier18
Martes, 24 Junio 2014, 16:02

Re: Esta Función Esta Correcta?
-----------------------------------
Hola amigos

Puede que haya encontrado la solución
Y la explicación ...

Aquí hay un código que funciona para mí.

Debe crear una hoja con
1 TextBox1
1 Label1
1 Botón para salir de nombre cmd_Quitter
1 botón para limpiar el nombre cmd_Effacer
1 Nombre del botón cmd_Calculer para calcular

Coloque el código siguiente en la hoja FMain.Class ...

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()
TextBox1.Text = ""                                  'que salga del cuadro de texto
Label1.Caption = ""                                 'borra la etiqueta
End
Public Sub cmd_Effacer_Click()                      'cuando alguno de vosotros al pulsar este botón
Label1.Caption = ""                                 'borra la etiqueta
TextBox1.Text = ""                                  'que salga del cuadro de texto
TextBox1.SetFocus                                   'ponemos el foco
End

Public Sub TextBox1_Change()                        'cuando el valor cambia
TextBox1.Text = UCase$(TextBox1.Text)               'al presionar una tecla en los cambios en CAPS
End

Public Sub cmd_calculer_Click()                     'Se utiliza para calcular el peso de una palabra
Dim i, j, count As Integer = 0
Dim LeMot, LeComm As String

j = Len(TextBox1.Text)                              'j contiene el número de cartas de TextBox1
If j < 2 Then                                       'si j es menos de 2 ...
i = Asc(TextBox1.Text)                              'i es el valor ASCII de la carta que figura en Cuadrodetexto1
Else                                                'de otra manera
  For count = j To 1 Step -1                          'contamos x ... 1 en pasos de -1
    i = i + Asc(TextBox1.Text, count)                   'el valor ASCII de todas las letras se cuentan
  Next
Endif
Label1.Caption = i                                  '(el peso de la palabra) se muestra el valor ASCII de las letras
TextBox1.SetFocus                                   'el foco está en TextBox1 contraseña para una nueva palabra ...
End

Public Sub cmd_Quitter_Click()
Me.Close
End

Y conseguir una calculadora de peso palabras.
Heuuu ... El peso en curso ASCII

Vamos a jugar ...

No entiendo por qué usted quiere poner una cadena en el evento de cambio de TextBox?

De hecho, el evento de cambio se produce antes de la cadena a traducir.

Nada impide establecer la secuencia de la secuencia después de entrar en el texto ...

Traté de comentar el código en español, puede no ser muy claro, pero es más fácil para que usted entienda ...

Buen día


