[学习日记]在文本框最前面一行追加新内容的一个SUB

代码如下:
[学习日记]在文本框最前面一行追加新内容的一个SUB[学习日记]在文本框最前面一行追加新内容的一个SUB    Private Sub appendresult()Sub appendresult(ByVal newresult As String)
[学习日记]在文本框最前面一行追加新内容的一个SUB        
Dim newlines() As String = New String(resultsbox.Lines.Length) {}
[学习日记]在文本框最前面一行追加新内容的一个SUB        resultsbox.Lines.CopyTo(newlines, 
1)
[学习日记]在文本框最前面一行追加新内容的一个SUB        newlines(
0= newresult
[学习日记]在文本框最前面一行追加新内容的一个SUB        resultsbox.Lines 
= newlines
[学习日记]在文本框最前面一行追加新内容的一个SUB    
End Sub

首先定义一个NEWLINES()的字符串数组,动态定义它的下标为resultsbox.line.length
resultsbox是用来显示结果的文本框
然后然resultsbox里的内容用resultsbox.lines.copyto()方法,复制到定义的newlines数组里从下标为1开始存储,
再向newlines(0)里追加newresult的内容
再把resultsbox.lines的内容赋值为newlines

其实在这里可以把resultsbox.lines看成一个一维数组
resultsbox.lines.length其实就是它的最大下标值

调用这个SUB
appendresult("this is new text in the top")
这样新增加的内容就在这个名为resultsbox文本框的最前面一行了。
上一篇:gitlab社区版安装


下一篇:Hibernate实体对象的生命周期(三种状态详解)