Foxtable(狐表)用户栏目专家坐堂 → 多行文本框自动编号问题


  共有2139人关注过本帖平板打印复制链接

主题:多行文本框自动编号问题

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


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
多行文本框自动编号问题  发帖心情 Post By: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

 回到顶部