自定義串列視圖上的串列都相同，在VisualBasic中應該不同-有解無憂

如何在像這樣變化的自定義串列視圖上顯示串列：

真的

不像這樣：

錯誤的

到哪里見面，一切都一樣？

我創建Daftar.vb使用用戶控制元件（Windows表單）和我創建使用自定義串列視圖FlowLayoutPanel中和它，我進入了Daftar工具箱

代碼：

Daftar.vb

Imports System.ComponentModel

Public Class Daftar1
#Region "Properties"
    Private _title As String
    Private _message As String
    Private _icon As Image
    <Category("Custom Props")>
    Public Property Title As String
        Get
            Return _title
        End Get
        Set(ByVal value As String)
            _title = value
            judul.Text = value
        End Set
    End Property
    <Category("Custom Props")>
    Public Property Message As String
        Get
            Return _message
        End Get
        Set(ByVal value As String)
            _message = value
            deskripsi.Text = value
        End Set
    End Property
    <Category("Custom Props")>
    Public Property Icon As Image
        Get
            Return _icon
        End Get
        Set(ByVal value As Image)
            _icon = value
            gambar.Image = value
        End Set
    End Property
#End Region
End Class

餐廳應用程式.vb

Public Class RestaurantApp
    Private Sub PopulateItems()
        Dim listItems As Daftar1() = New Daftar1(20) {}
        Dim i As Integer
        For i = 0 To listItems.Length - 1
            listItems(i) = New Daftar1()
            listItems(i).Title = "vdsvhd"
            listItems(i).Message = "Penjelasan"
            If i <> 0 Then
                panelDaftar.Controls.Add(listItems(i))
            End If
        Next
    End Sub


    Private Sub RestaurantApp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Me.PopulateItems()
    End Sub
End Class

uj5u.com熱心網友回復：

在我搜索 Stackoverflow 和 Youtube 之后，我設法找到了答案。以下是RestaurantApp.vb的代碼：

Public Class RestaurantApp
    Private Sub PopulateItems()
        Dim listItems As Daftar1() = New Daftar1(5) {}
        Dim judul As String() = New String(4) {"Burger", "Sosis", "Nasi", "Pizza", "Ayam"}
        Dim penjelasan As String() = New String(4) {"a", "b", "c", "d", "e"}
        Dim i As Integer
        For i = 0 To listItems.Length - 1
            If i < judul.Length And i < penjelasan.Length Then
                listItems(i) = New Daftar1()
                listItems(i).Title = judul(i)
                listItems(i).Message = penjelasan(i)
                If i <> 0 Then
                    panelDaftar.Controls.Add(listItems(i))
                End If
            End If
        Next
    End Sub


    Private Sub RestaurantApp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Me.PopulateItems()
    End Sub
End Class

謝謝@anu6is 和 Stackoverflow

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/407417.html

標籤：

上一篇：在串列的串列中洗掉串列的第一個元素

下一篇：在kotlin中成對洗掉重復項