[已解决]关于文字输入框中的内容如何保存到列表框中的问题

蒋德宏

请哪位老师帮我编一下代码，把文字输入框中的内容保存到列表框中。谢谢！ 关于列表框的问题.rar (16.19 KB, 下载次数: 37)

2013-6-2 10:05 上传

点击文件名下载附件 http://www.excelpx.com/forum.php?mod=attachment&aid=Mjc1ODYzfGUyYjQ0ZjMyNDg1YTEwYWRhNDFkMWRkZjk5MDIzM2RmfDE3MTQwMjM3MjQ%3D&request=yes&_f=.rar

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-2 10:26

1. Private Sub 确定_Click()
   
2.     Dim i As Byte
   
3.     Dim arr
   
4.     With Me.列表框
   
5.         .AddItem
   
6.         arr = Array(编码输入.Text, 小号.Text, 中号.Text, 大号.Text, 单价.Text, 营业员.Text)
   
7.         For i = LBound(arr) To UBound(arr)
   
8.             .List(.ListCount - 1, i) = arr(i)
   
9.         Next
   
10.     End With
    
11. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub 确定_Click()
   
2.     Dim i As Byte
   
3.     Dim arr
   
4.     With Me.列表框
   
5.         .AddItem
   
6.         arr = Array(编码输入.Text, 小号.Text, 中号.Text, 大号.Text, 单价.Text, 营业员.Text)
   
7.         For i = LBound(arr) To UBound(arr)
   
8.             .List(.ListCount - 1, i) = arr(i)
   
9.         Next
   
10.     End With
    
11. End Sub

复制代码

hwc2ycy

加个消息框提示。

1. Private Sub 确定_Click()
   
2.     Dim i As Byte
   
3.     Dim arr
   
4.     With Me.列表框
   
5.         .AddItem
   
6.         arr = Array(编码输入.Text, 小号.Text, 中号.Text, 大号.Text, 单价.Text, 营业员.Text)
   
7.         For i = LBound(arr) To UBound(arr)
   
8.             .List(.ListCount - 1, i) = arr(i)
   
9.         Next
   
10.     End With
    
11.     MsgBox "记录添加完成", vbInformation + vbOKOnly
    
12. End Sub
    

复制代码