Tampilkan data di listview

Forum diskusi pemrograman VB.NET

Tampilkan data di listview

Postby zhenren92 » 07 Feb 2012, 23:06

oom2 semua,mohon bantuanya sedikit nih...
sebenernya sih g' ada masalah,tapi cuma saya aja yg sedikit g' mengerti tetang pengunaan listview pada .NET
kalau di vb6 sudah sedikit paham sih...

Langsung ke intinya aja ya oom... :D
Kan kalau kita mau nampilih data di listview versi VB6 gini y'.

Keterangan :
untuk listview vb6 ada 3 Columns
untuk listview .NET ada 3 columns

Code: Select all
'Coding VB6
    Dim daftar As ListItem

    With Lv_vb6
            For i = 1 To 4
              Set daftar = .ListItems.Add(, , i)
              daftar.SubItems(2) = i + 4
            Next
    End With


Code: Select all
'Coding .NET
        Dim daftar As ListViewItem

        With Lv_Net
            For i = 1 To 4
                daftar = .Items.Add(i)
                daftar.SubItems.Add("")
                daftar.SubItems.Add(Chr(64 + i))
            Next
        End With


Di sini yg jadi pertanyaan saya,untuk Subitems pada Vb6 itu kan jelas Subitems yg keberapa.
sedangkan untuk .NET tidak tahu yg mana indexnya,jadi jika salah satu subitems pada .NET ingin di kosongkan malah harus di isi dulu subitems yg ingin di kosongkan dengan cara seperti ini daftar.SubItems.Add(""). Jadi terlihat aneh kan kalau di lihat atau memang saya yg belum mengerti ya... :D
Jadi intinya gimana ya biar Subitemsnya itu bisa di tentukan index2 yg mana yg mau di isi.

Mohon bantuannya ya oom2 semua,maklum saya masih pemula yg ingin belajar .NET ... :)
User avatar
zhenren92
Prajurit Satu
Prajurit Satu
 
Posts: 80
Joined: 09 Jun 2011, 13:47
Location: palembang
Memberi kopi: 2 cangkir
Mendapat kopi: 4 cangkir

Re: Tampilkan data di listview

Postby allrens » 08 Feb 2012, 10:19

Mungkin Maksud'a gini ya oom?

Code: Select all
Sub RefreshDatasup()
        Dim DR As DataRow
        Dim LI As ListViewItem
        Dim i As Integer
        With lstSuppliers.Items
            .Clear()
            For Each DR In ExecuteSQLQuery("select * from tb_supplier order by id_supplier").Rows
                i = i + 1
                LI = lstSuppliers.Items.Add(DR("id_supplier"), 0)
                LI.SubItems.Add(DR("nama_supplier"))
                LI.SubItems.Add(DR("contact_person"))
                LI.SubItems.Add(DR("telp"))
                LI.SubItems.Add(DR("email"))
                LI.SubItems.Add(DR("alamat"))
             Next
        End With
    End Sub


Dengan Contoh Code Tersebut kita bisa nentuin field2 apa aja yang mau di tampilin di listview..
Semoga membantu..
<:D> <:D>
allrens
Prajurit Dua
Prajurit Dua
 
Posts: 42
Joined: 29 Oct 2011, 12:25
Memberi kopi: 8 cangkir
Mendapat kopi: 1 cangkir

Re: Tampilkan data di listview

Postby zhenren92 » 08 Feb 2012, 17:33

allrens wrote:Dengan Contoh Code Tersebut kita bisa nentuin field2 apa aja yang mau di tampilin di listview..
Semoga membantu..
<:D> <:D>

thank oom replynya. :)

Tapi Maksudku gini oom.
Kita bisa tentukan index untuk Subitems yg ingin di isi datanya oom...
kalau di vb6 kan kita bisa tentuin tuh Subitems yg mana aja yg ingin di isi.
Tapi kalau di .NET belum ketemu caranya biar Subitemsnya bisa di tentuin...

Contoh nya :
coding di Vb 6
Subitems(2) = "bla.bla bla"

Terus kalau di .NET
Subitems.add("bla. bla bla")

Nah pada Subitems(2) itu kan indexnya 2.
Terus kalau Subitems.Add itu indexnya yg keberapa ?

Itu oom yg msih belum ku mengerti... :(
User avatar
zhenren92
Prajurit Satu
Prajurit Satu
 
Posts: 80
Joined: 09 Jun 2011, 13:47
Location: palembang
Memberi kopi: 2 cangkir
Mendapat kopi: 4 cangkir

Re: Tampilkan data di listview

Postby masoft » 21 Feb 2012, 14:25

ikutan ah, :D :D
klo di vb.net memang otomatis menyesuaikan isinya dr colum 0,1,2,3,dst, jika menampilkan dr database.

tetapi jika km ingin mengecek subitem2 tsb berada dicolum brp, bgini ak ambil sampel coding km..
msgbox(LI.selecteditems(0).subitems(0).text) 'menunjukan kolom ke 0
msgbox(LI.selecteditems(0).subitems(1).text) 'menunjukan kolom ke 1
:) :) :) :) :) :) :) :) :) :) :) :) :)

http://www.masoft.us/
**==
http://www.facebook.com/java.query
>:D< >:D< >:D<
User avatar
masoft
Prajurit Dua
Prajurit Dua
 
Posts: 12
Joined: 19 Feb 2012, 12:22
Location: Malang
Memberi kopi: 0 cangkir
Mendapat kopi: 1 cangkir


Return to Visual Basic .NET

Who is online

Users browsing this forum: No registered users and 7 guests