一个关于字符输入的有趣问题 - vb吧

level 3

lfn1915 楼主

各位大咖好！
如
我输入 “大家好”
输出的结果是 “大大家家好好” 或者 “大大大家家家好好好” 类似的重复字符
请问如何实现？
非常感谢！

2020年04月30日 07点04分 1

level 15

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub '退格键不做处理，保留正常功能
Text1.SelText = String(3, KeyAscii) '将输入的字符重复3次
KeyAscii = 0 '忽略掉原本的输入
End Sub

2020年04月30日 08点04分 2

level 3

lfn1915 楼主

非常感谢@miku_con
再请教
如
我输入 “大家好啊”
输出的结果是 “大m家m好m啊m” 类似的字符
请问如何实现？
非常感谢！

2020年04月30日 08点04分 3

初音✨七奈

把上面代码的String(3,KeyAscii)改成Chr(KeyAscii) & "m"即可

2020年04月30日 08点04分

level 3

lfn1915 楼主

谢谢大咖！

2020年04月30日 08点04分 4

level 3

lfn1915 楼主

哈哈哈得啦有意思 [吐舌]

2020年04月30日 09点04分 6

level 3

lfn1915 楼主

发现一个bug 哈
就是复制粘贴的字符
不能得到那样的效果
只有手动输入的
才有那样的效果

2020年04月30日 12点04分 7

初音✨七奈

输入本来就只包括从键盘输入，不包括粘贴；如果想让粘贴的内容也有效果，那代码就要复杂得多了，需要循环对每个新增字符依次处理

2020年04月30日 12点04分

lfn1915

@初音✨七奈谢谢！方便加V吗 [哈哈]

？

2020年04月30日 12点04分