Label1.Font.Bold = True
Label1.Font.Name = "Arial"
Private Sub chkBold_Click
Remake
End Sub
Private Sub chkUnderline_Click
Remake
End Sub
Private Sub chkItalic_Click
Remake
End Sub
Private Sub Text1_Change
Remake
End Sub
Sub Remake
Text2.Text = text1.text
Text2.Font.Bold = cbool(chkBold.Value)
Text2.Font.Italic = cBool(chkItalic.Value)
Text2.Font.Underline = CBool(chkUnderline.Value)
End Sub
VS писал(а):А если надо перерисовать из текстбокса1 в текстбокс2 с применением форматирования по образцу при выполнении опред условия(флаг в чекбоксе)?
VS писал(а):А если надо перерисовать из текстбокса1 в текстбокс2 с применением форматирования по образцу при выполнении опред условия(флаг в чекбоксе)?
Сейчас этот форум просматривают: Google-бот и гости: 188