VB编程字体的代码

2022-05-20 20:58:20 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《VB编程字体的代码》，欢迎阅读！
字体,编程,代码

Private Sub Form_Load() Combo1.AddItem "一号" Combo1.AddItem "二号" Combo1.AddItem "小二" Combo1.AddItem "三号" Combo1.AddItem "小三" Combo1.AddItem "四号" Combo1.AddItem "小四" Combo1.AddItem "五号" Combo1.AddItem "小五" Combo1.AddItem "六号" Combo1.AddItem "小六" End Sub

Private Sub HSblue_Change()

Label4.BackColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value) End Sub

Private Sub HSgreen_Change()

Label4.BackColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value) End Sub

Private Sub HSred_Change()

Label4.BackColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value) End Sub

Private Sub Option2_Click() If Option2.Value = True Then Text1.FontItalic = True

ElseIf Option2.Value = False Then Text1.FontItalic = False End If

End Sub

Private Sub Option3_Click() If Option3.Value = True Then Text1.FontBold = True

ElseIf Option3.Value = False Then Text1.FontBold = False End If

End Sub

Private Sub Option4_Click() If Option4.Value = True Then Text1.FontItalic = True Text1.FontBold = True

ElseIf Option4.Value = False Then Text1.FontItalic = False Text1.FontBold = False End If End Sub

本文来源：https://www.dywdw.cn/bf697982d4d8d15abe234e68.html