摘要：
代码如下：代码如下：PrivateSubappendresult()Subappendresult(ByValnewresultAsString)Dimnewlines()AsString=NewString(resultsbox.Lines.Length){}resultsbox.Lines.CopyTo(newlines,1)newlines(0)=newresultresultsbox.Lines=n
PrivateSubappendresult()Subappendresult(ByValnewresultAsString)
![[学习日记]在文本框最前面一行追加新内容的一个SUB第1张](http://t.zoukankan.com/Images/OutliningIndicators/InBlock.gif)
Dimnewlines()AsString=NewString(resultsbox.Lines.Length){}
resultsbox.Lines.CopyTo(newlines,1)
newlines(0)=newresult
resultsbox.Lines=newlines
![[学习日记]在文本框最前面一行追加新内容的一个SUB第5张](http://t.zoukankan.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)
EndSub
Dimnewlines()AsString=NewString(resultsbox.Lines.Length){}resultsbox.Lines.CopyTo(newlines,1)newlines(0)=newresultresultsbox.Lines=newlinesEndSub首先定义一个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 textin the top")
这样新增加的内容就在这个名为resultsbox文本框的最前面一行了。