DUVIDA COM FORMATACAO DE TEXTO

FROSTYNHO 04/04/2011 23:25:56
#370431
1ª - Tem como adicionar um texto qualquer em um TEXTBOX multiline e deixar algumas palavras em Negrito?
2ª - é possivel fazer o mesmo com alguns itens de uma LISTBOX?

des de ja vlw ai pessoal!
ASHKATCHUP 05/04/2011 00:46:47
#370438
Use o RichTextBox.
PEGUDO 05/04/2011 08:19:09
#370444 Resposta escolhida
[txt-size=6]Este foi o exemplo que eu te passei para selecionar o último item da ListBox[/txt-size]

[txt-color=#0000f0]Private Sub[/txt-color] Button1_Click([txt-color=#0000f0]ByVal[/txt-color] sender [txt-color=#0000f0]As[/txt-color] System.Object, [txt-color=#0000f0]ByVal[/txt-color] e [txt-color=#0000f0]As[/txt-color] System.EventArgs) [txt-color=#0000f0]Handles[/txt-color] Button1.Click
[txt-color=#007100][ô]#### início do código[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] UltimoItem [txt-color=#0000f0]As Integer[/txt-color] = ListBox1.Items.Count - 1

ListBox1.SetSelected(UltimoItem, True)
ListBox1.ClearSelected()

ListBox1.DrawMode = DrawMode.OwnerDrawFixed [txt-color=#007100][ô]ACRESENTE ESTA LINHA[/txt-color]
[txt-color=#007100][ô]#### FIM DO CÓDIGO[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]

[txt-size=6]AGORA ACRESCENTE ESTE EVENTO AO SEU CÓDIGO[/txt-size]
[txt-color=#0000f0]Private Sub[/txt-color] ListBox1_DrawItem([txt-color=#0000f0]ByVal[/txt-color] sender [txt-color=#0000f0]As[/txt-color] Object, [txt-color=#0000f0]ByVal[/txt-color] e [txt-color=#0000f0]As[/txt-color] System.Windows.Forms.DrawItemEventArgs) [txt-color=#0000f0]Handles[/txt-color] ListBox1.DrawItem
[txt-color=#0000f0]Select Case[/txt-color] e.Index
[txt-color=#0000f0]Case[/txt-color] 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26
e.DrawBackground()
e.Graphics.DrawString(ListBox1.Items.Item(e.Index).ToString, [txt-color=#0000f0]New[/txt-color] Font([txt-color=#e80000][Ô]Microsoft Sans Serif[Ô][/txt-color], 9, FontStyle.Bold), Brushes.Black, e.Bounds)
[txt-color=#0000f0]Case Else[/txt-color]
e.Graphics.DrawString(ListBox1.Items.Item(e.Index).ToString(), [txt-color=#0000f0]New[/txt-color] Font([txt-color=#e80000][Ô]Microsoft Sans Serif[Ô][/txt-color], 9, FontStyle.Regular), Brushes.Black, e.Bounds)
[txt-color=#0000f0]End Select
End Sub[/txt-color]

[txt-size=6]Repare que minha ListBox tem cumprimento fixo de 0 até 26, se a sua não tiver cumprimento fixo você terá de criar uma rotina para que o programa reconheça quantos itens você tem e colocar em negrito os que você quer[/txt-size]
FROSTYNHO 05/04/2011 19:06:01
#370512
sabem me dizer como deixar uma palavra do richtext em negrito? ou até mesmo mudar a cor da mesma? des de ja vlw por tudo ai pessoal!
TECLA 05/04/2011 20:06:39
#370515 
RichTextBox1.SelectionStart = RichTextBox1.Find([Ô]texto a ser formatado[Ô])
RichTextBox1.SelectionColor = Color.Black
FROSTYNHO 05/04/2011 20:23:55
#370520
KERPLUNK 06/04/2011 16:13:59
#370637
RichTextBox1.Text = [Ô]Algo algo, algo algo texto a ser formatado algo algo algo algo[Ô]
RichTextBox1.SelectionStart = RichTextBox1.Find([Ô]texto a ser formatado[Ô])
RichTextBox1.SelectionColor = Color.Black
FROSTYNHO 06/04/2011 16:22:41
#370638
dêem uma olhada, ele só pinta a primeira linha...
FROSTYNHO 06/04/2011 16:31:53
#370642
usem o seguinte login: krazybeat, 120625
PEGUDO 07/04/2011 09:20:45
#370719
Cara taí o programa funcionando
PEGUDO 07/04/2011 09:22:03
#370720
A área vermelha indica onde eu mexi no código
Retirei o [txt-color=#0000f0]& VbLf[/txt-color] do [txt-color=#0000f0]MENSAGEM = [Ô][[Ô] & NICKNAME & [Ô]] para [[Ô] & lstb_users.SelectedItem & [Ô]]: [Ô] & txtb_msg.Text[/txt-color] e do [txt-color=#0000f0]MENSAGEM = [Ô][[Ô] & NICKNAME & [Ô]] diz: [Ô] & txtb_msg.Text[/txt-color]
e coloquei um [txt-color=#0000f0]Chr(13)[/txt-color] no [txt-color=#0000f0]txtb_chat.AppendText(MENSAGEM)[/txt-color]

Teste aí e vê se te ajudou.
Tópico encerrado , respostas não são mais permitidas
Voltar