跪求！！！用【字体】和【颜色】对话框设置文本框文字_百度知道

来源：百度知道 编辑：UC知道 时间：2024/09/21 04:24:14
该怎么编写程序？
请写出完整的代码
利用通用对话框设置文本框的字体(包括字体名、字号、粗体、斜体、下划线、删除线和颜色)，并且设置文本框的背景色。
这该怎么做呀？？VB

Private Sub Command1_Click()
On Error GoTo err:
a = InputBox("请输入字体，如宋体、黑体", "字体设置")
Text1.FontName = a
a = InputBox("请输入字体大小，如20，30", "字体设置")
Text1.FontSize = a
a = InputBox("请输入字体是否粗体，如true，false", "字体设置")
Text1.FontBold = a
a = InputBox("请输入字体是否斜体，如true，false", "字体设置")
Text1.FontItalic = a
a = InputBox("请输入字体是否加中线，如true，false", "字体设置")
Text1.FontStrikethru = a
a = InputBox("请输入字体是否加下划线，如true，false", "字体设置")
Text1.FontUnderline = a
a = InputBox("请输入字体的颜色，如&H00，&HFF", "字体设置")
Text1.ForeColor = a
a = InputBox("请输入字体背景的颜色，如&H00，&HFF", "字体设置")
Text1.BackColor = a
Exit Sub
err:
MsgBox "输入数据错误！"
End Sub

Private Sub Form_Load()
Command1.Caption = "设置字体"
End Sub

你按对话框中的大写A、就可以叻、