在RichTextBox输入一段文字,选中部分内容,然后执行菜单中的字体设置命令,设置RichTextBox的SelFontName属性,但是不行,为什么?需要什么设置?
解决方案 »
- 高手们进来下!!忽忽,为什么我做好的程序在网吧的服务器上怎么变超慢了
- 高手请解答,如何 点一个按钮,然后弹出象windows一样,能读取文件的对话框!
- datagrid中如何得到显示的总行数?用什么函数实现?
- ADODB.RECORDSET中为什么我在符值时,告诉我数据库不能更改?
- VB使用api函数关闭程序的问题
- !!!!!!求水晶报表6.5及相关资料下载!!!!!!
- 看看这代码,怎么定义RESOURCEUSAGE_CONTAINER变量?
- 有请版主 playyuer 帮忙
- 紧急!!!一个VB6编写的邮件接收程序,总是运行报错,请高手帮忙解决!!
- 请教一个SQL语句的写法?
- 请教个文本框光标问题
- 请教:多目标优化问题OPTIONS.MaxFunEvals的设置问题
Private Sub Command1_Click()
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont
If Trim(CommonDialog1.FontName) = "" Then Exit Sub
RichTextBox1.SelColor = vbRed
RichTextBox1.SelFontName = CommonDialog1.FontName
End Sub