关于文本的一些用法，急用，人在线

Question

我现在在用文本框这个部件来显示存储的文件名,每点一次保存,文件名下移一行,我怎么在文本框中单击一下（不是双击）,选中任意一行（一行要全选中）
另外还有个问题,就是我要删除其中任意一行,下面一行自动上移.
我只能做到下面一步
    Dim BeforeStr As String
    Dim AfterStr As String
    Dim SelectedText As String
        
        SelectedText = Mid(Text1.Text, _
        Text1.SelStart + 1, Text1.SelLength)    '返回被选中的字符串
        
        BeforeStr = Left(Text1.Text, Text1.SelStart)
        AfterStr = Right(Text1.Text, Len(Text1.Text) - _
                    Text1.SelStart - Text1.SelLength)
        Text1.Text = BeforeStr & AfterStr       '删除选中字符串

Answer 1

为什么不使用listbox呢？ ：）
不用这么麻烦

Answer 2

你可以用列表框或是其它的什么框i=instr(Text1.SelStart,text1.text,chr(13),0)
j=instrprv(Text1.SelStart,text1.text,chr(13),0)
if j=0 then j=len(text1.text)
Text1.SelStart =i
Text1.SelLength=j-i试试这个吧,删除也同理

Answer 3

楼上的这是什么函数呀instrprv,能解释一下吗?