vb.net 字體設(shè)置

給點提示吧，已粗體為例（完全是我自己的方法，不知別人是怎么做的）：

成都創(chuàng)新互聯(lián)公司主要從事成都網(wǎng)站設(shè)計、成都做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)東方,十載網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18982081108

'先獲取選擇的字體信息（字體、大小、樣式。。。）

Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont

'在重新定義某種樣式的時候，不丟失其他信息

RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)

跪求：VB.NET字體的變換

這個太簡單了吧.

Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim style As FontStyle

If Me.CheckBox1.Checked Then

style = style Or FontStyle.Bold

End If

If Me.CheckBox2.Checked Then

style = style Or FontStyle.Italic

End If

If Me.CheckBox3.Checked Then

style = style Or FontStyle.Underline

End If

Dim myFont As Font = New Font(TextBox1.Text, 20, style, GraphicsUnit.Pixel)

If TextBox1.Text.ToLower "microsoft sans serif" And myFont.Name.ToLower = "microsoft sans serif" Then

MessageBox.Show("不存在該字體!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)

Return

End If

Label1.Font = myFont

End Sub

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CheckBox1.Text = "黑體"

Me.CheckBox2.Text = "斜體"

Me.CheckBox3.Text = "下劃線"

End Sub

End Class

vb.net 字體如何設(shè)置？（font，fontfamily）

可以利用font 設(shè)置。設(shè)置方法如下：

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

VB.net中怎么通過代碼對textbox中的font下的各個屬性進行修改？

通過下面的方法進行修改：

TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) ? ? ? 'Arial字體,大小:16,粗體

'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) ? ?'Arial字體,大小:16,斜體

'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) ? 'Arial字體,大小:16,正常

'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字體,大小:16,刪除線

'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字體,大小:16,下劃線

TextBox1.ForeColor = Color.Red ?'前景色

VB.NET的簡介

VB.net是微軟最新平臺技術(shù)，是.netframeworkSDK的一種語言。VB.net和VC#.net在功能上沒有區(qū)別。編譯以后生成的可執(zhí)行文件被稱為Assembly，即程序集。

VB.net的版本號是VisualBasic7.0，它的運行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虛擬器上的。其實，它的機制和Java差不多。

VB.NET的特點

1.真正成為面向?qū)ο笠约爸С掷^承性的語言。

2.窗體設(shè)計器支持可視化繼承，并且包含了許多新的特性，比如自動改變窗體大小、資源本地化支持、數(shù)據(jù)類工具內(nèi)在支持XML數(shù)據(jù)。

3.直接建立在.NET的框架結(jié)構(gòu)上，因此開發(fā)人員可以充分利用所有.NET平臺特性，也可以與其他的.NET語言交互。

4.為Windows應(yīng)用程序提供了XCOPY部署，開發(fā)者不再需要為DLL的版本問題擔憂。

VB.net的語言特點：

1.代碼托管。被托管的代碼享受.netframework提供的安全保障和垃圾回收機制，但是這也同時表明，你的程序被框在Framework里面了。API變得不太方便。

2.強大的面向?qū)ο筇匦浴，F(xiàn)在VB7已經(jīng)是一個完全的面向?qū)ο蟪绦颉?/p>

現(xiàn)在VB7已經(jīng)支持類的各種特性：繼承，函數(shù)的覆蓋，重載，虛擬，隱藏??

3.功能強大，程序界面更標準。

4.程序代碼結(jié)構(gòu)化更強，開發(fā)環(huán)境舒適體貼。

vb.net如何設(shè)置FORM的text字體

您好。修改FORM的Font屬性就可以修改窗體和其中所有控件的字體。

Me.Font?=?New?System.Drawing.Font("宋體",?10)

另外，F(xiàn)ORM標題欄的TEXT字體和顏色是操作系統(tǒng)決定的，要想改變，只能調(diào)用系統(tǒng)的api函數(shù)，截獲操作系統(tǒng)的消息來改變。

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

軟糖的回答滿意嗎，請及時采納，謝謝。