RICH TEXTBOX
Olá Pessoa !
Como faço para justificar um texto com o RichTextbox ? E tenho uma função que até justifica, porém obedece somente a margem esquerda e fica um espaçamento ruim à direita. Algumas linhas, dependendo da palavra, fica bem distribuÃda. Gostaria que o texto ficasse todo bem distribuÃdo igual ao efeito do texto justificado do word.
Alguém tem alguma sugestão ? Vou postar o código que estou usando:
Private Sub bt_Justificar_Click()
With rtbAval
.SelStart = 1
.SelLength = Len(rtbAval.Text)
.SelIndent = 1440
.SelRightIndent = 1440
End With
End Sub
Desde já agradeço.
Como faço para justificar um texto com o RichTextbox ? E tenho uma função que até justifica, porém obedece somente a margem esquerda e fica um espaçamento ruim à direita. Algumas linhas, dependendo da palavra, fica bem distribuÃda. Gostaria que o texto ficasse todo bem distribuÃdo igual ao efeito do texto justificado do word.
Alguém tem alguma sugestão ? Vou postar o código que estou usando:
Private Sub bt_Justificar_Click()
With rtbAval
.SelStart = 1
.SelLength = Len(rtbAval.Text)
.SelIndent = 1440
.SelRightIndent = 1440
End With
End Sub
Desde já agradeço.
http://www.canalvisualbasic.net/foro/texto-y-fuentes-de-caracteres/justificar-un-rifhtextbox-174/
do fundo do baú ....... em anexo, qualquer problema, poste ...
WOLFFIRE, obrigadão companheiro.
O probleminha que estou tenho é que quando eu atualizo na base de dados, ele não se mantem.
O que poderia ser ?
O probleminha que estou tenho é que quando eu atualizo na base de dados, ele não se mantem.
O que poderia ser ?
que base de dados é essa?
Eu salvo o texto em uma tabela em um banco de dados e quando consulto, ela me retorna sem a justificação.
por padrão o richtextbox tem somente alinhamento esquerto, centro e direito.
Para contornar isso vai ter que chamar a função novamente, ok.
Para contornar isso vai ter que chamar a função novamente, ok.
eu so esqueci de destroir o objeto:
m_RTB_Text.FileName = App.Path & [Ô]tb.rtf[Ô]
Dim RTB As New cRTB
Dim Align As Boolean
Align = RTB.AlignJustify(m_RTB_Text)
[txt-color=#e80000]Set RTB = Nothing[/txt-color]
m_RTB_Text.FileName = App.Path & [Ô]tb.rtf[Ô]
Dim RTB As New cRTB
Dim Align As Boolean
Align = RTB.AlignJustify(m_RTB_Text)
[txt-color=#e80000]Set RTB = Nothing[/txt-color]
Foi bom dar errado, pois eu desenvolvi um ocx pra edição de texto e esqueci de replicar a propriedade Justify ao carregar o texto.
Ok Fera ! Resolvido.
é aquilo que você disse mesmo. No momento que consulto o texto já vem justificado.
No meu caso eu não crio um arquivo .rtf e sim gravo em uma campo long da tabela. Seu exemplo é perfeito. Aprendà mais um pouquinho hoje. Ôh benção !!!
Obrigado meu irmão. O Senhor te abençoe.
é aquilo que você disse mesmo. No momento que consulto o texto já vem justificado.
No meu caso eu não crio um arquivo .rtf e sim gravo em uma campo long da tabela. Seu exemplo é perfeito. Aprendà mais um pouquinho hoje. Ôh benção !!!
Obrigado meu irmão. O Senhor te abençoe.
só completando não me lembro direito, mas faça ai um teste escreva um texto e nele coloque algumas barras invertidas [ô] \ [ô], salve e abra este arquivo
Tópico encerrado , respostas não são mais permitidas