zoukankan      html  css  js  c++  java
  • [学习日记]在文本框最前面一行追加新内容的一个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文本框的最前面一行了。
  • 相关阅读:
    Ubuntu解压缩命令
    小语种优化策略
    外贸seo常用Zen Cart数据库mysql批量执行命令
    ASP Request.ServerVariables
    centos linux 下 crontab e 命令插入及保存
    AJAX 传值给后台
    partial class
    Jquery 实现弹出层
    abstract class
    SQL锁表
  • 原文地址:https://www.cnblogs.com/aowind/p/110291.html
Copyright © 2011-2022 走看看