' gambas class file
Public A_Mayusculas As String
Public Sub Form_Open()
End
Public Sub TextBox1_Change()
Convertir_a_mayusculas(TextBox1.Text, TextBox1)
TextBox1.Text = A_Mayusculas
End
Public Function Convertir_a_mayusculas(texto As String, txt As TextBox) As String
A_Mayusculas = String.UCase$(texto)
Return txt.Text = A_Mayusculas
End
Public Sub TextBox2_Change()
Convertir_a_mayusculas(TextBox2.Text, TextBox2)
TextBox2.Text = A_Mayusculas
End
Public A_Mayusculas As String
Public Sub Form_Open()
End
Public Sub TextBox1_Change()
Convertir_a_mayusculas(TextBox1.Text, TextBox1)
TextBox1.Text = A_Mayusculas
End
Public Function Convertir_a_mayusculas(texto As String, txt As TextBox) As String
A_Mayusculas = String.UCase$(texto)
Return txt.Text = A_Mayusculas
End
Public Sub TextBox2_Change()
Convertir_a_mayusculas(TextBox2.Text, TextBox2)
TextBox2.Text = A_Mayusculas
End