[学习日记]在文本框最前面一行追加新内容的一个SUB
代码如下:
Private Sub appendresult(ByVal newresult As String)
Dim newlines() As String = New String(resultsbox.Lines.Length) {}
resultsbox.Lines.CopyTo(newlines, 1)
newlines(0) = newresult
resultsbox.Lines = newlines
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文本框的最前面一行了。
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
![](/Images/OutliningIndicators/InBlock.gif)
![](/Images/OutliningIndicators/InBlock.gif)
![](/Images/OutliningIndicators/InBlock.gif)
![](/Images/OutliningIndicators/InBlock.gif)
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
首先定义一个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文本框的最前面一行了。