VB 文本框字体

来源：百度知道 编辑：UC知道 时间：2024/05/10 19:13:33
最近用VB做了个局域网聊天软件，目前已实现了基本的聊天，但无法做到自定义字体，譬如你修改的文字在信息框里就能显示，但在发送到聊天框时就又变回了默认的字体，请问如何做得跟QQ一样能显示自定义颜色和字体呢？
但如果是两个人对聊的字体设置得不一样怎么办？
回三楼，我是用RICHBOX，应该是你说的那个吧

要把字体的属性一起发送，在另一头接受时再给字体设置显示

不一样也没有关系啊，不是有发送了字体的属性的数据了吗，用这些属性来显示就可以了

比如：

Private Sub Command2_Click()

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelFontName = "隶书"
RichTextBox1.SelColor = vbRed
RichTextBox1.SelFontSize = 12
RichTextBox1.SelText = "g根据点焊"

End Sub

Private Sub Command3_Click()
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelFontName = "宋体"
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelFontSize = 14
RichTextBox1.SelText = "g根据点焊"
End Sub

让聊天框的richtext控件的font属性等于信息框的控件font属性就可以了啊

可以用VB的commondialog控件啊
工程-部件-“Microsoft common dialog control 6.0”选择

CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时，控件还能够显示帮助。

CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框，必须要求Commdlg.dll 在 Microsoft Wind