以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文本框中选取的内容,怎么计算是第几到第几行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195079)

--  作者:2425004926
--  发布时间:2025/2/19 18:37:00
--  [求助]文本框中选取的内容,怎么计算是第几到第几行
求助:文本框中选取的内容,怎么计算是第几到第几行
--  作者:有点蓝
--  发布时间:2025/2/20 8:45:00
--  
Dim txt As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Dim a As Integer = txt.SelectionStart
Dim b As Integer = txt.SelectionStart + txt.SelectionLength
Dim idx As Integer = 0
For i As Integer = 0 To txt.Lines.Length - 1
    idx += txt.Lines(i).Length + 2
    If idx >= a Then
        a = 99999
        Output.Show("起始行=" & i + 1)
    End If
    If idx >= b Then
        Output.Show("结束行=" & i + 1)
        Exit For
    End If 
Next 

--  作者:2425004926
--  发布时间:2025/2/20 12:16:00
--  
太好了!高!谢谢老师!
--  作者:2425004926
--  发布时间:2025/2/20 13:07:00
--  
测试后更改OK:If idx > a Then