你可用下面方法设置文本框的字体字号 With UserForm1.TextBox1.Font .Name = ＂宋体＂ .Size = 20 End With 如果用一个参数来给size赋值,加上循环语句的话就可实现你的功能了.不知这是不是你想要的功能
在代码中编译 font=＂＂ fontname=＂＂ fontcolor=＂＂ .
字体和字型和字号都在font里面,颜色在forecolor里可以设置.如果要用代码的话就是:设置具体字号是 text1.FontSize = ＂45＂ ps:双引号内的字号可以随意更改 或者是每点击一次加大一次 text1.fontsize= text1.fontsize +1 设置具体的字体 text1
RichTextBox 控件RichTextBox 控件不仅允许输入和编辑文本,同时还提供了标准 TextBox 控件未具有的、更高级的指定格式的许多功能.语法RichTextBox说明RichTextBox 提供了一些属性,对于本控件文本的任何部分,用这些属性都可以指定
点中text,在又边属性窗口中找到forecolor,和backcolor 是设置颜色的,font 对应的是设置字体和样式的
虽然这问题很简单,可是非常遗憾的告诉你,帮不到你,谢谢
可以设置字体、字号、颜色、粗体,可以参考的.
用Text1.FontSize属性改变大小 Text1.FontSize = 8 '6号字体 Text1.FontSize = 24 '放大3倍
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Text1.Enabled = False PopupMenu Me.右击 Text1.Enabled = TrueEnd IfEnd SubPrivate Sub text背景
RichTextBox1.SelColor = vbRedRichTextBox1.SelFontName = ＂黑体＂RichTextBox1.SelFontSize = 162种控件 前者可以设置 选中字符的颜色 后者只能全部统一设置Text1.FontName = ＂宋体＂Text1.FontSize = 12Text1.ForeColor = vbRed