可以利用font 設(shè)置。設(shè)置方法如下:
創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)臨夏州,十載網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18982081108
TextBox1.Font = New System.Drawing.Font("宋體", 10)
也可以通過字體對話框來實(shí)現(xiàn) 如:
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)
另外,F(xiàn)ORM標(biāo)題欄的TEXT字體和顏色是操作系統(tǒng)決定的,要想改變,只能調(diào)用系統(tǒng)的api函數(shù),截獲操作系統(tǒng)的消息來改變。
下面的網(wǎng)址有C#版本的重繪標(biāo)題欄范例
軟糖的回答滿意嗎,請及時(shí)采納,謝謝。
能
我們寫exe程序時(shí),默認(rèn)字體是宋體,比較難看,指定了其他字體,但是其他用戶上沒有你指定的這個(gè)字體的話,也會變成默認(rèn)的宋體。解決的辦法有這么幾個(gè):
1,叫用戶安裝相應(yīng)字體,這個(gè)基本不可能實(shí)現(xiàn),因?yàn)闆]有幾個(gè)人會進(jìn)行這樣的操作;
2,給用戶安裝相應(yīng)字體,這個(gè)辦法可行,在制作安裝包時(shí)將字體打包進(jìn)去,然后用戶安裝程序的時(shí)候連字體也一并安裝上去,一勞永逸;
3,把字體導(dǎo)入到程序資源中,讓程序直接調(diào)用字體資源,缺點(diǎn)是導(dǎo)致程序體積巨大;
4,將字體文件放到程序目錄里,在程序里單獨(dú)調(diào)用。
個(gè)人覺得第4種辦法比較方便,所以決定采用這種方法,把代碼寫出來給需要的同學(xué)。
引用:
Imports System.Drawing.Text
public sub Setfont()
dim AppPath as string = Application.StartupPath
try
dim font1 as PrivateFontCollection = new PrivateFontCollection()
font1.AddFontFile(AppPath + "\font\msyh.ttf") '字體的路徑及名字
dim myFont as Font = new Font(font.Families[0].Name, 9,FontStyle.Regular,GraphicsUnit.Point, 134)
'設(shè)置窗體控件字體,哪些控件要更改都寫到下面
label1.Font = myFont
label2.Font = myFont
label3.Font = myFont
button1.Font = myFont
button2.Font = myFont
button3.Font = myFont
button4.Font = myFont
button5.Font = myFont
catch e as exception
MessageBox.Show("字體不存在或加載失敗\n程序?qū)⒁阅J(rèn)字體顯示", "警告",
MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
end try
然后在public sub Form1()
InitializeComponent()
Setfont() '啟動字體設(shè)置函數(shù)
end sub
看樣要重新定義個(gè)Font對象,在構(gòu)造函數(shù)中定義它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '參數(shù)都用原來字體參數(shù),只有大小改成你需要的。
End With
可以使用GetItemText
方法:返回指定項(xiàng)的文本表示形式。使用形式如下:
GetItemText(item)
該參數(shù)枚舉值,采用位運(yùn)算,那么可以用Or把兩者連接起來即可;
New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)
網(wǎng)站名稱:vb.net字體 vb程序字體格式的代碼
瀏覽地址:http://m.rwnh.cn/article20/hiisjo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、響應(yīng)式網(wǎng)站、外貿(mào)建站、企業(yè)建站、軟件開發(fā)、網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)