https://foro.gambas-es.org/viewtopic.php?f=5&t=3923&p=22153#p22153 ----------------------------------- codificador Lunes, 23 Junio 2014, 06:33 Re: Esta Función Esta Correcta? ----------------------------------- [quote user="didier18" post="22138"]Hola amigos Lo he hecho así. Public Sub TextBox1_Change() 'cuando el valor cambia TextBox1.Text = UCase$(TextBox1.Text) 'tan pronto como se presiona una tecla en los cambios en el CAPS end lo variable del sistema de carga no se utiliza ...[/quote] nooo que tiene que ver el titulo con esta pregunta una solucion para evitar reescribir codigo es es crear tu propio texbox con una nueva propiedad [b]charcater casing[/b] con tres opciones [list][b]normal[/b] no hace nada es la opcion por default [b]upper[/b] todo a mayusculas [b]lower[/b] todo a minusculas [/list] cualquier parecido con otro lenguaje es solo coincidencia y no no es necesario crear nuevos componente se puede hacer todo en el mismo proyecto que estas usando en un archivo con un archivo de clases solo dale un nombre no usado y aparece en el sector de los componente mas o menos asi este codigo lo semi-copie del foro tenia uno bien hecho y lo perdi asi que no estoy seguro que funcione pero la idea es la idea [code linenumbers=false syntax=gambas] Inherits TextBox Export Public Sub _new() ' INICIAMOS LAS VARIABLES Dim hObs As Observer hObs = New Observer(Me) As "TextBox" ' declara una nueva clase observer llamada TextBox End Sub 'falta el codigo para la nueva propiedad Public Sub TextBox_Change() ' Aqui interceptamos el evento keypress del textbox 'codigo End Select End [/code] y si alguien logra meter el codigo directo en el gambas seria buena idea como para enviarla al codigo oficial