How to display a list on a custom listview that varies like this :

true

Not like this:

false

where to see each other, everything is the same?

I created Daftar.vb using User Controls (Windows Forms) and I created a custom list view using FlowLayoutPanel and in it I entered the Daftar Toolbox

code :

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

RestaurantApp.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

CodePudding user response：

After I search on Stackoverflow and Youtube, I've managed to find the answer. The following is the code for 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

Thank you @anu6is and Stackoverflow