VB6为窗口中的文字设置字体样式.rar

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