Поменять размер шрифта в техтбоксе - 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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