Dim a(N) 'N的正丛扮大举灶小根据情况郑改确定
贡山网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。创新互联建站公司2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
For i = 0 To List1.ListCount
a(i) = Val(List1.List(i))
Next
Private Sub Command1_Click()
Dim a() As String
ReDim a(List1.SelCount)
For i = 0 To List1.ListCount - 1
a(j) = List1.List(i)
Next i
For i = 0 To UBound(a) - 1
Debug.Print a(i)
Next i
End Sub
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListboxTotalItem As Integer = ListBox1.Items.Count - 1
Dim a(ListboxTotalItem) As String
For i As Integer = 0 To ListboxTotalItem
a(i) = i
Next
Label1.Text = a(5)
End Sub
End Class
-------------
一个Form1
一个Label1
一罩衫个Listbox1
一个Button1
在Listbox1中加入10个值
-------------
只是一物塌腔个演示,其他的要衫老靠自己。
分享名称:vb点虐
列表框转数组 vbnet list
当前路径:https://www.cdcxhl.com/article8/ddpgjip.html
成都网站建设公司_创新互联,为您提供微信公众号、Google、建站公司、App开发、做网站、电子商务
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联