大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
两种方法:
十年的泾川网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都全网营销的优势是能够根据用户设备显示端的尺寸不同,自动调整泾川建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联从事“泾川网站设计”,“泾川网站推广”以来,每个客户项目都认真落实执行。
鼠标点击。选中该窗体,在右边属性窗口的列表中有一项“Font”,点击“宋体”边的小按钮,会弹出字体设置对话框,还有一项“ForeColor”就是设置字体颜色的。
编写代码:
me.ForeColor = vbRed '红色
me.FontSize = 30 '30磅
me.FontName = "黑体" '黑体
给点提示吧,已粗体为例(完全是我自己的方法,不知别人是怎么做的):
'先获取选择的字体信息(字体、大小、样式。。。)
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候,不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.ForeColor = Color.Red
Else
TextBox1.ForeColor = Color.Black
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
TextBox1.BackColor = Color.Yellow
Else
TextBox1.BackColor = Color.White
End If
End Sub
VB可设置文本框属性ForeColor值来改变文本的前景颜色。
ForeColor 属性
ForeColor-返回或设置在对象里显示图片和文本的前景颜色。
Private Sub Form_Load()
Text1.ForeColor = vbRed '这是设置为红色
End Sub
控件名.ForeColor = vbRed
如果要改为其他颜色的话,直接把“red”改为其他颜色所对应的英文,如要改为蓝色,则为“vbBlue”