vb.net中如何用代碼對(duì)textbox下font屬性進(jìn)行修改?

new

昭蘇網(wǎng)站制作公司哪家好，找成都創(chuàng)新互聯(lián)！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、自適應(yīng)網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。成都創(chuàng)新互聯(lián)從2013年開始到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)。

font（“字體名字”，“字號(hào)”，“字形”）

要保持其他屬性不變，，每次只改變其中一個(gè)。

checked為真時(shí)，字形設(shè)置為粗體或其他體，為假時(shí)設(shè)置為正常體

VB.net中怎么通過(guò)代碼對(duì)textbox中的font下的各個(gè)屬性進(jìn)行修改？

通過(guò)下面的方法進(jìn)行修改：

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的簡(jiǎn)介

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

VB.net的版本號(hào)是VisualBasic7.0，它的運(yùn)行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虛擬器上的。其實(shí)，它的機(jī)制和Java差不多。

VB.NET的特點(diǎn)

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

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

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

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

VB.net的語(yǔ)言特點(diǎn)：

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

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

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

3.功能強(qiáng)大，程序界面更標(biāo)準(zhǔn)。

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

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

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

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

也可以通過(guò)字體對(duì)話框來(lái)實(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