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

Question

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

Answer 1

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.

Answer 2

Não funcionou!

Answer 3

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.

Answer 4

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

Answer 5

Acontece que não existe a textbox2 e só a textbox1.

Answer 6

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.

Answer 7

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.

Answer 8

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.

Answer 9

Não funcionou

Answer 10

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.

Answer 11

Descupe-me, esqueci de citar que os dois estão dando erro, tanto o TextBox1, Quanto o TextBox2.

Answer 12

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.

Answer 13

Não funcionou kkk ta um pouco difícil né.

Answer 14

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.

Answer 15

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'.

Answer 16

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.

Answer 17

Ainda não, ele só substituí o FontFamily pela fonte citada. 

Answer 18

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.

Answer 19

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 

Answer 20

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)

Answer 21

Obrigado pela atenção mas já achei a solução.