Private Sub Form_Load()
创新互联专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、成都做网站、东丰网络推广、小程序设计、东丰网络营销、东丰企业策划、东丰品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供东丰建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
r=Dir(C:\WINDOWS\Fonts\微软雅黑.ttf) ‘在C盘WINDOWS文件夹fonts中查找微软雅黑
If r""then
...(...填入)确认文件存在
Else
...(...填入)确认文件不存在
End if
End Sub
1、2和3:你怎么改的,就怎么恢复默认
3:textbox1.font=new
font(
字体
名称，字体大小，
字形
)，字形有加粗常规倾斜
下划线
等几种。
给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：
'先获取选择的字体信息（字体、大小、样式。。。）
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候，不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
可以利用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
您好。修改FORM的Font属性就可以修改窗体和其中所有控件的字体。
Me.Font = New System.Drawing.Font("宋体", 10)
另外，FORM标题栏的TEXT字体和颜色是操作系统决定的，要想改变，只能调用系统的api函数，截获操作系统的消息来改变。
下面的网址有C#版本的重绘标题栏范例
软糖的回答满意吗，请及时采纳，谢谢。
在给所有顶层窗口发送消息之前需要在注册表中记录字体：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
否则是无法显示在系统的字体列表中的。
