我现在在用文本框这个部件来显示存储的文件名,每点一次保存,文件名下移一行,我怎么在文本框中单击一下(不是双击),选中任意一行(一行要全选中)
另外还有个问题,就是我要删除其中任意一行,下面一行自动上移.
我只能做到下面一步
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 '删除选中字符串
另外还有个问题,就是我要删除其中任意一行,下面一行自动上移.
我只能做到下面一步
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 '删除选中字符串
不用这么麻烦
j=instrprv(Text1.SelStart,text1.text,chr(13),0)
if j=0 then j=len(text1.text)
Text1.SelStart =i
Text1.SelLength=j-i试试这个吧,删除也同理