UC知道VB问题 关于回车触发事件
来源：百度知道 编辑：UC知道 时间：2024/06/03 00:33:18
怎么实现：设计一个应用程序项目，当文本框中的内容有回车符号输入时，文本框中的内容就自动复制到下面的列表框中。文本框内容清空，需在重新输入新文本。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
s = Trim(Text1.Text)
If Len(s) > 0 Then
List1.AddItem s
Text1.Text = ""
End If
End If
End Sub
'注,没有检测是否有重复的内容,如果要检测,需要再加代码
楼上高手，学习了！！