Private?Sub?Form_Load()
創(chuàng)新互聯專注為客戶提供全方位的互聯網綜合服務,包含不限于成都網站設計、成都做網站、東豐網絡推廣、小程序設計、東豐網絡營銷、東豐企業(yè)策劃、東豐品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;創(chuàng)新互聯為所有大學生創(chuàng)業(yè)者提供東豐建站搭建服務,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(
字體
名稱,字體大小,
字形
),字形有加粗常規(guī)傾斜
下劃線
等幾種。
給點提示吧,已粗體為例(完全是我自己的方法,不知別人是怎么做的):
'先獲取選擇的字體信息(字體、大小、樣式。。。)
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字體和顏色是操作系統(tǒng)決定的,要想改變,只能調用系統(tǒng)的api函數,截獲操作系統(tǒng)的消息來改變。
下面的網址有C#版本的重繪標題欄范例
軟糖的回答滿意嗎,請及時采納,謝謝。
在給所有頂層窗口發(fā)送消息之前需要在注冊表中記錄字體:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
否則是無法顯示在系統(tǒng)的字體列表中的。