VB工程-- 百例79--字体屏保

最新推荐文章于 2022-08-28 11:14:11 发布

原创最新推荐文章于 2022-08-28 11:14:11 发布 · 890 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #command

VB 专栏收录该内容

74 篇文章

订阅专栏

本文展示了使用CommonDialog控件进行多种操作的详细示例，包括字体、颜色、下划线、删除线、斜体等效果的实现，以及通过复选框控制窗体元素样式变化的过程。

此例是到现在为止，编写的最大，窗体最多，代码最多，耗时最长的例子，刚看到是有些晕菜！但是一想行动下移，我还是慢慢的敲写了下来！期间出现了一点点小麻烦，但是咱韧劲足，一点点克服啦！我胜利啦！写出来啦！运行成功！留下一点点心酸记忆，问题越多我进步的机率越大，庆幸！加油！

新知识：　CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。其链接 http://baike.baidu.com/view/2420618.htm

form1

Option Explicit
Private Sub chk1_Click()
        If chk1.Value = 1 Then        '如果勾选复选框chk1
           Form2.lbl1.FontBold = True '窗体form2上标签框中的文字加粗显示
        Else                           '如果没有勾选复选框chk1
           Form2.lbl1.FontBold = False '窗体form2上标签框中的文字不加粗显示
        End If

End Sub

Private Sub chk2_Click()
        If chk2.Value = 1 Then
           Form2.lbl1.FontUnderline = True '窗体form2上标签框中的文字加下划线显示
        Else
           Form2.lbl1.FontUnderline = False
        End If
End Sub

Private Sub chk3_Click()
        If chk3.Value = 1 Then
           Form2.lbl1.FontStrikethru = True '窗体form2上标签框中的文字加删除线显示
        Else
           Form2.lbl1.FontStrikethru = False
        End If
End Sub

Private Sub chk4_Click()
        If chk4.Value = 1 Then
           Form2.lbl1.FontItalic = True      '窗体form2上标签框中的文字加倾斜显示
        Else
           Form2.lbl1.FontItalic = False
        End If
End Sub

Private Sub Command1_Click()
        cdl1.ShowFont                        '显示字体对话框
        Form2.lbl1.Font = cdl1.FontName       '窗体form2上标签框的字体是字体对话框
                                              '中所选择的字体
        Form2.lbl1.FontSize = cdl1.FontSize    '窗体form2上标签框的文字的大小
                                               '对话框中所选择的字号
End Sub
Private Sub Command2_Click()
        cdl1.ShowColor
        Form2.BackColor = cdl1.Color
End Sub