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

最新推荐文章于 2019-09-17 19:51:06 发布

iteye_3619

最新推荐文章于 2019-09-17 19:51:06 发布

阅读量192

点赞数

本文介绍了一段使用VBA进行错误处理的代码，并演示了如何通过On Error GoTo语句来跳过错误并继续执行程序。此外，还展示了如何设置文本框以显示多行文本，包括使用特殊字符实现文本的换行和回车效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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