2024年6月5日发(作者：)

 加粗按钮：

Private Sub Check1_Click()

If = vbChecked Then

ld = True

Else

ld = False

End If

End Sub

 斜体按钮：

Private Sub Check2_Click()

If = vbChecked Then

alic = True

Else

alic = False

End If

End Sub

 下划线按钮：

Private Sub Check3_Click()

If = vbChecked Then

derline = True

Else

derline = False

End If

End Sub

 分行显示按钮

Private Sub Command1_Click()

= "《静夜思》" & vbCrLf & "床前明月光， " & vbCrLf & "疑是地上霜。" &

vbCrLf & "举头望明月， " & vbCrLf & "低头思故乡。 "

End Sub

 清除按钮

Private Sub Command2_Click()

= ""

End Sub

 退出按钮

Private Sub Command3_Click()

Dim a As Integer

a = MsgBox("请问您确实要退出程序吗？", vbYesNo + vbQuestion, "作者温馨提示：")

If a = vbYes Then

End

End If

End Sub

 字体颜色设置

Private Sub Option1_Click()

lor = vbRed

End Sub

Private Sub Option10_Click()

lor = vbRed

End Sub

Private Sub Option11_Click()

lor = vbWhite

End Sub

Private Sub Option2_Click()

lor = vbBlue

End Sub

Private Sub Option3_Click()

lor = vbGreen

End Sub

Private Sub Option4_Click()

lor = vbBlack

End Sub

 字号大小设置

Private Sub Option5_Click()

ze = 12

End Sub

Private Sub Option6_Click()

ze = 18

End Sub

Private Sub Option7_Click()

ze = 20

End Sub

 背景颜色设置

Private Sub Option8_Click()

lor = vbYellow

End Sub

Private Sub Option9_Click()

lor = vbGreen

End Sub