Поменять размер шрифта в техтбоксе - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д