『壹』 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