- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 多行文本框自动编号问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119197)
-- 发布时间：2018/5/19 17:39:00
-- 多行文本框自动编号问题
老师你好：
我的需求是：在向一个多行文本框输入一个多行文本时，每一行前自动增加序号(1、，2、。。。)
下面这段代码如何修改：
If e.Sender.Value > "" Then
With e.Sender
For i As Integer = 0 To .Lines.Length - 1 \'分别显示该文本框每一行的内容
e.Sender.Value = i + 1 & "、" & .Lines(i).trim() \'增加序号并删除前后空格
\'Messagebox.Show(i + 1 & "、" & .Lines(i).trim()) \'增加序号并删除前后空格
Next
End With
End If
-- 发布时间：2018/5/19 17:55:00
--
If e.Sender.Value > "" Then
Dim str As String
With e.Sender
For i As Integer = 0 To .Lines.Length - 1 \'分别显示该文本框每一行的内容
str = str & i + 1 & "," & .Lines(i).trim() & vbcrlf
Next
.Value = str.TrimEnd(vbcr,vblf)
End With
End If
-- 发布时间：2018/5/19 18:00:00
--
已解决了，十分感谢！！
-- 发布时间：2018/5/19 19:18:00
--
老师又有一个新的问题产生我把代码写在ValueChanged事件中，但每修改一次，编号自动增加，如下图，
此主题相关图片如下：yyy.png
还有：
1、当多行文本框中回车时，编号自动按排序增加
2、如何删除文本中的所有空格
-- 发布时间：2018/5/20 22:01:00
--
If e.Sender.Value > "" Then
Dim str As String
With e.Sender
For i As Integer = 0 To .Lines.Length - 1 \'分别显示该文本框每一行的内容
str = str & i + 1 & "," & .Lines(i).trim(cstr(i+1), ",") & vbcrlf
Next
.Value = str.TrimEnd(vbcr,vblf)
End With
End If