VB 動態變更文字大小、字型、字體－eeStuff - All About Electronics Engineering

由於功能相同，所以僅針對變更大小與字體各取一例示範：

首先，我們會使用到以下變數

這是因為建立一個新的Font物件會使用到(字型, 大小, 樣式)3個引數

Font f = new Font(字型, 大小, 樣式)

Dim fs As System.Drawing.FontStyle '字體粗/斜/正常/底線...
Dim fm As System.Drawing.FontFamily '字型新細明體...
Dim f As System.Drawing.Font '定義文字的格式，包含字體字型大小...
Dim fSize As Single '文字大小

'變更為14號大小

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   fs = TextBox1.Font.Style
   fm = TextBox1.Font.FontFamily
   f = New Font(fm, 14, fs)
   TextBox1.Font = f
End Sub

'變更為斜體

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
   fs = FontStyle.Italic
   fm = TextBox1.Font.FontFamily
   fSize = TextBox1.Font.Size
   f = New Font(fm, fSize, fs)
   TextBox1.Font = f
End Sub

VB版範例程式下載