重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
给点提示吧,已粗体为例(完全是我自己的方法,不知别人是怎么做的):
创新互联建站服务项目包括许昌网站建设、许昌网站制作、许昌网页制作以及许昌网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,许昌网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到许昌省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
'先获取选择的字体信息(字体、大小、样式。。。)
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
@"文件夹位置"
"\Fonts\dmw.ttf"
dmw.ttf的完整路径。