Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

williamjda

Editor de Texto

Mensagens Recomendadas

williamjda

Amigos boa noite.

Estou a desenvolver um editor de texto onde tenho um

01 - ComboBox onde tenho os nomes das fontes.

01 - RichTextBox onde sera digitado o texto.

Eu quero que quando eu selecionar o código a fonte no ComboBox ele mude o texto no RichTextBox.

If ComboFont.Text = "" Then Exit Sub
    RichTextBox.SelectionFont = ComboFont.Font

Neste caso não aconteceu nada.

Att;

William.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

Tens um erro:

If ComboFont.Text = "" Then Exit Sub
	RichTextBox.SelectionFont = ComboFont.Font

Assim estás a selecionar a fonte que a combo box tem configurada, não o valor escolhido pelo utilizador.

(Imagina, por exemplo que mudas o tipo de letra da combo box para Times New Roman, é essa a fonte que vai ficar configurada na RichTextBox)

Editado por cdaniel.marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

Boas.

Experimenta assim

RichTextBox1.SelectionFont = New Font(ComboBox1.SelectedItem.ToString, RichTextBox1.SelectionFont.Size)


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
williamjda

cdaniel.marques - com o seu código o vb me retorna que SelectedValue não é membro de System.......

Andrepereira9 - Com o código em questão ao selecionar a fonte e o combo o vb me retorna: "Referência de objeto não definida para uma instância de um objeto."

RichTextBox.SelectionFont = New Font(ComboFont.SelectedItem.ToString, RichTextBox.SelectionFont.Size)

Editado por Rui Carlos

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
nelsonr

Boas,

testei agora e funciona.

Muda o texto selecionado para a fonte escolhida

Private Sub ComboFont_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboFont.SelectedIndexChanged
 RichTextBox1.SelectionFont = New Font(ComboFont.SelectedItem.ToString, RichTextBox1.SelectionFont.Size)
End Sub

Editado por nelsonr

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
williamjda

Agora sim, eu estava a usar a propriedade do combo ComboFont_Click e não SelectedIndexChanged.

Porem eu tenho outra duvida. Quando eu edito um texto no edito que estou a desenvolver consigo alterar a fonte, negrito, itálico, sublinhado e tudo mais. Porem quando eu salvo o documento em qualquer formato (doc, html, txt) o mesmo não grava as alterações realizadas. Ele abre as informações sem formatação nenhuma mesmo que eu abra o arquivo que eu criei no meu editor.

O código ficou assim para salvar:

   Private Sub SalvarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvarToolStripMenuItem.Click
    Dim Save As New SaveFileDialog()
    Dim MyStreamWriter As System.IO.StreamWriter
    Save.Filter = "Documentos Word (*.doc*)|*.doc|(*.HTML*)|*.html|Texto (*.txt*)|*.txt|HTML(*.html*)|*.html|PHP(*.php)|*.php| Todos os Arquivos(*,*) | *,*"
    Save.Title = "Salvar Como"
    Save.ShowDialog(Me)
    Try
	    MyStreamWriter = System.IO.File.AppendText(Save.FileName)
	    MyStreamWriter.Write(RichTextBox.Text)
	    MyStreamWriter.Flush()
    Catch ex As Exception
    End Try
   End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
nelsonr

amigo desculpe minha ignorância. Mas estou a aprender...Como ficaria?

Algo assim

RichTextBox1.SaveFile("c:\ficheiro.rtf", RichTextBoxStreamType.RichText)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.