VB列表框内输入文字应该怎么弄？

方法和详细的 *** 作步骤如下：

1、第一步，打开VB软件并在表单上添加一个列表框，见下图，转到下面的步骤。

2、第二步，执行完上面的 *** 作之后，单击列表框，然后在属性窗口中，设置列表框的已知属性和内容，见下图，转到下面的步骤。

3、第三步，执行完上面的 *** 作之后，在表单上，添加两个命令按钮，见下图，转到下面的步骤。

4、第四步，执行完上面的 *** 作之后，分别设置两个命令按钮的属性，见下图，转到下面的步骤。

5、第五步，执行完上面的 *** 作之后，双击“清除”命令按钮以编辑其代码，见下图，转到下面的步骤。

6、第六步，执行完上面的 *** 作之后，运行程序并验证结果。

 在列表框中选择“语言”，然后单击“复制”命令按钮，然后将“语言”项复制到列表框中，见下图。这样，就解决了这个问题了。

其实也没什么难

假如文本框是text1，列表框是list1,那么 list1.addItem text1就好。

如果你是输入框input1，那么先定义个变量吧

a=input1(…………)

list1.addItem a

Option Explicit

Private Sub Command1_Click()

'=======如果路径为空则不搜索=================

If Trim$(Text1.Text) = "" Then

MsgBox "输入路径", vbCritical

Text1.SetFocus

Exit Sub

End If

'===============END=========================

'======搜索出路径下所有文件=================

Dim strFileName As String

strFileName = Dir(Trim$(Text1.Text))

Do While Trim$(strFileName) <> ""

List1.AddItem strFileName

strFileName = Dir

Loop

End Sub

Private Sub Command2_Click()

Dim i As Integer

For i = 0 To List1.ListCount - 1           '列表框索引是从0开始的

If List1.Selected(i) Then

List2.AddItem List1.List(i)        '如果被选择，则添加到LIST2里

End If

Next

End Sub

Private Sub Command3_Click()

Dim i As Integer

List2.Clear

For i = 0 To List1.ListCount - 1

List2.AddItem List1.List(i)

Next

End Sub

Private Sub Command4_Click()

Dim i As Integer

'================要查询的文件名为空则不查询=================

If Text2.Text = "" Then

MsgBox "请输入要查询的文件名", vbExclamation

Text2.SetFocus

Exit Sub

End If

'=====================End================================

For i = 0 To List1.ListCount - 1

If List1.List(i) = Trim$(Text2.Text) Then

List1.Selected(i) = True         '文件定位，做一个选择

Else

List1.Selected(i) = False

End If

Next

End Sub

---