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