Foxtable(狐表)用户栏目专家坐堂 → [求助]如何删除文本框里的某一行


  共有2288人关注过本帖树形打印复制链接

主题:[求助]如何删除文本框里的某一行

帅哥哟,离线,有人找我吗?
2425004926
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5553 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]如何删除文本框里的某一行  发帖心情 Post By:2021/3/25 15:51:00 [只看该作者]

 如何删除文本框里的某一行,比如要删除第5行,代码怎么写?

With Forms("窗口1").Controls("txtMemo")
   
For i As Integer = 0 To .Lines.Length - 1
        Messagebox.Show(.Lines(i))
   
Next
End
With


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/25 16:05:00 [只看该作者]

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim lst As new List(of String)
lst.AddRange(txt.Lines)
lst.RemoveAt(4)
txt.text = String.Join(vbcrlf,lst.ToArray)

 回到顶部
帅哥哟,离线,有人找我吗?
2425004926
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5553 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2021/3/25 16:40:00 [只看该作者]

 明白了,谢谢!

 回到顶部