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

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

Private Sub Command3_Click()
cdl1.Showcolor
Form2.lbl1.Forecolor = cdl1.color
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub

Private Sub Command5_Click()
End
End Sub

form2

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

Private Sub Command3_Click()
cdl1.Showcolor
Form2.lbl1.Forecolor = cdl1.color
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub

Private Sub Command5_Click()
End
End Sub

总结

以上是内存溢出为你收集整理的VB工程-- 百例79--字体屏保全部内容，希望文章能够帮你解决VB工程-- 百例79--字体屏保所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。