Поменять размер шрифта в техтбоксе - VB

Узнай цену своей работы

Формулировка задачи:

Спрошу здесь. Можно ли в техт боксе писать разным размером символы ? например мы вводим: "Сu2О5 Вот мы написали "Cu" посчитали что после него надо уменьшить шрифт чтобы вписать цифру, а затем опять увеличить. как это сделать ?

Решение задачи: «Поменять размер шрифта в техтбоксе»

textual
Листинг программы
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
RichTextBox1.SelCharOffset = (IsNumeric(Chr$(KeyAscii)) And RichTextBox1.SelStart > 0) * RichTextBox1.SelFontSize * VB.Screen.TwipsPerPixelY / 2
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы