Jump to content
williamjda

Editor de Texto

Recommended Posts

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.

Share this post


Link to post
Share on other 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)

Edited by cdaniel.marques

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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)

Edited by Rui Carlos

Share this post


Link to post
Share on other 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

Edited by nelsonr

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites
nelsonr

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

Algo assim

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.