用两个数组中的数据填充ListBox



我需要以下方面的帮助:

在Visual Studio中将两个数组中的数据填充到列表框中。

第一个数组包含日期信息(EX.11/2/2020(,第二个数组将包含折扣信息(EX.25%折扣(。

因此,在form load事件中,两个数组中的数据应填充在列表框中,如下所示:

11/2/2020 = 25% Discount

等等。如有任何协助,我们将不胜感激。

Dim strDates() As String = {"11/2/2020", "11/12/2020", "11/22/2020", "11/30/2020"}
Dim strDiscount() As String = {"25", "10", "35", "21"}
Dim intPos As Integer = 0

For Each strDate As String In strDates

strDate += " = " & strDiscount(intPos) & "% Discount"
ListBox1.Items.Add(strDate)
intPos += 1
Next

每个项目获得的结果:

11/2/2020 = 25% Discount
11/12/2020 = 10% Discount
11/22/2020 = 35% Discount
11/30/2020 = 21% Discount

有用的链接:

https://www.tutorialspoint.com/vb.net/vb.net_arrays.htm

https://www.vbtutor.net/index.php/2018/04/07/adding-items-in-a-listbox/

您也可以将数组压缩在一起,并将其设置为ListBox:的.DataSource

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dates() As String = {"11/2/2020", "11/3/2020", "11/4/2020", "11/5/2020"}
Dim discounts() As Integer = {25, 10, 50, 15}
Dim entries = dates.Zip(discounts, Function(dt, disc) dt & " = " & disc & "% Discount")
ListBox1.DataSource = entries.ToList
End Sub

最新更新