VB工程--百例82--改变字号

Option Explicit

Private Sub Command1_Click()
On Error GoTo 1 '表示禁止一个错误的发生
'它的语法格式如下：on error goto line 其中的参数line表示要跳转到的行号，
'它可以标会任何数值。当程序发生错误时，用on error goto语句可以跳过错误程序，
'直接到line后面的语句继续执行
Text1.FontSize = Text1.FontSize + 2 '文本框中的字体增大2磅
1
End Sub

Private Sub Command2_Click()
On Error GoTo 1
Text1.FontSize = Text1.FontSize - 2
1
End Sub
Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load() '关键所在就是multiline=true（使文本框能够显示多行）
Text1.Text = "你一会儿看我," & Chr(13) & Chr(10) & "一会儿看云。" _
& Chr(13) & Chr(10) & "我觉得," & Chr(13) & Chr(10) & "我觉得，" _
& Chr(13) & Chr(10) & "你看我时很远，" & Chr(13) & Chr(10) & "看云时很近。"
' Chr("10") 换行 Chr("13") 回车 & Chr(13) & Chr(10) & 回车加换行

End Sub