vb字體標准還原代碼

⑴ vb中不知道文本框原始字型大小,經過放大縮小後怎麼恢復

可以設置一個全局變數a：Dim a As Integer,把窗體運行時的字體賦給a：Private Sub Form_Load() a =（對象名）.FontSize End Sub 然後就可以在放大縮小之後令內fontsize=a使得字型大小變成原始容字型大小了。

⑵ VB字體還原的問題。

private sub command1_click() '放大
label1.fontsize=label1.fontsize*3
end sub
private sub command2_click() '加粗
label1.FontBold=true
end sub
private sub command3_click() '下劃線
label1.FontUnderline =true
end sub

private sub command4_click() '還原
label1.fontsize=label1.fontsize/3
label1.FontBold=false
label1.FontUnderline =false
end sub

⑶ 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

⑷ vb中怎麼使text1字體變大縮小還原，用三個command按鈕

Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + 1
End Sub

Private Sub Command2_Click()
Text1.FontSize = Text1.FontSize - 1
End Sub

Private Sub Command3_Click()
Text1.FontSize = 9
End Sub