| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 自动截短 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159087) |
| -- 作者：良才 -- 发布时间：2020/12/13 15:29:00 -- 自动截短 在窗口TextBox1限制输入200个字符。如果字符已有200个字符，输入在语句中大于200的字符删除，输入在结尾禁止输入 求KeyPress代码，谢谢 [此贴子已经被作者于2020/12/13 15:32:09编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/12/13 20:56:00 -- 不需要代码吧！窗口设计直接设置TextBox1最大长度为200即可 [此贴子已经被作者于2020/12/13 20:56:42编辑过]
|
| -- 作者：良才 -- 发布时间：2020/12/14 7:38:00 -- 窗口设计直接设置TextBox1最大长度为200只能限制输入，想设置在小于200字符数位置输入，删除大于200字符。和表中列一样。 [此贴子已经被作者于2020/12/14 7:39:25编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/12/14 8:38:00 -- textchanged事件 If e.Sender.Text.Length > 10 Then Dim c As Integer = e.Sender.SelectionStart e.Sender.Text = e.Sender.Text.SubString(0,10) e.Sender.SelectionStart = c End If |
| -- 作者：良才 -- 发布时间：2020/12/14 9:11:00 -- 谢谢 |