vb.net获取系统字体 vbnet imports

vb.net 字体设置

给点提示吧vb.net获取系统字体，已粗体为例（完全是我自己vb.net获取系统字体的方法vb.net获取系统字体，不知别人是怎么做的）：

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

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

'在重新定义某种样式的时候，不丢失其vb.net获取系统字体他信息

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

相关问答

Q1: VB.NET 如何调用外界字体来使用

@"文件夹位置"

"\Fonts\dmw.ttf"

dmw.ttf的完整路径。

Q2: vb.net注册字体问题

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

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

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

Q3: vb.net 字体如何设置？（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

Q4: vb.net如何检查系统版本和系统里是否装有微软雅黑字体？？

Private Sub Form_Load()

 r=Dir(C:\WINDOWS\Fonts\微软雅黑.ttf) ‘在C盘WINDOWS文件夹fonts中查找微软雅黑

    If r""then

     ...(...填入)确认文件存在

     Else

     ...(...填入)确认文件不存在

     End if

End Sub

vb.net获取系统字体的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet imports、vb.net获取系统字体的信息别忘了在本站进行查找喔。