关于vb的列表框项目的修改

private sub cmd3_Click()

'修改按钮，把《点击的项目值》赋值给《Text1.Text》

Text1.Text = List1.List(List1.Listindex)

End sub

private sub cmd4_Click()

'修改确定按钮，把《Text1.Text》 赋值给《点击的项目》

List1.List(List1.Listindex) = Text1.Text

End sub

这2行赋值是反过来写而已，意思是把谁赋值给谁。

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

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

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

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

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

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

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

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

---