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


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

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

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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望: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


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


谢谢!




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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 21:06:00 [显示全部帖子]


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

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

谢谢!

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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 21:31:00 [显示全部帖子]

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

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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 22:07:00 [显示全部帖子]

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

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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/24 22:39:00 [显示全部帖子]

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

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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2020/5/26 10:00:00 [显示全部帖子]

 '获取选中的文件位置
Dim txt As WinForm.TextBox = e.Form.Controls("Text_attach")
Dim k As Integer = txt.SelectionStart  '最前选定区域的位置
Dim k2 As Integer = txt.SelectionStart + txt.Selectionlength  '最后选定区域的位置
msgbox(k & "-" & k2)

上面的代码用在不同的两个窗口的文本框中,完全相同的代码,但另外一个文本框内的几行,不论鼠标如何选取,起点与终点数值都显示0 与最后一个字符的位置
导致删除时怎么选择都是删除全部文件,会是什么原因导致呢?

谢谢!


 回到顶部