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

概述Option Explicit Private Sub Command1_Click()         On Error GoTo 1   '表示禁止一个错误的发生         '它的语法格式如下：on error goto line 其中的参数line表示要跳转到的行号，         '它可以标会任何数值。当程序发生错误时，用on error goto语句可以跳过错误程序，      

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

总结

以上是内存溢出为你收集整理的VB工程--百例82--改变字号全部内容，希望文章能够帮你解决VB工程--百例82--改变字号所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。