可以利用font 設(shè)置。設(shè)置方法如下:
創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)與策劃設(shè)計,靈丘網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)十年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:靈丘等地區(qū)。靈丘做網(wǎng)站價格咨詢:18982081108
TextBox1.Font = New System.Drawing.Font("宋體", 10)
也可以通過字體對話框來實現(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
給點提示吧,已粗體為例(完全是我自己的方法,不知別人是怎么做的):
'先獲取選擇的字體信息(字體、大小、樣式。。。)
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定義某種樣式的時候,不丟失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
這個是可以使用api來做的。圖像處理之類的函數(shù)。
另外,還有一種方法是將所有的字符和數(shù)字做成不同的小圖片進(jìn)行拼接而成的一個字符串序列;
小圖片要自己去做;效果就可以任意展現(xiàn)了。
看樣要重新定義個Font對象,在構(gòu)造函數(shù)中定義它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '參數(shù)都用原來字體參數(shù),只有大小改成你需要的。
End With