none
Como criar um botão para aumentar e diminuir a fonte de uma textbox? RRS feed

  • Pergunta

  • Boa noite a todos!

    Quero criar um botão tipo aqueles que tem nos sites para aumentar e diminuir a fonte de uma textbox como faço isso? 

    Ex: O tamanho da fonte atual é 10, se o usuário clicar no botão Aumentar ela vai ficar 12 e se clicar em diminuir vai ficar 8. Tipo isso.

    Att Edison Stecker


    • Editado Edison Luis quinta-feira, 17 de outubro de 2013 23:51
    quinta-feira, 17 de outubro de 2013 23:50

Respostas

  • Achei a solução que eu precisava, dei mais uma pesquisada na internet, e achei esse código:

    Label1.Font = New Font(Label1.Font.Name, 12)

    Fiz umas alterações no trecho que estava dando erro e funcionou, o código que funcionou ficou assim:

    'PARA DIMINUIR A FONTE
    Dim tamanhoFonte As Single = TextBox1.Font.Size
            tamanhoFonte -= 1
            TextBox1.Font = New Font(TextBox1.Font.Name, tamanhoFonte)
    
    'PARA AUMENTAR A FONTE
    Dim tamanhoFonte As Single = textBox1.Font.Size
            tamanhoFonte += 1
            TextBox1.Font = New Font(TextBox1.Font.Name, tamanhoFonte)

    • Marcado como Resposta Edison Luis sexta-feira, 18 de outubro de 2013 14:52
    sexta-feira, 18 de outubro de 2013 14:52

Todas as Respostas

  • private void button1_click(object sender, EventArgs e)
    {
    float tamanhoFonte = textBox1.Font.Size;
    tamanhoFonte += 1;
    textBox1.Font = new System.Drawing.Font(textBox1.FontFamily.tamanhoFonte);
    }
    
    private void button2_click(object sender, EventArgs e)
    {
    float tamanhoFonte = textBox1.Font.Size;
    tamanhoFonte -= 1;
    textBox1.Font = new System.Drawing.Font(textBox2.FontFamily.tamanhoFonte);
    }

    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que eu segue valorizado.




    sexta-feira, 18 de outubro de 2013 00:07
  • Não funcionou!
    sexta-feira, 18 de outubro de 2013 00:17
  • No meu exemplo tem 3 Objetos Gráficos,

    button1, button2 e textBox1;

    Para que funcione você terá que dar 2 cliques no button1 e Adicionar esse código aqui:

    float tamanhoFonte = textBox1.Font.Size;
    
    tamanhoFonte += 1;
    
    textBox1.Font = new System.Drawing.Font(textBox1.FontFamily.tamanhoFonte);
    
    E depois dar 2 cliques no button2
     e Adicionar esse código aqui:
    
    float tamanhoFonte = textBox1.Font.Size;
    
    tamanhoFonte -= 1;
    
    textBox1.Font = new System.Drawing.Font(textBox2.FontFamily.tamanhoFonte);
     
    

    Depois é só executar o programa.

    Testa ai..



    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.


    sexta-feira, 18 de outubro de 2013 00:24
  • Eu testei, converti ele para vb e deu isso:

    Private Sub button1_click(sender As Object, e As EventArgs)
    
    
    	Dim tamanhoFonte As Single = textBox1.Font.Size
    
    	tamanhoFonte += 1
    
    	textBox1.Font = New System.Drawing.Font(textBox1.FontFamily.tamanhoFonte)
    
    End Sub
    
    Private Sub button2_click(sender As Object, e As EventArgs)
    
    
    	Dim tamanhoFonte As Single = textBox1.Font.Size
    
    	tamanhoFonte -= 1
    
    	textBox1.Font = New System.Drawing.Font(textBox2.FontFamily.tamanhoFonte)
    
    End Sub

    Inseri tudo corretamente, o único erro que dá é no:

    textBox1.FontFamily

    • Editado Edison Luis sexta-feira, 18 de outubro de 2013 00:28
    sexta-feira, 18 de outubro de 2013 00:27
  • Acontece que não existe a textbox2 e só a textbox1.
    sexta-feira, 18 de outubro de 2013 00:38
  • só dá erro nessa linha ?

    Eu Refiz o Código. Corrige ai...

    Private Sub button1_click(sender As Object, e As EventArgs) Dim tamanhoFonte As Single = textBox1.Font.Size tamanhoFonte += 1 textBox1.Font = New System.Drawing.Font(textBox1.FontFamily.tamanhoFonte) End Sub Private Sub button2_click(sender As Object, e As EventArgs) Dim tamanhoFonte As Single = textBox1.Font.Size tamanhoFonte -= 1 textBox1.Font = New System.Drawing.Font(textBox1.FontFamily.tamanhoFonte) End Sub

    Caso ainda não der certo, troque o "FontFamily" para "Microsoft Sans Serif"


    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.


    sexta-feira, 18 de outubro de 2013 00:41
  • Agradeço a sua atenção, com a minha duvida, mas o problema ainda esta no TexBox1.FontFamily, ele fica sublinhado com a cor azul, mas e só o trecho que citei, o resto não deu erro algum.
    sexta-feira, 18 de outubro de 2013 00:46
  • troque o "FontFamily" para "Microsoft Sans Serif"

    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.

    sexta-feira, 18 de outubro de 2013 00:47
  • Não funcionou
    sexta-feira, 18 de outubro de 2013 00:51
  • Então porque o de baixo dá certo e o de cima dá errado ?

    Muito Estranho.


    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.

    sexta-feira, 18 de outubro de 2013 00:54
  • Descupe-me, esqueci de citar que os dois estão dando erro, tanto o TextBox1, Quanto o TextBox2.
    sexta-feira, 18 de outubro de 2013 00:56
  • Vamos tentar mais uma vez... kkkk

    no lugar de:

    textBox1.Font = New System.Drawing.Font(textBox1.FontFamily.tamanhoFonte)
    
    //Coloque:
    
    textBox1.Font = New  System.Drawing.Font(textBox1.tamanhoFonte)

    Não quero deixar você na mão... kkk


    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.


    sexta-feira, 18 de outubro de 2013 00:59
  • Não funcionou kkk ta um pouco difícil né.
    sexta-feira, 18 de outubro de 2013 01:01
  • Agradeço a sua atenção, com a minha duvida, mas o problema ainda esta no TexBox1.FontFamily, ele fica sublinhado com a cor azul, mas e só o trecho que citei, o resto não deu erro algum.

    Mais se está azul não está dando um erro, você não está conseguindo executar ?



    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.

    sexta-feira, 18 de outubro de 2013 01:06
  • Quando tento executar da a mensagem aquela de sempre quando tem erros: O Visual Studio cita esses dois erros:

    Error 1 'FontFamily' is not a member of 'System.Windows.Forms.TextBox'.

    Error 2 'FontFamily' is not a member of 'System.Windows.Forms.TextBox'.
    sexta-feira, 18 de outubro de 2013 01:11
  • Ele fala que essa fonte não existe... você sabe ver o designer dos objetos ?

    é só copiar o tipo de fonte que já está no designer, pra mim está sendo difícil te passar qual é o código correto, pois estou na faculdade e nesse laboratório não tem o visual studio.

    Tenta no lugar do "font.Family" Colocar algum desses aqui embaixo:

    Calibri

    Arial

    Chiller

    Cambria


    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.

    sexta-feira, 18 de outubro de 2013 01:17
  • Ainda não, ele só substituí o FontFamily pela fonte citada. 
    sexta-feira, 18 de outubro de 2013 01:26
  • Não vou conseguir te ajudar então, desculpa.

    Tem como você pelo menos colocar minhas respostas como ÚTIL ?

    Visto que só falta um parâmetro pra dar certo seu código .

    Abraço.


    Por favor, caso a resposta for útil para sua pergunta, por favor marque como RESPOSTA, para que outras pessoas possam encontrar soluções mais rápidas e que a pessoa que respondeu possa ser valorizada.

    sexta-feira, 18 de outubro de 2013 01:29
  • Para trocar a fonte faca isso

    button1.Font = new Font(button1.Font, FontStyle.Bold); //aqui vc troca o estilo

     button1.Font = new Font(button1.Font.FontFamily, 12); //aqui o tamanho da fonte


    sexta-feira, 18 de outubro de 2013 01:51
  • Achei a solução que eu precisava, dei mais uma pesquisada na internet, e achei esse código:

    Label1.Font = New Font(Label1.Font.Name, 12)

    Fiz umas alterações no trecho que estava dando erro e funcionou, o código que funcionou ficou assim:

    'PARA DIMINUIR A FONTE
    Dim tamanhoFonte As Single = TextBox1.Font.Size
            tamanhoFonte -= 1
            TextBox1.Font = New Font(TextBox1.Font.Name, tamanhoFonte)
    
    'PARA AUMENTAR A FONTE
    Dim tamanhoFonte As Single = textBox1.Font.Size
            tamanhoFonte += 1
            TextBox1.Font = New Font(TextBox1.Font.Name, tamanhoFonte)

    • Marcado como Resposta Edison Luis sexta-feira, 18 de outubro de 2013 14:52
    sexta-feira, 18 de outubro de 2013 14:52
  • Obrigado pela atenção mas já achei a solução.
    sexta-feira, 18 de outubro de 2013 14:53