Foxtable(狐表)用户栏目专家坐堂 → [求助]我想在textbox 多行文本框里,按tab键会执行它原有的插入4个缩进符功能 而不是跳转到下一个组件,请问怎么做


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

主题:[求助]我想在textbox 多行文本框里,按tab键会执行它原有的插入4个缩进符功能 而不是跳转到下一个组件,请问怎么做

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:7827 威望:0 精华:4 注册:2017/12/31 14:53:00
[求助]我想在textbox 多行文本框里,按tab键会执行它原有的插入4个缩进符功能 而不是跳转到下一个组件,请问怎么做  发帖心情 Post By:2020/6/2 16:24:00 [只看该作者]


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

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


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

keydown事件在光标位置插入4个空格

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:7827 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2020/6/2 17:11:00 [只看该作者]

我试过在keydown里
先e.cancel =true阻止原生tab事件,但是没用,还是跳到下一个组件,更别说插入了字符了

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


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

贴出具体代码

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:7827 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2020/6/2 20:25:00 [只看该作者]

其实我想反过来问
keydown事件在光标位置插入4个空格

这个怎么做到?

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


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

试了一下,tab键被控件自身拦截屏蔽掉了,无法触发。

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:7827 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2020/6/2 22:05:00 [只看该作者]

是咯,好像完全没办法搞我的需求。要不问下狐爸有没什么底层方法?

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:7827 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2020/6/3 10:20:00 [只看该作者]

问下狐爸有没办法

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


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

换个快捷键使用,比如ctrl+Q

If e.Control AndAlso e.KeyCode = keys.Q
    Dim s As Integer = e.Sender.SelectionStart
    If s < e.Sender.Text.Length Then
        e.Sender.Text = e.Sender.Text.Insert(e.Sender.SelectionStart,vbtab)
        e.Sender.SelectionStart = s + cstr(vbtab).length
    End If
End If

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


加好友 发短信
等级:六尾狐 帖子:1264 积分:7827 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2020/6/3 11:16:00 [只看该作者]

换个快捷键就没什么意义了,还不如直接敲4个空格。主要是大部分文本框,都会支持tab

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