以下程序实现:在文本框输入内容,按回车键(Enter键)后,文本框中的内容输出到列表框。
1)在窗体上布置一个TextBox控件和一个ListBox控件
2)代码
Option Explicit Private Sub Form_Load() ' 窗体启动时,清空Text1和List1 Text1.Text = "" List1.ClearEnd Sub Private Sub Text1_KeyPress(KeyAscii As Integer) ' 如果按下了回车键(回车键的Ascii码为13) If KeyAscii = 13 Then Dim s As String ' 取出Text1中输入的内容并滤除前后的空格 s = Trim(Text1.Text) If s <> "" Then ' 如果Text1中输入的内容不为空,则添加到List1中 List1.AddItem s ' 添加后,清空Text1 Text1.Text = "" End If End IfEnd Sub
3)运行效果
窗体启动时
在Text1中输入,按回车后,输入的内容在List1中显示