本文介绍了一种使用VBA编程来实现字体样式的动态调整的方法。通过几个简单的示例展示了如何利用复选框控制标签内文字的下划线与删除线效果，以及如何通过对话框让用户自行选择字体样式。
与百例79-80例相类似
Option Explicit
Private Sub chk1_Click()
If chk1.Value = 1 Then '若复选框chk1的值为1
Label2.FontUnderline = True '标签框中的文字加下划线
Else '否则
Label2.FontUnderline = False '标签框中的文字不加下划线
End If
End Sub
Private Sub chk2_Click()
If chk2.Value = 1 Then
Label2.FontStrikethru = True
Else
Label2.FontStrikethru = False
End If
End Sub
Private Sub Command1_Click()
cdl1.ShowFont
'打开“字体”对话框
Label2.Font = cdl1.FontName
'标签框中文字的字体是“字体”对话框中所选择的字体
Label2.FontBold = cdl1.FontBold
'标签框中文字的字体是否加粗显示“字体”对话框中所选择的字体
Label2.FontItalic = cdl1.FontItalic
'标签框中文字的字体是否倾斜“字体”对话框中所选择的字体
End Sub
扫一扫
2303
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
