Question

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

包括 界面设计，力求规整，美观！一定给高分 高手帮帮忙吧
www.1131636958@qq.com

Answer 1

Private Sub Check1_Click(Index As Integer)
If Index = 0 Then
If Text1.FontBold = False Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
ElseIf Index = 1 Then
If Text1.FontItalic = False Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
ElseIf Index = 2 Then
If Text1.FontUnderline = False Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End If
End Sub

Private Sub Combo1_Click()
Text1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click(Index As Integer)
If Index = 1 Then
Text1.Font = "仿宋_GB2312"
ElseIf Index = 2 Then
Text1.Font = "黑体"
ElseIf Index = 3 Then
Text1.Font = "楷体_GB2312"
End If
End Sub

Private Sub Text2_Change()
Text1.FontSize = Val(Text2.Text)
End Sub

Private Sub Text3_Change(Index As Integer)
Text1.ForeColor = RGB(Val(Text3(0)), Val(Text3(1)), Val(Text3(2)))
End Sub

Answer 2

留下e-mail

追问

发我邮箱号吗？ 上面的邮箱错了 这个 www.1131636959@qq.com

追答

做了一半了，遇到了问题、、、
是【字体】还是【字形】？
字体：宋体、楷书
字形：粗体、斜体

追问

是字体！ 我把提问再说一遍吧：编写程序，实现设置文本框内文本 字体、大小、颜色 的功能，要求用到框架、控件数组和单选按钮实现颜色的设置，列表框实现字体的设置，组合框实现大小的设置。
需要把 窗体和工程文件，或者工程内所有的文件 打包发过来 我真的不懂 。谢谢咯

追答

OK，稍后发送、、、
发送中、、、