当前位置：首页 - 正文

VB设计文本编辑器,如何设置字体与段落?

发布网友发布时间：2022-07-27 22:49

我来回答

共4个回答

热心网友时间：2023-10-31 14:27

按Ctrl+T

选中microsoft common dialog control

改名为cdg1

输入

cdg1.FontBold = Form1.Label1.FontBold

cdg1.FontSize = Form1.Label1.FontSize

cdg1.Color = Form1.Label1.ForeColor

cdg1.Flags = cdlCFBoth Or cdlCFEffects

Form1.Label1.FontBold = Form5.cdg1.FontBold

Form1.Label1.FontSize = Form5.cdg1.FontSize

Form1.Label1.ForeColor = Form5.cdg1.Color

cdg1.ShowFont

热心网友时间：2023-10-31 14:28

修改选定文本字体代码
Private Sub Command1_Click()
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
RichTextBox1.SelFontName = CommonDialog1.FontName
RichTextBox1.SelFontSize = CommonDialog1.FontSize
RichTextBox1.SelColor = CommonDialog1.Color
RichTextBox1.SelBold = CommonDialog1.FontBold
RichTextBox1.SelItalic = CommonDialog1.FontItalic
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline
RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru
End Sub
修改背景颜色代码
Private Sub Command2_Click()
CommonDialog1.ShowColor
RichTextBox1.BackColor = CommonDialog1.Color
End Sub

热心网友时间：2023-10-31 14:28

不好意思没看清楚你已经调用字体对话框了。。。。

热心网友时间：2023-10-31 14:29

用VC吧，里面有模版

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

VB设计文本编辑器,如何设置字体与段落?

最新推荐

猜你喜欢

热门推荐