Member 14621280 Ответов: 1

Richtextbox1 увеличение и уменьшение размера шрифта с помощью ctrl + uparrow или ctrl + downarrow


дорогие все

У меня есть richtextbox1 в том, что его размер шрифта уже увеличивается, хотя Ctrl+mousewheel, но я хочу увеличивать и уменьшать размер шрифта с помощью сочетания клавиш, таких как Ctrl+Uparrow (увеличение размера шрифта)и Ctrl+Downarrow (уменьшение размера шрифта) или Ctrl++(увеличение) и Ctrl+-(уменьшение) или Ctrl+](увеличение) и Ctrl+[(уменьшение)

Что я уже пробовал:

Если e.KeyCode = ключи.Ctrl+[ Затем

1 Ответов

Рейтинг:
4

kgmmurugesh

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


Member 14621280

это не сработает

Member 14621280

какую клавишу я должен нажать, чтобы увеличить и уменьшить

Member 14621280

Частный суб RichTextBox2_KeyDown(отправитель как объект, e Как KeyEventArgs) обрабатывает RichTextBox2.KeyDown
Если e.KeyCode = ключи.Тогда Закладка
Richtextbox1 отображение.Показать()
RichTextBox2.Видна = Ложь
Richtextbox1 отображение.Видимое = Истинное

Если e.KeyCode = ключи.Вверх и также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
ElseIf e.KeyCode = ключи.Вниз и также e.модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
Конец, Если

Конец, Если
Конец Подводной Лодки

kgmmurugesh

ctrl+ для увеличения и ctrl - для уменьшения

kgmmurugesh

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) обрабатывает RichTextBox1.KeyDown

Если e.KeyCode = ключи.Добавьте также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер + 1)
ElseIf e.KeyCode = ключи.Вычитание и т. д. модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер - 1)
Конец, Если

Конец Подводной Лодки

Member 14621280

Привет Kgmmurugesh.... спасибо за решение, я попробую и дам вам знать этот код...

Member 14621280

Привет кгммуругеш

у меня есть два типа языка(тамильский и английский) в Datagridview1, и как только я нажму строку datagridview, она откроется в richtextbox1 и richtextbox2, так что мой вопрос таков

в панели свойств я выбрал тамильский язык так, чтобы он был показан в richtextbox1 и 2-это тамильский контент, но при переходе к англоязычному контенту нажмите кнопку datagridview1, чтобы он был показан только на тамильском языке, а не на английском языке.. Как следует это исправить....

kgmmurugesh

Сначала измените шрифт, а затем покажите richtextbox.

Member 14621280

Ничего не работает....

kgmmurugesh

покажите свой код

Member 14621280

Если e.KeyCode = ключи.Добавьте также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.шрифт Arial,
Richtextbox1 отображение.Шрифт.Размер + 1)
ElseIf e.KeyCode = ключи.Вычитание и т. д. модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Тамильская Библия,
Richtextbox1 отображение.Шрифт.Размер - 1)
Конец, Если

kgmmurugesh

покажите свой полный код с помощью datagridview.

Member 14621280

Публичное Классное Песенное Шоу

Частный суб RichTextBox1_KeyPress(отправитель как объект, e Как KeyPressEventArgs) обрабатывает RichTextBox1.KeyPress

Конец Подводной Лодки

Частная суб SongShow_Load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Нагрузки, Richtextbox1 Отображение.VisibleChanged
'TODO: эта строка кода загружает данные в таблицу 'Sonddataset.MAS_SONGS'. Вы можете переместить или удалить его, если это необходимо.
Me.MAS_SONGSTableAdapter.Заполните(Me.SongDataSet.MAS_SONGS)

Me.KeyPreview = True


Конец Подводной Лодки


Частная суб SongShow_KeyDown(отправителя как объект, как KeyEventArgs) обрабатывает ключевое слово mybase.Клавиша вниз
Если e.KeyCode = Keys.Escape, то
Меня.Рядом()

Конец, Если

Конец Подводной Лодки

Частная суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Тусклые цвета как DialogResult
цвета = ColorDialog1.Метод showdialog

Если цвета = окна.Формы.свойство DialogResult.Тогда ладно
Richtextbox1 отображение.Свойство Forecolor = ColorDialog1.Цвет

Конец, Если
Конец Подводной Лодки

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) обрабатывает RichTextBox1.KeyDown
Если e.KeyCode = ключи.Тогда Закладка
RichTextBox2.Показать()
Richtextbox1 отображение.Видна = Ложь
RichTextBox2.Видимое = Истинное
Конец, Если
Конец Подводной Лодки

Частный суб RichTextBox2_KeyDown(отправитель как объект, e Как KeyEventArgs) обрабатывает RichTextBox2.KeyDown

Если e.KeyCode = ключи.Тогда Закладка
Richtextbox1 отображение.Показать()
RichTextBox2.Видна = Ложь
Richtextbox1 отображение.Видимое = Истинное
Конец, Если

Если e.KeyCode = ключи.Добавьте также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер + 1)
ElseIf e.KeyCode = ключи.Вычитание и т. д. модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер - 1)
Конец, Если
Конец Подводной Лодки


Частный суб RichTextBox1_TextChanged(отправитель как объект, e Как EventArgs) обрабатывает RichTextBox1.TextChanged

Конец Подводной Лодки
End Класса

Member 14621280

Теперь его рабочий Мистер Кгммуругеш вот этот код...

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) обрабатывает RichTextBox1.KeyDown
Если e.KeyCode = ключи.Тогда Закладка
RichTextBox2.Показать()
Richtextbox1 отображение.Видна = Ложь
RichTextBox2.Видимое = Истинное

Конец, Если

Если e.KeyCode = ключи.Добавьте также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер + 1)
ElseIf e.KeyCode = ключи.Вычитание и т. д. модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер - 1)
Конец, Если

Конец Подводной Лодки

Member 14621280

Но звук Динь приближается...

kgmmurugesh

вставьте следующую строку после уменьшения и увеличения шрифта.

e.Suppressskeypress = True

Member 14621280

Отличная работа ... еще одна просьба

у меня есть два типа языка(тамильский и английский) в Datagridview1, и как только я нажму строку datagridview, она откроется в richtextbox1 и richtextbox2, так что мой вопрос таков

в панели свойств я выбрал тамильский язык так, чтобы он был показан в richtextbox1 и 2-это тамильский контент, но при переходе к англоязычному контенту нажмите кнопку datagridview1, чтобы он был показан только на тамильском языке, а не на английском языке.. Как следует это исправить....

kgmmurugesh

не используйте панель свойств. Используйте тамильские и английские шрифты или динамически меняйте клавиатуру.

Member 14621280

На самом деле у меня есть два языка в одной строке в одном столбце (база данных Ms Access), я хочу показать, означает ли тамильский язык тамильский язык, если английский язык означает английский... в richtextbox1

kgmmurugesh

можете ли вы показать свой полный код?

Member 14621280

Публичное Классное Песенное Шоу

Частный суб RichTextBox1_KeyPress(отправитель как объект, e Как KeyPressEventArgs) обрабатывает RichTextBox1.KeyPress

Конец Подводной Лодки

Частная суб SongShow_Load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Нагрузки, Richtextbox1 Отображение.VisibleChanged
'TODO: эта строка кода загружает данные в таблицу 'Sonddataset.MAS_SONGS'. Вы можете переместить или удалить его, если это необходимо.
Me.MAS_SONGSTableAdapter.Заполните(Me.SongDataSet.MAS_SONGS)

Me.KeyPreview = True


Конец Подводной Лодки


Частная суб SongShow_KeyDown(отправителя как объект, как KeyEventArgs) обрабатывает ключевое слово mybase.Клавиша вниз
Если e.KeyCode = Keys.Escape, то
Меня.Рядом()

Конец, Если

Конец Подводной Лодки

Частная суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Тусклые цвета как DialogResult
цвета = ColorDialog1.Метод showdialog

Если цвета = окна.Формы.свойство DialogResult.Тогда ладно
Richtextbox1 отображение.Свойство Forecolor = ColorDialog1.Цвет

Конец, Если
Конец Подводной Лодки

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) обрабатывает RichTextBox1.KeyDown
Если e.KeyCode = ключи.Тогда Закладка
RichTextBox2.Показать()
Richtextbox1 отображение.Видна = Ложь
RichTextBox2.Видимое = Истинное
Конец, Если
Конец Подводной Лодки

Частный суб RichTextBox2_KeyDown(отправитель как объект, e Как KeyEventArgs) обрабатывает RichTextBox2.KeyDown

Если e.KeyCode = ключи.Тогда Закладка
Richtextbox1 отображение.Показать()
RichTextBox2.Видна = Ложь
Richtextbox1 отображение.Видимое = Истинное
Конец, Если

Если e.KeyCode = ключи.Добавьте также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер + 1)
ElseIf e.KeyCode = ключи.Вычитание и т. д. модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер - 1)
Конец, Если
Конец Подводной Лодки


Частный суб RichTextBox1_TextChanged(отправитель как объект, e Как EventArgs) обрабатывает RichTextBox1.TextChanged

Конец Подводной Лодки
End Класса

kgmmurugesh

Сделайте один richtextbox для тамильского языка и другой richtextbox для английского языка. в зависимости от языка показать coressponding richtextbox

Member 14621280

на самом деле я хочу, чтобы richtextbox 1 и 2 должны показывать один и тот же контент либо тамильский, либо английский, и если я дважды щелкну в datagridview1, он покажет Richtextbox1, а когда нажму вкладку, он откроет Richtextbox2, они работают успешно, но если у меня есть английский контент тезисы 2 rightextbox должен показывать английский шрифт ....

Member 14621280

или мы добавим языковую таблицу в Ms access и подключим этот richtextbox1 и 2 ... если это возможно

kgmmurugesh

вы используете r vb.net или vb.

Member 14621280

vb.net

Member 14621280

visual studio ultimate 2013

kgmmurugesh

Это очень просто. почему бы вам не установить coresspond шрифт перед отображением текстового поля

Member 14621280

Как... это возможно?

Member 14621280

но в любом случае мы должны выбрать шрифт в панели свойств, не так ли? затем

kgmmurugesh

Нет, мы можем установить id путем кодирования.

Member 14621280

вы имеете в виду через базу данных ms access, верно? как будто мы должны создать таблицу и поставить языки правильно? затем написать кодировку в richtextbox?

kgmmurugesh

Нет, мы должны установить шрифт для richtextbox.

Member 14621280

я не знаю, братан ... как это так?

Member 14621280

Как же может быть так
Система.Рисование.Шрифт currentFont = richTextBox1.SelectionFont;
Система.Рисование.Свойство fontstyle newFontStyle

kgmmurugesh

RichTextBox1.Font = Новая Система.Рисование.Шрифт ("Ариал",9)

установите вот так

Member 14621280

я тоже пробовал это делать но тамильский шрифт не показывается как тамильский шрифт показывается в английском шрифте

kgmmurugesh

Если вы используете unicode, то вы можете установить шрифт непосредственно.

Member 14621280

Английский и тамильский шрифт будет иметь формат .ttf

kgmmurugesh

как вы переключаете английский шрифт на тамильский и тамильский на английский?

Member 14621280

когда я пробую этот код "RichTextBox1.Font = новая система.Рисование.Шрифт("Arial",9)" и тамильский шрифт будет отображаться следующим образом "mk;kh"

kgmmurugesh

Вы должны установить тамильское имя шрифта, и если есть переключатель, то вы должны нажать сочетания клавиш, чтобы изменить тамильский язык (используя метод sendkeys)

Member 14621280

например, методы быстрого доступа keydown, верно?

Member 14621280

или отправить ключи.Отправить("[enter]") вот так

kgmmurugesh

да. Как вы печатаете тамильский язык?

Member 14621280

я не могу понять, что ты говоришь

kgmmurugesh

как вы вводите тамильские буквы?

Member 14621280

у меня есть предложение... например, в Richtextbox1 и 2 будет тамильский шрифт правильно, если английский шрифт приходит в datagridview1, и если нажать на этот контент, он откроет Richtextbox3 и поставит кнопку tab, он покажет Richtextbox1 и Richtextbox2 должны быть отключены... или другой возможный вариант


вот мой код

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) обрабатывает RichTextBox1.KeyDown
Если e.KeyCode = ключи.Тогда Закладка
RichTextBox2.Показать()
Richtextbox1 отображение.Видна = Ложь
RichTextBox2.Видимое = Истинное
Конец, Если
Конец Подводной Лодки

Частный суб RichTextBox2_KeyDown(отправитель как объект, e Как KeyEventArgs) обрабатывает RichTextBox2.KeyDown
Если e.KeyCode = ключи.Тогда Закладка
Richtextbox1 отображение.Показать()
RichTextBox2.Видна = Ложь
Richtextbox1 отображение.Видимое = Истинное
Конец, Если
Конец Подводной Лодки

kgmmurugesh

вы используете e-kalapai, keyman или NHM writer?

Member 14621280

я не использую эти 3 программного обеспечения, я использую шрифт Bamini, так что не требуется никакого кеймана или другого стороннего программного обеспечения... непосредственно мы можем печатать....

kgmmurugesh

если событие formload добавит этот код.

richTextBox2.Font = новая система.Рисование.Шрифт("Бамини", 9)

Member 14621280

Ну ладно... В Richtextbox1 и 2 Так какой язык я выберу в панели свойств

Member 14621280

должен ли я выбрать два шрифта, как

richTextBox2.Font = новая система.Рисование.Шрифт("Бамини", 9)
richTextBox2.Font = новая система.Рисование.Шрифт ("Ариал", 9)
richTextBox1.Font = новая система.Рисование.Шрифт("Бамини", 9)
richTextBox1.Font = новая система.Рисование.Шрифт ("Ариал", 9)

Member 14621280

или я могу попробовать это? любить

если я нажимаю Ctrl + R в richtextbox1 отображение (Тамил шрифта) состоится открытие Richtextbox3(английский шрифт) и Richtextbox2(Тамил шрифта) будет отключен... может, попробуем это сделать?..

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) обрабатывает RichTextBox1.KeyDown


Если e.KeyCode = ключи.Тогда Закладка
RichTextBox2.Показать()
Richtextbox1 отображение.Видна = Ложь
RichTextBox2.Видимое = Истинное
Конец, Если
Конец Подводной Лодки

Если e.KeyCode = ключи.R AndAlso e.модификаторы = ключи.Тогда Контроль
Если e.KeyCode = ключи.Тогда Закладка
RichTextBox3.Показать()
Richtextbox1 отображение.Видна = Ложь
RichTextBox2.Видимое = Истинное
Конец, Если
Конец Подводной Лодки

kgmmurugesh

ОК

Member 14621280

я пробовал Ctrl + R, но не видно ?????

Member 14621280

любое предложение

kgmmurugesh

можете ли вы отправить свой полный код?

Member 14621280

Публичное Классное Песенное Шоу

Частный суб RichTextBox1_KeyPress(отправитель как объект, e Как KeyPressEventArgs) обрабатывает RichTextBox1.KeyPress

Конец Подводной Лодки

Частная суб SongShow_Load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Нагрузки, Richtextbox1 Отображение.VisibleChanged
'TODO: эта строка кода загружает данные в таблицу 'Sonddataset.MAS_SONGS'. Вы можете переместить или удалить его, если это необходимо.
Me.MAS_SONGSTableAdapter.Заполните(Me.SongDataSet.MAS_SONGS)

Me.KeyPreview = True


Конец Подводной Лодки


Частная суб SongShow_KeyDown(отправителя как объект, как KeyEventArgs) обрабатывает ключевое слово mybase.Клавиша вниз
Если e.KeyCode = Keys.Escape, то
Меня.Рядом()

Конец, Если

Конец Подводной Лодки

Частная суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Тусклые цвета как DialogResult
цвета = ColorDialog1.Метод showdialog

Если цвета = окна.Формы.свойство DialogResult.Тогда ладно
Richtextbox1 отображение.Свойство Forecolor = ColorDialog1.Цвет

Конец, Если
Конец Подводной Лодки

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) обрабатывает RichTextBox1.KeyDown
Если e.KeyCode = ключи.Тогда Закладка
RichTextBox2.Показать()
Richtextbox1 отображение.Видна = Ложь
RichTextBox2.Видимое = Истинное
Конец, Если
Конец Подводной Лодки

Если e.KeyCode = ключи.Добавьте также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер + 1)
ElseIf e.KeyCode = ключи.Вычитание и т. д. модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер - 1)
Конец, Если
Конец Подводной Лодки

Частный суб RichTextBox2_KeyDown(отправитель как объект, e Как KeyEventArgs) обрабатывает RichTextBox2.KeyDown

Если e.KeyCode = ключи.Тогда Закладка
Richtextbox1 отображение.Показать()
RichTextBox2.Видна = Ложь
Richtextbox1 отображение.Видимое = Истинное
Конец, Если

Если e.KeyCode = ключи.Добавьте также e.модификаторы = ключи.Тогда Контроль
- увеличьте размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер + 1)
ElseIf e.KeyCode = ключи.Вычитание и т. д. модификаторы = ключи.Тогда Контроль
- уменьшите размер шрифта
RichTextBox1.Font = Новая Система.Рисование.Шрифт(RichTextBox1.Font.Name,
Richtextbox1 отображение.Шрифт.Размер - 1)
Конец, Если
Конец Подводной Лодки




Частный суб RichTextBox1_TextChanged(отправитель как объект, e Как EventArgs) обрабатывает RichTextBox1.TextChanged

Конец Подводной Лодки
End Класса

kgmmurugesh

можете ли вы объяснить весь проект?

kgmmurugesh

измените приведенный выше код следующим образом

Если e.KeyCode = ключи.Тогда Закладка
RichTextBox2.Видимое = Истинное
Richtextbox1 отображение.Видна = Ложь
Конец, Если
Конец Подводной Лодки

Если e.KeyCode = ключи.R AndAlso e.модификаторы = ключи.Тогда Контроль
RichTextBox3.Показать()
RichTextBox2.Видимое = Истинное
Richtextbox1 отображение.Видна = Ложь

Конец, Если
Конец Подводной Лодки

Member 14621280

я попробовал это в Richtextbox 1 но не работает

Member 14621280

Когда я увеличиваю размер шрифта через ярлык, Мой шрифт становится неразвернутым.... но я хочу, чтобы жирные буквы были постоянными, а через увеличение мыши он будет только жирным шрифтом, но когда я нажимаю ярлык в Richtextbox1, он был разогнут...

kgmmurugesh

новая система.Рисование.Шрифт ("Ариал", 36, FontStyle.Жирный)

используйте fontstyle.жирный шрифт для жирного шрифта.

Member 14621280

ладно