建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
vb.net中，如何用代碼設(shè)置字體及字號(hào)？不要談對(duì)話(huà)框的那種
"Me.RichTextBox1.SelectionFont
站在用戶(hù)的角度思考問(wèn)題，與客戶(hù)深入溝通，找到南山網(wǎng)站設(shè)計(jì)與南山網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶(hù)體驗(yàn)好的作品，建站類(lèi)型包括：成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名注冊(cè)、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋南山地區(qū)。
=
New
Font("宋體",
14.25!,
FontStyle.Bold
Or
FontStyle.Italic)"
VB.net中如何在代碼中設(shè)置文本框字體的大小
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Dim a As FontStyle
a = Me.TextBox1.Font.Size
Dim b As Single = a * 10
Me.TextBox1.Width = Me.TextBox1.Width * 10
Me.TextBox1.Font = New System.Drawing.Font("PMingLiU ", b, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) '放大10倍，若僅10號(hào)字體，則將b改為10
End Sub
vb.net 代碼調(diào)整字體大小
看樣要重新定義個(gè)Font對(duì)象，在構(gòu)造函數(shù)中定義它的大小，
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '參數(shù)都用原來(lái)字體參數(shù)，只有大小改成你需要的。
End With
VB怎么用代碼設(shè)置字體字號(hào)還有字體顏色
在VB6中可以通過(guò)設(shè)置對(duì)象的Font屬性設(shè)置字體字號(hào)，F(xiàn)oreColor屬性設(shè)置字體顏色。
例如，下面代碼實(shí)現(xiàn)設(shè)置文本框中的字體為”隸書(shū)“字號(hào)28磅，字體顏色為紅色
Private Sub Command1_Click()
Text1.Font.Size = 28
Text1.Font.Name = "隸書(shū)"
Text1.ForeColor = vbRed
End Sub
vb.net如何設(shè)置FORM的text字體
您好。修改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)的消息來(lái)改變。
下面的網(wǎng)址有C#版本的重繪標(biāo)題欄范例
軟糖的回答滿(mǎn)意嗎，請(qǐng)及時(shí)采納，謝謝。
VB.NET文本框中的文本格式進(jìn)行相應(yīng)的設(shè)置
太晚了，想不出什么好方法了。
發(fā)上來(lái)看看吧。
首先建立一個(gè)TextBox,我這里名字為T(mén)extBox2
然后放一個(gè)groupbox，在里頭放兩個(gè)Checkbox,checkbox1為粗體，checkbox2為斜體。
代碼：
Dim Bold As Boolean
Dim Italic As Boolean
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
Bold = True
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold Or FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
End If
Else
Bold = False
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
Italic = True
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic Or FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
End If
Else
Italic = False
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
可以等等別人回答，看看有沒(méi)有更好的方法。
本文標(biāo)題：vb.net設(shè)置文本字號(hào),vb中設(shè)置字體的代碼
瀏覽地址：http://fisionsoft.com.cn/article/hdhoho.html
