Private Sub Command1_Click() Dim lvItm As ListItem lv.ListItems.Clear Set lvItm = lv.ListItems.Add(, , "1") lvItm.SubItems(1) = "0000" lvItm.SubItems(2) = "BLABLA" Set lvItm = lv.ListItems.Add(, , "") lvItm.SubItems(1) = "1100" lvItm.SubItems(2) = "BLA..Bla..bla" Set lvItm = lv.ListItems.Add(, , "") lvItm.SubItems(1) = "1110" lvItm.SubItems(2) = "Blablabla" Set lvItm = lv.ListItems.Add(, , "2") lvItm.SubItems(1) = "0000" lvItm.SubItems(2) = "BLABLABLA" Set lvItm = lv.ListItems.Add(, , "") lvItm.SubItems(1) = "2100" lvItm.SubItems(2) = "BLABLABLA" End Sub Private Sub Command2_Click() lv.ListItems.Clear lv.ListItems.Add , , "1" lv.ListItems.Item(1).SubItems(1) = "0000" lv.ListItems.Item(1).SubItems(2) = "BLABLA" lv.ListItems.Add , , "" lv.ListItems.Item(2).SubItems(1) = "1100" lv.ListItems.Item(2).SubItems(2) = "BLA..Bla..bla" lv.ListItems.Add , , "" lv.ListItems.Item(3).SubItems(1) = "1110" lv.ListItems.Item(3).SubItems(2) = "Blablabla" lv.ListItems.Add , , "2" lv.ListItems.Item(4).SubItems(1) = "0000" lv.ListItems.Item(4).SubItems(2) = "BLABLABLA" lv.ListItems.Add , , "" lv.ListItems.Item(5).SubItems(1) = "2100" lv.ListItems.Item(5).SubItems(2) = "BLABLABLA" End Sub Private Sub Form_Load() lv.ColumnHeaders.Clear lv.ColumnHeaders.Add , , "Field1" lv.ColumnHeaders.Add , , "Field2" lv.ColumnHeaders.Add , , "Field3" End Sub
----- Original Message ----- From: "Fatur" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Tuesday, September 05, 2006 11:36 AM Subject: [indoprog-vb] ListView > > > > Dear all, > Mohon pencerahan dari para jagoan VB, > Saya mau bikin Chart Of Account dengan tampilan di lstview seprti : > > 1-0000 BLABLA > 1100 BLA..Bla..bla > 1110 Blablabla > 2-0000 BLABLABLA > 2100 Blablabla > dst............ > > Bagaimana codingnya agar di list view keluar tampilan seperti itu.... > > thanks, > > Fatur > > [Non-text portions of this message have been removed] > > > > Untuk berhenti berlangganan kirim email kosong ke : > [EMAIL PROTECTED] > > Bagi terjangkit virus lokal, zip virus tersebut > dan kirim ke [EMAIL PROTECTED], kami > akan membuat removalnya untuk anda. > Yahoo! Groups Links > > > > > > > > > Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Bagi terjangkit virus lokal, zip virus tersebut dan kirim ke [EMAIL PROTECTED], kami akan membuat removalnya untuk anda. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
