十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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
否则是无法显示在系统的字体列表中的。