从品牌网站建设到网络营销策划,从策略到执行的一站式服务
可以使用GetItemText
创新互联从2013年成立,先为朗县等服务建站,朗县等地企业,进行企业商务咨询服务。为朗县企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
方法:返回指定项的文本表示形式。使用形式如下:
GetItemText(item)
在给所有顶层窗口发送消息之前需要在注册表中记录字体:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
否则是无法显示在系统的字体列表中的。
可以利用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
@"文件夹位置"
"\Fonts\dmw.ttf"
dmw.ttf的完整路径。
给点提示吧,已粗体为例(完全是我自己的方法,不知别人是怎么做的):
'先获取选择的字体信息(字体、大小、样式。。。)
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候,不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
Private Sub Form_Load()
r=Dir(C:\WINDOWS\Fonts\微软雅黑.ttf) ‘在C盘WINDOWS文件夹fonts中查找微软雅黑
If r""then
...(...填入)确认文件存在
Else
...(...填入)确认文件不存在
End if
End Sub
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图