Raphael
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 05/09/2005 14:45 hs
Pessoal, geralmente utilizo o RichTextBox pra fazer alguns relatórios rápidos, mas agora eu preciso fazer ele aparecer algumas palavras em negrito... alguém tem alguma dica ai pra mim? Valeu! Raphael |
|
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/09/2005 08:28 hs
Primeiro: Registre-se, é grátis! Segundo: Faça a seleção do texto usando as propriedades SelStart e SelLength. Depois use a propriedade SelBold para deixar o texto selecionado com SelStart - Sellength. |
|
|
|
Raphael
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/09/2005 08:43 hs
Opa... fala Kerplunk.... eu já tinha cadastro... só não lembrava :( Valeu pela dica, vou tentar aqui... qq coisa eu retorno.. Raphael |
|
|
|
Raphael
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/09/2005 11:05 hs
Cara, fiz como vc falou... funciona belezinha... soh que quando chego na ultima linha ali ele bota tudo em negrito novamente... vc sabe pq? <code> R.Text = R.Text & CadCli("NomeCLI")
R.SelStart = Len(R.Text) - Len(CadCli("NomeCLI"))
R.SelLength = Len(CadCli("NomeCLI")) + 1
R.SelBold = True
R.Text = R.Text & vbNewLine
R.SelStart = Len(R.Text)
R.Text = R.Text & "Cidade: "
R.Text = R.Text & CadCli("CidaCli")
R.SelStart = Len(R.Text) - Len(CadCli("CidaCli"))
R.SelLength = Len(CadCli("CidaCli")) + 1
R.SelBold = False
R.Text = R.Text & "" ' Aqui ele bota tudo em negrido novamente! </code> Valeu! |
|
|
|
