vb用代碼改變字體大小

1. 怎樣修改VB代碼的字體大小

修改VB代碼的字體、大小、以及顏色可以參考下面的代碼：

PrivateSubForm＿Load

Label1。字體＝＂常規＂；將字體改為常規字體

Label1。字形大小＝50」字形大小

改變字體顏色DAO為紅色為前樓＝vbRed＇

Label1。標簽自動改變大小與文本內容

EndSub

(1)vb用代碼改變字體大小擴展閱讀：

vb參考函數

Do．．．Loop語句：當條件為True或者當條件變為True時，重復一語句塊。

Empty：表示未初始化的變數的值。

Eqv運算符： 使兩個表達式相等。

Erase語句：重新初始化固定數組的元素，並為動態數組重新分配存儲空間。

Err對象：包含有關運行時錯誤的信息。

2. VB程序中改變字體的代碼是

1、首先，我們點擊菜單欄中的工具按鈕。

3. 創建VB工程，運行時可將文本框中的文字字型大小隨機放大和縮小(求程序代碼）

放大
Private Sub Command1_Click()
Dim x
x = Int((5 * Rnd) + 1)
Text1.FontSize = x * 30
End Sub
縮小
Private Sub Command2_Click()
Dim x
x = Text1.FontSize
x = x - Int((x * Rnd) + 1)
Text1.FontSize = IIf(x = 0, 30, x)
End Sub

4. VB 想使標簽控制項中字型大小大小改變，假如原來是3號字體，變成四號字體 用代碼怎麼寫

我來完完整整地寫給你代碼吧。

（如圖）首先在窗體form1中部畫一個標簽控制項Label1，然後畫三個命令按鈕Command1(放大)、Command2(縮小)、Command3(將此命令再復制三個出來組成一個「四個command3」的數組控制項代表「→」「←」「↑」「↓」)，屬性均為默認，最後復制以下代碼到代碼窗口運行即可：

PrivateSubCommand1_Click()'放大命令

Label1.Font.Size=Label1.Font.Size+1

EndSub

PrivateSubCommand2_Click()'縮小命令

Label1.Font.Size=Label1.Font.Size-1

EndSub

PrivateSubCommand3_Click(IndexAsInteger)'移動命令（是command3組成的數組控制項）

SelectCaseIndex

Case0『Command3的index=0時

IfLabel1.Left+Label1.Width<Me.ScaleWidthThen

Label1.Left=Label1.Left+50

EndIf

Case1『Command3的index=1時

IfLabel1.Left>0Then

Label1.Left=Label1.Left-50

EndIf

Case2『Command3的index=2時

IfLabel1.Top>0Then

Label1.Top=Label1.Top-50

EndIf

Case3『Command3的index=3時

IfLabel1.Top+Label1.Height<Me.ScaleHeightThen

Label1.Top=Label1.Top+50

EndIf

EndSelect

EndSub

PrivateSubForm_Load()

Label1.Caption="VB應用程序！"

Label1.Font.Size=16

Label1.AutoSize=True

Label1.Font.Bold=True

EndSub

5. VB中用組合框進行字體和字型大小變換的代碼怎麼寫

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text

End Sub

Private Sub Combo2_Click() Combo2代表列表框，Click是「單擊事件」

Text1.FontSize = Combo2.Text
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "黑體" 常用方法：
Combo1.AddItem "宋體" AddItem // 對象名.AddItem Item [index] //
Combo1.AddItem "隸書" 對象名,是列表框的名稱
Combo1.AddItem "華文中宋" Item ， 是一個字元表達式
Combo1.AddItem "方正舒體" index ，表示新增加的列表項在列表中的位置，
Combo1.Text = Combo1.List(0) 如果不寫，則添加到列表框的的末尾處 。

Combo2.AddItem 10
Combo2.AddItem 12
Combo2.AddItem 14
Combo2.AddItem 16
Combo2.AddItem 18
Combo2.Text = Combo2.List(0)

End Sub