VB设置字体样式:字体加粗、字体下划线、删除线、斜体等样式的设置例子,对于美化和制作个性化的窗口文字,可起到很好的借鉴使用。实现时分别定义几个按钮,为按钮添加以下事件:
Private Sub Check1_Click()
Label1.FontBold = Check1.Value '加粗文字
End Sub
Private Sub Check2_Click()
Label1.FontItalic = Check2.Value '文字倾斜
End Sub
Private Sub Check3_Click()
Label1.FontUnderline = Check3.Value '加下划线
End Sub
Private Sub Check4_Click()
Label1.FontStrikethru = Check4.Value '加删除线
End Sub
1