以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]双击文本框的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141825)

--  作者：天一生水 --  发布时间：2019/10/11 19:28:00 --  [求助]双击文本框的行 我把查找到的文件路径显示到文本框中，每条路径占用一行；希望双击某行打开该行路径指向的文件。 请老师指教。谢谢！ 此主题相关图片如下：截屏图片.jpg  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:测试文本框的行.table

--  作者：有点蓝 --  发布时间：2019/10/11 20:41:00 --   设计双击 Dim idx As Integer = e.Sender.SelectionStart Dim s As String = e.Sender.Text If idx = 0 Then     Dim arr() As String = s.Replace(vbcr,"").Split(vblf)     Output.Show("结果 = " & arr(0)) Else     Dim i2 As Integer = e.Sender.Text.IndexOf(vbcrlf,idx)     If i2 > -1         s = e.Sender.Text.SubString(0,i2).Replace(vbcr,"")     End If     Dim arr() As String = s.Split(vblf)     Output.Show("结果 = " & arr(arr.Length - 1)) End If