『壹』 VB.NET，如何用代码实现改变字体、颜色、加粗，以及恢复默认
1、2和3：你怎么改的,就怎么恢复默认
3：textbox1.font=new font(字体名称，字体大小，字形)，字形有加粗常规倾斜下划线等几种。
『贰』 vb中不知道文本框原始字号,经过放大缩小后怎么恢复
可以设置一个全局变量a：Dim a As Integer,把窗体运行时的字体赋给a：Private Sub Form_Load() a =（对象名）.FontSize End Sub 然后就可以在放大缩小之后令内fontsize=a使得字号变成原始容字号了。
『叁』 VB中鼠标单击按钮使字体变粗，再次单击使字体恢复原来样子的代码
在原代码的基础上再加一句代码
if text1.fontbold=true then text1.fontbold=false
将这句写在end Sub 之前。
『肆』 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字体恢复原状
可以设置一个全局变量a：Dim a As Integer,把窗体运行时的字体赋给a：Private Sub Form_Load() a =（对象名）.FontSize End Sub 然后就可以在放大回缩小之后令fontsize=a使得字号变答成原始字号了。
『陆』 VB.NET，如何用代码实现改变字体、颜色、加粗，以及恢复默认
1、2和3:你怎么改的,就怎么恢复默认
3:textbox1.font=new
font(
字体
名称，字体大小，
字形
)，字形有加粗常规倾斜
下划线
等几种。
『柒』 创建VB工程，运行时可将文本框中的文字缩小以及还原。程序代码怎么写
我计算过了 一磅约等于20缇 也就是窗体控件的坐标点 约等于20点
经过计算 字体大小为30的一内个字 正好容是600缇 也就是30榜
Public a as single
Private sub form_load()
text1.fontsize=30
a=30
end sub
private sub command1_click()
a=a/2
text1.fontsize=a '我试验过了 当fontszie赋值为7.5和3.25的时候都不会报错 并且fontszie为15的时候 长宽正好为原来的一半 300缇 ……
end sub
private sub command2_click()
a=2*a
text1.fontsize=a '单击按钮2的时候扩大一倍
end sub
『捌』 VB编程中，设计点击command1,label1中的字体恢复到初始状态。
Private Sub Command1_Click()
Label1.FontName = Me.FontName
Label1.FontSize = Me.FontSize
End Sub
『玖』 VB运行时我在输入汉字的时字变成其他字，求恢复
我记得有些VB6.0的编译器在调试过程中输入汉字是会变乱码的，但实际上并没有太大的影响。你可以尝试着生成EXE程序后运行使用看看，如果继续出现乱码的问题，有两个方法是比较简单的：一、重新找个VB6.0重新安装（网上有挺多的，标准的、精简的、企业的、病毒的、没用的、骗人的。。。都有）。二、可能是系统的文字处理出问题 了，你可以看看其他程序输入时会不会出现这个问题，如果会就重新安装系统把（这个可能性不大，慎用）
祝你快点解决问题把，老实说我如果写程序写着写着发现自己的程序出问题了，而且不是代码的问题，我也会很郁闷的。。。
『拾』 vb中要求Private Sub Clear_Click()后清除text1中的字体格式，恢复至新建text1时的默认值 求代码
Private Sub Clear_Click()
Text1.Font.Name = "宋体"
Text1.ForeColor = &H80000008
Text1.Font.Bold = False
Text1.Font.Italic = False
Text1.Font.Size = 12
Text1.Font.Underline = False
End Sub