Este código aun esta en prueba pero realmente funciona, lo programe porque necesitaba que el ancho del botón se ajustara a medida que yo escribiera en un TextBox. Si alguien desea aportar y modificar el código le ruego me envíe una demostración para luego publicarla a su nombre.
Cree un formulario y agréguele un botón y un TextBox.En el Evento InteractiveChange del TextBox programe lo siguiente:
cNoCaracteres =
len(alltrim(thisform.text1.value)) * 5
Thisform.Command1.Width = cNoCaracteres + 70
Thisform.Command1.Width = cNoCaracteres + 60
Thisform.Command1.Caption = Alltrim(Thisform.Text1.Value)
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
