vb.net中，如何用代碼設(shè)置字體及字號(hào)？不要談對(duì)話框的那種

"Me.RichTextBox1.SelectionFont

站在用戶的角度思考問題，與客戶深入溝通，找到南山網(wǎng)站設(shè)計(jì)與南山網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：成都網(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ù)都用原來字體參數(shù)，只有大小改成你需要的。

End With

VB怎么用代碼設(shè)置字體字號(hào)還有字體顏色

在VB6中可以通過設(shè)置對(duì)象的Font屬性設(shè)置字體字號(hào)，F(xiàn)oreColor屬性設(shè)置字體顏色。

例如，下面代碼實(shí)現(xiàn)設(shè)置文本框中的字體為”隸書“字號(hào)28磅，字體顏色為紅色

Private Sub Command1_Click()

Text1.Font.Size = 28

Text1.Font.Name = "隸書"

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)的消息來改變。

下面的網(wǎng)址有C#版本的重繪標(biāo)題欄范例

軟糖的回答滿意嗎，請(qǐng)及時(shí)采納，謝謝。

VB.NET文本框中的文本格式進(jìn)行相應(yīng)的設(shè)置

太晚了，想不出什么好方法了。

發(fā)上來看看吧。

首先建立一個(gè)TextBox,我這里名字為TextBox2

然后放一個(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

可以等等別人回答，看看有沒有更好的方法。