vb.net拼接数组 vba数组拼接

VB.NET 如何将ListBox列表框的所有项复制到一个数组中，便于排序？谢谢解答

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个值

-------------

只是一个演示，其他的要靠自己。

相关问答

Q1: VB 怎样加将两个数组合并

Private Sub Command1_Click()

a = Array(1, 2, 4, 7, 9, 34, 65, 73, 78, 99, 234, 1234)

b = Array(0, 23, 33, 56, 78, 98, 99, 234, 1000, 9999)

Dim c(30)

i = 0

j = 0

k = 0

While i = UBound(a) And j = UBound(b)

  If a(i) b(j) Then

    c(k) = a(i)

    i = i + 1

  Else

    c(k) = b(j)

    j = j + 1

  End If

  k = k + 1

Wend

While i UBound(a)

  c(k) = a(i)

  i = i + 1: k = k + 1

Wend

While j UBound(b)

  c(k) = b(j)

  j = j + 1: k = k + 1

Wend

Print "原A数组vb.net拼接数组："

For i = 0 To UBound(a)

  Print a(i);

Next i

Print

Print "原B数组vb.net拼接数组："

For i = 0 To UBound(b)

  Print b(i);

Next i

Print

Print "合并后vb.net拼接数组的c数组："

For i = 0 To k

  Print c(i);

  If i Mod 15 = 14 Then Print

Next i

Print

End Sub

Q2: vb.net 两个数组拼接添加进listbox,结果只添加了第一个数组，第二个数组丢失了，这是怎么回事，在线等答案

S_chflag1(n) = Zonename(str_qy) ":" Chname1(str_xd)

字符串拼接尽量不用加号

Q3: 求大神指点 vb.net 怎么把 几个字节集 连接起来呢? 我用 +和 & 都报错

Dim a As Byte() = New Byte() {1, 2, 3, 4}

Dim b As Byte() = New Byte() {5, 6, 7, 8}

Dim c As Byte() = a.Concat(b).ToArray

'c={1,2,3,4,5,6,7,8}

Q4: vb.net 数组

vb.net已经去掉了控件数组这个类，不过有个代替该方式的一个属性：Tag，你可以把这些关联的Tag属性设置为同一标记，如：a。然后遍历所有的checkbox并且tag为a的则选定：Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls

If ctl.GetType().Name.ToLower() = "checkbox" Then

CType(ctl, CheckBox).Checked = CheckBox3.Checked

End If

NextEnd Sub

vb.net拼接数组的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba数组拼接、vb.net拼接数组的信息别忘了在本站进行查找喔。