Richtextbox1 font size increase and decrease via ctrl + uparrow or ctrl + downarrow

Question

0.00/5 (No votes)

See more:

dear all

I have richtextbox1 in that its already font size increasing though Ctrl+mousewheeel but i want to increase and decrease font size through Keyboard shortcut like Ctrl+Uparrow (increase font size)and Ctrl+Downarrow (decrease font size) or Ctrl++(increasing) and Ctrl+-(decreasing) or Ctrl+](increasing) and Ctrl+[(Decreasing)

What I have tried:

If e.KeyCode = Keys.Ctrl+[ Then

Posted 20-Oct-19 8:02am

Member 14621280

Updated 20-Oct-19 20:45pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

kgmmurugesh · Accepted Answer · 2019-10-20T20:44:00

Solution 1

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown

    If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
        'increase the font size
    ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
        'decrease the font size
    End If

End Sub

Posted 20-Oct-19 20:44pm

kgmmurugesh

Comments

Member 14621280 21-Oct-19 13:18pm

it wont work

Member 14621280 21-Oct-19 13:19pm

which key i should press to increase and decrease

Member 14621280 21-Oct-19 13:24pm

Private Sub RichTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox2.KeyDown
If e.KeyCode = Keys.Tab Then
RichTextBox1.Show()
RichTextBox2.Visible = False
RichTextBox1.Visible = True

If e.KeyCode = Keys.Up AndAlso e.Modifiers = Keys.Control Then
'increase the font size
ElseIf e.KeyCode = Keys.Down AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
End If

End If
End Sub

kgmmurugesh 22-Oct-19 0:47am

ctrl+ to increase and ctrl- to decrease

kgmmurugesh 22-Oct-19 1:05am

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size - 1)
End If

End Sub

Member 14621280 22-Oct-19 1:27am

Hi Kgmmurugesh.... thanks for the solution ill try and let u know this code...

Member 14621280 22-Oct-19 1:27am

Hi kgmmurugesh

i have two type of language(Tamil & English) in Datagridview1 and once i click datagridview row it will open in richtextbox1 and richtextbox2 so my question is

in property panel i have selected tamil language so that it was showed in richtextbox1 and 2 is tamil content but while coming to english language content click in datagridview1 it was showed in Tamil language only not a english language showing.. How should fix this....

kgmmurugesh 22-Oct-19 6:58am

First change the font then show the richtextbox.

Member 14621280 22-Oct-19 14:17pm

Nothing work....

kgmmurugesh 23-Oct-19 0:47am

show your code

Member 14621280 23-Oct-19 1:01am

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Arial,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Tamil Bible,
RichTextBox1.Font.Size - 1)
End If

kgmmurugesh 23-Oct-19 1:01am

show your full code with datagridview.

Member 14621280 23-Oct-19 11:47am

Public Class SongShow

Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress

End Sub

Private Sub SongShow_Load(sender As Object, e As EventArgs) Handles MyBase.Load, RichTextBox1.VisibleChanged
'TODO: This line of code loads data into the 'SongDataSet.MAS_SONGS' table. You can move, or remove it, as needed.
Me.MAS_SONGSTableAdapter.Fill(Me.SongDataSet.MAS_SONGS)

Me.KeyPreview = True

End Sub

Private Sub SongShow_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
Me.Close()

End If

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim colors As DialogResult
colors = ColorDialog1.ShowDialog

If colors = Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = ColorDialog1.Color

End If
End Sub

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
If e.KeyCode = Keys.Tab Then
RichTextBox2.Show()
RichTextBox1.Visible = False
RichTextBox2.Visible = True
End If
End Sub

Private Sub RichTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox2.KeyDown

If e.KeyCode = Keys.Tab Then
RichTextBox1.Show()
RichTextBox2.Visible = False
RichTextBox1.Visible = True
End If

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size - 1)
End If
End Sub

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

End Sub
End Class

Member 14621280 23-Oct-19 12:56pm

Now its working Mr.Kgmmurugesh here is the code...

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
If e.KeyCode = Keys.Tab Then
RichTextBox2.Show()
RichTextBox1.Visible = False
RichTextBox2.Visible = True

End If

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size - 1)
End If

End Sub

Member 14621280 23-Oct-19 13:20pm

But ding sound is coming...

kgmmurugesh 24-Oct-19 1:18am

insert the following line after decreasing and increasing font.

e.SuppressKeyPress = True

Member 14621280 24-Oct-19 3:19am

Great work.... one more request

i have two type of language(Tamil & English) in Datagridview1 and once i click datagridview row it will open in richtextbox1 and richtextbox2 so my question is

in property panel i have selected tamil language so that it was showed in richtextbox1 and 2 is tamil content but while coming to english language content click in datagridview1 it was showed in Tamil language only not a english language showing.. How should fix this....

kgmmurugesh 24-Oct-19 3:40am

do not use property panel. Use tamil and english fonts or change keyboard dynamically.

Member 14621280 24-Oct-19 4:51am

Actually i have two language in one by one row in single column (Ms Access Database) i want to show if tamil language means tamil language , if english language means english... in richtextbox1

kgmmurugesh 24-Oct-19 7:16am

can you show your full code?

Member 14621280 24-Oct-19 7:23am

Public Class SongShow

Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress

End Sub

Private Sub SongShow_Load(sender As Object, e As EventArgs) Handles MyBase.Load, RichTextBox1.VisibleChanged
'TODO: This line of code loads data into the 'SongDataSet.MAS_SONGS' table. You can move, or remove it, as needed.
Me.MAS_SONGSTableAdapter.Fill(Me.SongDataSet.MAS_SONGS)

Me.KeyPreview = True

End Sub

Private Sub SongShow_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
Me.Close()

End If

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim colors As DialogResult
colors = ColorDialog1.ShowDialog

If colors = Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = ColorDialog1.Color

End If
End Sub

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
If e.KeyCode = Keys.Tab Then
RichTextBox2.Show()
RichTextBox1.Visible = False
RichTextBox2.Visible = True
End If
End Sub

Private Sub RichTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox2.KeyDown

If e.KeyCode = Keys.Tab Then
RichTextBox1.Show()
RichTextBox2.Visible = False
RichTextBox1.Visible = True
End If

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size - 1)
End If
End Sub

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

End Sub
End Class

kgmmurugesh 24-Oct-19 7:28am

Make one richtextbox for tamil and another richtextbox for english. depending on the language show coressponding richtextbox

Member 14621280 24-Oct-19 7:41am

actually i want richtextbox 1 and 2 should show same content either tamil or English and if i double click in datagridview1 it's showed Richtextbox1 and when click tab it will open Richtextbox2 these are running successfully but if i am having English content theses 2 rightextbox should show english font ....

Member 14621280 24-Oct-19 7:42am

or shall we add language table in Ms access and connect this richtextbox1 and 2 ... if its possible

kgmmurugesh 24-Oct-19 8:09am

you r using vb.net or vb.

Member 14621280 24-Oct-19 10:15am

vb.net

Member 14621280 24-Oct-19 10:16am

visual studio ultimate 2013

kgmmurugesh 25-Oct-19 1:24am

It is very simple. why dont you set coressponding font before showing textbox

Member 14621280 25-Oct-19 2:25am

How... it is possible?

Member 14621280 25-Oct-19 2:27am

but anyway we have to choose font in property panel right? then

kgmmurugesh 25-Oct-19 7:59am

NO, We can set id by coding.

Member 14621280 25-Oct-19 8:01am

you mean through ms access database right? like we should create table and put a languages right? then write coding in richtextbox?

kgmmurugesh 25-Oct-19 8:03am

No, we should set font for richtextbox.

Member 14621280 25-Oct-19 8:03am

i don't know bro..how it is?

Member 14621280 25-Oct-19 8:19am

How may be like this
System.Drawing.Font currentFont = richTextBox1.SelectionFont;
System.Drawing.FontStyle newFontStyle

kgmmurugesh 26-Oct-19 2:28am

RichTextBox1.Font = New System.Drawing.Font("Arial",9)

set like this

Member 14621280 26-Oct-19 2:29am

i have tried that also but tamil font not showing like tamil font showing in english font

kgmmurugesh 26-Oct-19 2:31am

If you r using unicode then you can set the font directly.

Member 14621280 26-Oct-19 2:33am

English & tamil font would be .ttf format

kgmmurugesh 26-Oct-19 2:38am

how you switch english font to tamil and tamil to english?

Member 14621280 26-Oct-19 2:54am

when i try this code "RichTextBox1.Font = New System.Drawing.Font("Arial",9)" and the tamil font will be showing like this "mk;kh"

kgmmurugesh 26-Oct-19 3:03am

You have to set tamil font name and if there is a switch then you must press the shortcut keys to change tamil (using sendkeys method)

Member 14621280 26-Oct-19 3:06am

like keydown shortcut methods right?

Member 14621280 26-Oct-19 3:26am

or SendKeys.Send("[enter]") like this

kgmmurugesh 29-Oct-19 1:35am

yes. How do you type tamil?

Member 14621280 29-Oct-19 1:37am

i can't understand what you say

kgmmurugesh 29-Oct-19 1:43am

how do you enter tamil letters?

Member 14621280 29-Oct-19 1:43am

i have a suggestion... like in Richtextbox1 and 2 would be tamil font right if english font is coming in datagridview1 and if click that content it will open Richtextbox3 and put tab button it will show Richtextbox1 and Richtextbox2 should be disabled... or another possible

here is my code

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
If e.KeyCode = Keys.Tab Then
RichTextBox2.Show()
RichTextBox1.Visible = False
RichTextBox2.Visible = True
End If
End Sub

Private Sub RichTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox2.KeyDown
If e.KeyCode = Keys.Tab Then
RichTextBox1.Show()
RichTextBox2.Visible = False
RichTextBox1.Visible = True
End If
End Sub

kgmmurugesh 29-Oct-19 1:46am

are you using e-kalapai, keyman or NHM writer?

Member 14621280 29-Oct-19 2:07am

i don't use these 3 software i am using Bamini Font so which is not required any keyman or another third party software... directly we can type....

kgmmurugesh 29-Oct-19 3:26am

if the formload event add this code.

richTextBox2.Font = New System.Drawing.Font("Bamini", 9)

Member 14621280 29-Oct-19 4:55am

Ok then... In Richtextbox1 and 2 so which language i will choose in property panel

Member 14621280 29-Oct-19 5:10am

shall i choose two font like

richTextBox2.Font = New System.Drawing.Font("Bamini", 9)
richTextBox2.Font = New System.Drawing.Font("Arial", 9)
richTextBox1.Font = New System.Drawing.Font("Bamini", 9)
richTextBox1.Font = New System.Drawing.Font("Arial", 9)

Member 14621280 29-Oct-19 5:14am

or can i try this? like

if i press Ctrl + R in Richtextbox1 (Tamil font) will open Richtextbox3(English font) and Richtextbox2(Tamil font) would be disabled... shall we try this...

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown

If e.KeyCode = Keys.Tab Then
RichTextBox2.Show()
RichTextBox1.Visible = False
RichTextBox2.Visible = True
End If
End Sub

If e.KeyCode = Keys.R AndAlso e.Modifiers = Keys.Control Then
If e.KeyCode = Keys.Tab Then
RichTextBox3.Show()
RichTextBox1.Visible = False
RichTextBox2.Visible = True
End If
End Sub

kgmmurugesh 29-Oct-19 6:49am

OK

Member 14621280 29-Oct-19 7:10am

i have tried Ctrl + R but not visible ?????

Member 14621280 29-Oct-19 7:10am

any suggestion

kgmmurugesh 29-Oct-19 7:15am

can you send your full code?

Member 14621280 29-Oct-19 7:21am

Public Class SongShow

Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress

End Sub

Private Sub SongShow_Load(sender As Object, e As EventArgs) Handles MyBase.Load, RichTextBox1.VisibleChanged
'TODO: This line of code loads data into the 'SongDataSet.MAS_SONGS' table. You can move, or remove it, as needed.
Me.MAS_SONGSTableAdapter.Fill(Me.SongDataSet.MAS_SONGS)

Me.KeyPreview = True

End Sub

Private Sub SongShow_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
Me.Close()

End If

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim colors As DialogResult
colors = ColorDialog1.ShowDialog

If colors = Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = ColorDialog1.Color

End If
End Sub

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
If e.KeyCode = Keys.Tab Then
RichTextBox2.Show()
RichTextBox1.Visible = False
RichTextBox2.Visible = True
End If
End Sub

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size - 1)
End If
End Sub

Private Sub RichTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox2.KeyDown

If e.KeyCode = Keys.Tab Then
RichTextBox1.Show()
RichTextBox2.Visible = False
RichTextBox1.Visible = True
End If

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size - 1)
End If
End Sub

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

End Sub
End Class

kgmmurugesh 29-Oct-19 7:20am

can you explain the entire project?

kgmmurugesh 29-Oct-19 7:28am

alter the above code like this

If e.KeyCode = Keys.Tab Then
RichTextBox2.Visible = True
RichTextBox1.Visible = False
End If
End Sub

If e.KeyCode = Keys.R AndAlso e.Modifiers = Keys.Control Then
RichTextBox3.Show()
RichTextBox2.Visible = True
RichTextBox1.Visible = False

End If
End Sub

Member 14621280 29-Oct-19 13:24pm

i have try this in Richtextbox 1 but not working

Member 14621280 1-Nov-19 2:28am

When i increase font size through shortcut my font got unbold.... but i want bold letters permanent and through mouse increase it will come bold font only but when i press shortcut in Richtextbox1 it was unbold...

kgmmurugesh 2-Nov-19 3:21am

New System.Drawing.Font("Arial", 36, FontStyle.Bold)

use fontstyle.bold to bold the font.

Member 14621280 5-Nov-19 2:08am

ok