Question

帮忙解释一下 VB 一句代码，具体点 谢谢！

Private Sub AddToText1(S As String)
hang = Len(S)
con = con + 1
If con > 24 Then
Text1.Height = Text1.Height + 5760 / 24
VScroll1.Min = VScroll1.Min + 1
Text1.Top = Text1.Top - 5760 / 24
End If
Text1.Text = Text1.Text & S & Chr(13) & Chr(10)
End Sub

Answer 1

Private Sub AddToText1(S As String) 声明自过程
hang = Len(S) 获取S的长度
con = con + 1 计数器加一
If con > 24 Then 如果计数器大于24
Text1.Height = Text1.Height + 5760 / 24 Text1的长度加上5760 / 24
VScroll1.Min = VScroll1.Min + 1 VScroll1的最小值加一
Text1.Top = Text1.Top - 5760 / 24 Text1离窗体最上面的距离减去5760 / 24
End If 如果结束
Text1.Text = Text1.Text & S & Chr(13) & Chr(10) Text1的内容加上S和回车换行( Chr(13) & Chr(10)可换成vbCrLf)
End Sub