ex10.通过Font属性改变文本外观

ex10.通过Font属性改变文本外观

Option Explicit

Private Sub Command1_Click()
Label1.Font.Name = "宋体"
Command1.BackColor = vbGreen
Command2.BackColor = vbButtonFace
Command3.BackColor = vbButtonFace
End Sub

Private Sub Command10_Click()
End
End Sub

Private Sub Command2_Click()
Label1.Font.Name = "黑体"
Command2.BackColor = vbGreen
Command1.BackColor = vbButtonFace
Command3.BackColor = vbButtonFace
End Sub

Private Sub Command3_Click()
Label1.Font.Name = "楷体"
Command3.BackColor = vbGreen
Command1.BackColor = vbButtonFace
Command2.BackColor = vbButtonFace
End Sub

Private Sub Command4_Click()
Label1.Font.Size = Label1.Font.Size + 1
End Sub

Private Sub Command5_Click()
Label1.Font.Size = Label1.Font.Size - 1
End Sub

Private Sub Command6_Click()
Label1.Font.Bold = Not Label1.Font.Bold
If Label1.Font.Bold Then _
    Command6.BackColor = vbGreen Else _
    Command6.BackColor = vbButtonFace
End Sub

Private Sub Command7_Click()
Label1.Font.Underline = Not Label1.Font.Underline
If Label1.Font.Underline Then _
    Command7.BackColor = vbGreen Else _
    Command7.BackColor = vbButtonFace
End Sub

Private Sub Command8_Click()
Label1.Font.Strikethrough = Not Label1.Font.Strikethrough
If Label1.Font.Strikethrough Then _
    Command8.BackColor = vbGreen Else _
    Command8.BackColor = vbButtonFace
End Sub

Private Sub Command9_Click()
Label1.Font.Italic = Not Label1.Font.Italic
If Label1.Font.Italic Then _
    Command9.BackColor = vbGreen Else _
    Command9.BackColor = vbButtonFace
End Sub

Private Sub Form_Load()
Label1.Caption = vbCrLf & _
                "静夜思" & vbCrLf & vbCrLf & _
                "               唐·李白" & vbCrLf & vbCrLf & _
                "床前明月光，" & vbCrLf & _
                "疑是地上霜。" & vbCrLf & _
                "举头望明月，" & vbCrLf & _
                "低头思故乡。"
Label1.Alignment = 2
Call Command3_Click
End Sub

Tips:

• 如果一行代码太长，可用 空格+下划线+回车将一行长代码分割成若干行合适长度的代码，方便阅读
• 通过 backcolor属性可以改变按钮的背景色，前提是设计窗体时将按钮控件的style属性设置为Graphic

---