https://foro.gambas-es.org/viewtopic.php?f=5&t=3923&p=22129#p22129
-----------------------------------
v3ctor
Sabado, 21 Junio 2014, 23:50

Esta Función Esta Correcta?
-----------------------------------
estoy intentando hacer una función de forma que en todos los textbox me escriba en mayúsculas esta función esta bien planteada o no?

[code linenumbers=false syntax=gambas]
' 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[/code]


