vb改变字形的代码是什么_求VB中调整字体颜色代码

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

刚写的渣代码......太冗余了....

Private Sub Check1斜体_Click()

If Check1斜体.Value = 1 Then

Text1.FontItalic = True

Else: Text1.FontItalic = False

End If

End Sub

Private Sub Check2粗体_Click()

If Check2粗体.Value = 1 Then

Text1.FontBold = True

Else: Text1.FontBold = False

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Option1红_Click()

Text1.ForeColor = vbRed

End Sub

Private Sub Option2黄_Click()

Text1.ForeColor = vbYellow

End Sub

Private Sub Option318_Click()

Option318.Value = True

Text1.FontSize = 18

End Sub

Private Sub Option3蓝_Click()

Text1.ForeColor = vbBlue

End Sub

Private Sub Option420_Click()

Option420.Value = True

Text1.FontSize = 20

End Sub

Private Sub Option4绿_Click()

Text1.ForeColor = vbGreen

End Sub

Private Sub Option512_Click()

Option512.Value = True

Text1.FontSize = 12

End Sub

Private Sub Option616_Click()

Option616.Value = True

Text1.FontSize = 16

End Sub