Foxtable(狐表)用户栏目专家坐堂 → 如何获取双击多行文本框中的某一行的值?


  共有2587人关注过本帖树形打印复制链接

主题:如何获取双击多行文本框中的某一行的值?

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


加好友 发短信
等级:八尾狐 帖子:1905 积分:16915 威望:0 精华:0 注册:2014/7/29 19:09:00
如何获取双击多行文本框中的某一行的值?  发帖心情 Post By:2020/5/23 15:35:00 [只看该作者]

With Forms("窗口1").Controls("txtMemo")
   
For i As Integer = 0 To .Lines.Length - 1
        Messagebox.Show(.Lines(i))
   
Next
End
With


上面的代码可以显示出每一行的值,但是当鼠标在多行文本框中双击时,如何得到双击那一行的值?


谢谢!




 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105868 积分:538397 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/23 15:45:00 [只看该作者]

双击事件

Dim k As Integer = e.Sender.SelectionStart

Dim cn As Integer = 0
For i As Integer = 0 To e.Sender.Lines.Length - 1
    cn = cn + e.Sender.Lines(i).Length
    If  cn > k Then
        msgbox(e.Sender.Lines(i))
        Return
    End If
Next
msgbox(e.Sender.Lines(e.Sender.Lines.Length - 1))

 回到顶部
帅哥,在线噢!
lihe60
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6804 积分:43033 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2020/5/24 7:34:00 [只看该作者]

如何设置多行文本的行间距?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105868 积分:538397 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/24 21:05:00 [只看该作者]

设置不了

 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1905 积分:16915 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 21:06:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200524204415.png
图片点击可在新窗口打开查看

如果是鼠标左键拖动选择了几行区域,如果获取这些行呢?用SelectionStart一直返都是0

谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1905 积分:16915 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 21:31:00 [只看该作者]

多选时可以获取SelectionStart的值,但是选择多行时如何返回最后选中的区域的位置呢?

 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1905 积分:16915 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 22:07:00 [只看该作者]

为何没有SelectionEnd的属性?如何获取选中区域的最末位置?
谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105868 积分:538397 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/24 22:34:00 [只看该作者]

SelectionStart + SelectionLength = 选中区域的最末位置

 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1905 积分:16915 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 22:39:00 [只看该作者]

但是这些属性帮助中根本就没有,不问都不知道啊!谢谢蓝老师!

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105868 积分:538397 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/24 22:50:00 [只看该作者]


 回到顶部
总数 12 1 2 下一页