VB列表框提取最上面第一行内容到text1,然后删除这一行(第一行)
2个回答
展开全部
Private Sub DeleteLine(txt As TextBox) Dim arry() As String, i As Integer arry = Split(txt.Text, vbCrlf) '根据回车分割 txt.Text = "" For i = 1 To Ubound(arry) txt.Text = txt.Text & arry(i) & vbCrlf Next End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询