该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
刚写的渣代码......太冗余了....
Private Sub Check1斜体_Click()
If Check1斜体.Value = 1 Then
Text1.FontItalic = True
Else: Text1.FontItalic = False
End If
End Sub
Private Sub Check2粗体_Click()
If Check2粗体.Value = 1 Then
Text1.FontBold = True
Else: Text1.FontBold = False
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Option1红_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option2黄_Click()
Text1.ForeColor = vbYellow
End Sub
Private Sub Option318_Click()
Option318.Value = True
Text1.FontSize = 18
End Sub
Private Sub Option3蓝_Click()
Text1.ForeColor = vbBlue
End Sub
Private Sub Option420_Click()
Option420.Value = True
Text1.FontSize = 20
End Sub
Private Sub Option4绿_Click()
Text1.ForeColor = vbGreen
End Sub
Private Sub Option512_Click()
Option512.Value = True
Text1.FontSize = 12
End Sub
Private Sub Option616_Click()
Option616.Value = True
Text1.FontSize = 16
End Sub

怎么改变VB中文本框字体颜色？
为所选颜色上色。要使用此属性，必须首先将flags属性设置为cdlccfeffects。Fontbold是否选择了粗体。Fontitalics是否选择了斜体。Fontstrikethru是否选择了删除线。Fontunderline是否选中下划线。字体名称选定字体的名称。如何在VB中更改文本框的字体颜色
如果使用VB标准文本框控件，则无法实现所需的功能，因为其中的文本是纯文本，并且没有格式化。红色的一部分和另一部分的颜色是不可能改变的。建议您使用“富文本框控件”，即RichTextBox。不仅可以使用不同的颜色，而且可以在同一个文本中使用不同大小、粗细和样式的字体，甚至可以插入图片，这具有word文档的基本功能。
VB中如何改变文字颜色？
将组合框和文本框控件添加到VB并输入以下代码。
在表单中添加字体大小值到加载中的组合控件。
私有子表单_Load()
Combo1。添加项目“12”
组合1。添加项目“14”
组合1。AddItem“16”
end sub
在文本框中键入任意单词，然后单击Combo1值，同时更改text1文本大小。
私有子组合1_Click()
文本1。字体大小=组合1。Text
VB文本框中，怎么改变字体大小？
“控制文本框text1，五个按钮command1到command5private sub command1，Click()”increase font text1.fontsize=text1.fontsize 1end subprivate sub command2Click()“如果文本1，缩小字体。Fontsize&gt 2然后文本1。Fontsize=文本1。字体大小-