编写程序,实现设置文本框内文本 字体、大小、颜色 的功能,要求用到框架和控件数组

Private Sub Check1_Click(Index As Integer)

If Index = 0 Then

If Text1FontBold = False Then

Text1FontBold = True

Else

Text1FontBold = False

End If

ElseIf Index = 1 Then

If Text1FontItalic = False Then

Text1FontItalic = True

Else

Text1FontItalic = False

End If

ElseIf Index = 2 Then

If Text1FontUnderline = False Then

Text1FontUnderline = True

Else

Text1FontUnderline = False

End If

End If

End Sub

Private Sub Combo1_Click()

Text1FontSize = Val(Combo1Text)

End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click(Index As Integer)

If Index = 1 Then

Text1Font = "仿宋_GB2312"

ElseIf Index = 2 Then

Text1Font = "黑体"

ElseIf Index = 3 Then

Text1Font = "楷体_GB2312"

End If

End Sub

Private Sub Text2_Change()

Text1FontSize = Val(Text2Text)

End Sub

Private Sub Text3_Change(Index As Integer)

Text1ForeColor = RGB(Val(Text3(0)), Val(Text3(1)), Val(Text3(2)))

End Sub

界面比较复杂，需要说明，如果看不到去我的hi baidu

Private Sub Combo1_Click()

Text1FontName = Combo1Text

End Sub

Private Sub Combo2_Click()

Text1FontSize = Val(Combo2Text)

End Sub

Private Sub Form_Load()

Combo1AddItem "宋体"

Combo1AddItem "黑体"

Combo1AddItem "楷体_GB2312"

Combo1Text = "宋体"

For i = 12 To 72 Step 2

Combo2AddItem Str(i)

Next i

Combo2Text = "12"

End Sub

以上就是关于编写程序,实现设置文本框内文本 字体、大小、颜色 的功能,要求用到框架和控件数组全部的内容，包括:编写程序,实现设置文本框内文本 字体、大小、颜色 的功能,要求用到框架和控件数组、急！！！vb编程:编写利用组合框对文字的字体和大小进行设置的程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！