Ren@to
|
SÃO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/01/2009 21:04 hs
Galera, to precisando usar um textbox com multiline. só que preciso de no máximo permitido por linha de 32 caracteres. ou seja, o usário vai digitando o texto e alguma função verificando se chegou no máximo permitido 32, sendo assim, o mesmo teria uma quebra e iria para proxima linha, na qual ele só poderá digitar mais 32... e assim por diante. se alguém tiver algo pronto, agradeço. grato, Renatão.
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/01/2009 11:03 hs
Renato a propriedade multiline do text box, somente é ajustada em modo design. pra fazer o q vc quer é só digitar os 32 caracteres (em modo design, para pegar a largura q vai resultar) depois é só rodar
|
|
|
CSRocha
|
BRASILIA DF - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/01/2009 14:41 hs
Mas para se ter um tamanho fixo de caracteres baseado na largura do TextBox, deverá usar a fonte Courier nesse tbox, que tem todos os caracteres com tamanho fixo.
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/01/2009 14:55 hs
pode ainda usar o evento keypress do textbox para ir contando os caracteres
|
|
|
Treze
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 08/01/2009 08:25 hs
bom renato comecei um código pra você veja: Dim Retorno As Long Private Sub Form_Load() Retorno = 32 End Sub Private Sub Text1_Change() If Len(Text1.Text) > 32 Then Retorno = 34 End If If (Len(Text1.Text) Mod Retorno) = 0 Then Text1.Text = Text1.Text & vbCrLf Text1.SelStart = Len(Text1.Text) - 2 End If End Sub
Olha o código acima faz o seguinte quando chegar a 32 caracteres, ele muda para a próxima linha, o problema é o seguinte, se você for digitar direto sem ter de pressionar a tecla enter vai ser uma beleza, porém se digitar a tecla enter, ele perderá nestas linhas sua formatação ou seja na linha de baixo ele irá mudar com um numero de caracteres menor, depois o código se ajeita novamente, não quis ficar quebrandoa cabeça com isso, então tente corrigir este pequeno detalhe. ate' ps: Use a fonte Currier New, para um melhor aspecto
|
|
|
Ren@to
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 08/01/2009 10:16 hs
Olá Galera, agradeço a todos pela ajuda... consegui o que eu queria.... muito grato, abs, Renatão.
|
|
|