[求助]关于多行文本“Enter”键和“TAB”键切换的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于多行文本“Enter”键和“TAB”键切换的问题

共有2915人关注过本帖树形打印复制链接主题：[求助]关于多行文本“Enter”键和“TAB”键切换的问题

逛逛

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2020/11/25 8:26:00 [显示全部帖子]

If e.Control And e.KeyCode = Keys.Enter Then

e.Sender.Text &= vbcrlf

Else If e.KeyCode = Keys.Enter Then

Sendkeys.Send("{TAB}")

End If

逛逛

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2020/11/27 13:53:00 [显示全部帖子]

迂回一下，要不然要用api了

1、属性：删除尾空格设为False

2、Leave 事件：删除尾空格

e.Sender.Text = e.Sender.Text.Trim

If e.Sender.Text.Length > 0 Then

e.Sender.SelectionStart = e.Sender.Text.Length -1

e.Sender.SelectionLength = 1

End If

3、KeyDown

If e.Control And e.KeyCode = Keys.Enter Then

e.Sender.Text = e.Sender.Text & chr(10)

e.Sender.SelectionStart = e.Sender.Text.Length -1

e.Sender.SelectionLength = 1

Else If e.KeyCode = Keys.Enter Then

Sendkeys.Send("{TAB}")

End If

主题：[求助]关于多行文本“Enter”键和“TAB”键切换的问题