vb点虐 注册字体 vb字体的代码

vb点虐 字体设置

给点提示吧,已粗体为例(完全是我自己的方法,不知别人是怎么做的):

成都创新互联公司成立于2013年,我们提供高端网站建设公司成都网站制作网站设计、网站定制、营销型网站建设微信小程序开发、微信公众号开发、成都网站营销服务,提供专业营销思路、内容策划、视觉设计、程序开发来完成项目落地,为轻质隔墙板企业提供源源不断的流量和订单咨询。

'先获取选择的字体信息(字体、大小、样式。。。)

Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont

'在重新定义某种样式的时候,不丢失其他信息

RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)

vb点虐 注册字体问题

在给所有顶层窗口发送消息之前需要在注册表中记录字体:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

否则是无法显示在系统的字体列表中的。

vb点虐 字体如何设置?(font,fontfamily)

可以利用font 设置。设置方法如下:

TextBox1.Font = New System.Drawing.Font("宋体", 10)

也可以通过字体对话框来实现 如:

Private Sub myButton_Click(sender As Object, e As EventArgs)

Dim myFontDialog As FontDialog

myFontDialog = New FontDialog()

If myFontDialog.ShowDialog() = DialogResult.OK Then

' Set the control's font.

myDateTimePicker.Font = myFontDialog.Font

End If

End Sub


本文题目:vb点虐 注册字体 vb字体的代码
网页网址:http://scjbc.cn/article/ddejcsh.html

其他资讯