DUVIDA NEGRITAR RICH TEXT BOX

PI321 04/11/2011 13:30:14
#388465
bom dia a todos ... pessoal uma nova duvida .. o que esta acontecendo é o seguinte.

Eu tenho uma RichText. - quando vou alterar este texto eu criei um botao onde abre um form para eu editar o texto . ! negrito italico etc.

Essas alterações q eu faço nesse form quando eu clico no botao concluir .. ele nao passa essas alterações para o text original.! alguem ssabe me dizer o pq ?
ALTAIR148 04/11/2011 13:35:11
#388466 Resposta escolhida
Boa tarde,

Não sei ao certo, mas creio que a formatação só vai ser ali durante a edição.
PI321 04/11/2011 13:47:41
#388468
será ? eu acho q deve ter uma forma de eu clicar no concluir e ele transportar aquela mesma formataçao pra outra text. mais enfim ainda agurado uma resposta

grato
ALTAIR148 04/11/2011 14:08:14
#388469
Amigo vê se é isso mesmo
MAXCIM 04/11/2011 14:12:02
#388471
aqui estão as funçoes que uso para formatar fonte no richtextbox... espero que ajude

Public Sub ChangeFont()
Dim dlgFont As New FontDialog
dlgFont.Font = txtdisplay.SelectionFont
If dlgFont.ShowDialog() = DialogResult.OK Then
txtdisplay.SelectionFont = dlgFont.Font
End If
End Sub
Public Sub changeFont_Color()
Dim cd As New ColorDialog
If cd.ShowDialog() = DialogResult.OK Then
txtdisplay.SelectionColor = cd.Color
End If
End Sub
Public Sub changeFont_Bold()

Dim nome_fonte As String
Dim tamanho_fonte As Single
Dim negrito As Boolean
[ô] nome_fonte = txtdisplay.Font.Name
nome_fonte = txtdisplay.SelectionFont.Name
[ô] tamanho_fonte = txtdisplay.Font.Size
tamanho_fonte = txtdisplay.SelectionFont.Size
[ô] negrito = txtdisplay.Font.Bold
negrito = txtdisplay.SelectionFont.Bold

If negrito = False Then
txtdisplay.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Bold)
Else
txtdisplay.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Regular)
End If
End Sub
Private Sub changeFont_Italico()
Dim nome_fonte As String
Dim tamanho_fonte As Single
Dim italico As Boolean

[ô]nome_fonte = txtdisplay.Font.Name
nome_fonte = txtdisplay.SelectionFont.Name
[ô]tamanho_fonte = txtdisplay.Font.Size
tamanho_fonte = txtdisplay.SelectionFont.Size
italico = txtdisplay.Font.Italic
italico = txtdisplay.SelectionFont.Italic


If italico = False Then
txtdisplay.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Italic)
Else
txtdisplay.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Italic)
End If

End Sub
Private Sub changeFont_Sublinhar()
Dim nome_fonte As String
Dim tamanho_fonte As Single
Dim sublinha As Boolean

nome_fonte = txtdisplay.SelectionFont.Name
tamanho_fonte = txtdisplay.SelectionFont.Size
sublinha = txtdisplay.SelectionFont.Underline

If sublinha = False Then
txtdisplay.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Underline)
Else
txtdisplay.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Underline)
End If
End Sub
Sub undo()
If txtdisplay.CanUndo = True Then
txtdisplay.Undo()
End If
End Sub
Sub Redo()
txtdisplay.Redo()
End Sub
PI321 04/11/2011 14:15:18
#388473
creio q sim no exemplo passado ele passa as letras coloridas .. desde ja obrigado altair..

vou testar e volto a informa-los obrigado
PI321 04/11/2011 14:29:19
#388475
Caro Altair .. funcionou a parte de passar para o outro form. porém quando eu salvo o arquivo . ele descarta esta formatação =/ .
será que nao tem como mesmo ?
ALTAIR148 04/11/2011 14:37:52
#388477
Vc está salvando em que formato?
PI321 04/11/2011 16:06:41
#388490
Me.ClienteTableAdapter.Insert(txtdescricao.rtf)

tentei o mesmo com .text
masi nao obtive resultado
ALTAIR148 04/11/2011 17:07:52
#388498
Amigo vc quer gravar a formatação em um banco de dados? Sem salvas os parâmetros da formatação é impossível, no banco armazena dados e não formatação, lá só chega os caracteres puros, sem nenhuma formatação.
Olha para fazer isso teria que criar um campo onde nele salvaria a formatação o que eu não aconselharia muito. Seu banco iria aumentar muito o volume com esses dados da formação, e nem sei se tem como gravar também.
Tópico encerrado , respostas não são mais permitidas
Voltar