TEXT BOX REDUZIR FONTE ATUOMATICO

USUARIO.EXCLUIDOS 21/03/2004 13:51:30
#16354
Ai Pessoal,

Tenho um text box com a fonte do tamanho X , e preciso que quando o valor não caber mais na text box o programa reduzir o FontSize automaticamente para o usuario continuar no mesmo text box vendo que digitou.

Ai deu para enter?

Valew
CAJU 21/03/2004 14:25:20
#16356 Resposta escolhida
uma idéia:

Private Sub T_Change()
Picture1.Cls
Picture1.FontSize = T.FontSize
Picture1.Print T.Text

If Picture1.TextWidth(T.Text) MAIOR T.Width - Picture1.TextHeight("0") Then
T.FontSize = T.FontSize - 1
Picture1.FontSize = T.FontSize
T.Refresh
End If
End Sub

vc coloca um picture somente para auxilio.
eu testei com a fotne arial....
Tópico encerrado , respostas não são mais permitidas
Voltar