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