--- title: "Adressbok i VB" type: "forum-thread" url: "https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb" topic: ".NET" topic_url: "https://www.webforum.nu/amne/dotnet" author: "ironhead" published: "2003-07-23T19:37:40.000Z" updated: "2003-08-04T15:11:01.000Z" replies: 26 views: 620 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb" --- # Adressbok i VB _Sida 1 av 2._ ## #1 — ironhead, 2003-07-23T19:37Z Hej! Jag försöker göra en enkel adressbok i VB. Jag använder VB6.0 & Access 2002. 1\.) Jag har gjort 2 listBoxar, 1 som heter grupper & 1 som heter namn. När jag klickar på en grupp ska namnen under dessa grupper uppenbara sig i ListBox2...hur plockar jag ut id:et ur ListBox1 för att kunna använda i selectsatsen i ListBox2 ? 2\.) För att senare göra denna adressbok lite snyggare skulle jag vilja lista grupper och namn med ikoner bredvid namnen...finns det nåt sätt att lägga till bilder i en lista ? Permalänk: https://www.webforum.nu/p/82644 ## #2 — niko, 2003-07-23T19:49Z 1\.) 2\.) Man *kan* meka in ikoner i en listbox via API:er, men jag rekommenderar nog ändå att du använder en listvy istället om du har såna behov. Då får du ikonerna (och många andra finesser) gratis. Permalänk: https://www.webforum.nu/p/1117227 ## #3 — ironhead, 2003-07-23T21:42Z Tack så hemskt mycket! :birp Föresten...vart hittar jag "listvy"? Permalänk: https://www.webforum.nu/p/1117289 ## #4 — saw, 2003-07-24T07:36Z Niko menar nog en Listview(listvy på svenska?) Permalänk: https://www.webforum.nu/p/1117360 ## #5 — Nexus86, 2003-07-24T10:22Z ListView finns i Microsoft Windows Common Controls 6.0 och 5.0 Project \> Components \> Microsoft Windows Common Controls 6.0 Permalänk: https://www.webforum.nu/p/1117460 ## #6 — ironhead, 2003-07-27T14:53Z aha! Tackarr! :) Permalänk: https://www.webforum.nu/p/1122030 ## #7 — ironhead, 2003-07-27T20:58Z Nu har jag lagt till en Listview...nu vill jag ha ikoner också... Kontrollerna heter Listview1 & ImageList1. i imagelist finns 2 ikoner 16x16 på plats 1 & 2 Jag har denna kod: ``` Dim itmx As ListItem Set itmx = ListView1.ListItems.Add(, , "Namn", 1, 1) ``` Men när jag kör den får jag detta fel: ImageList must be initialized before it can be used...... Hur gör jag det? Permalänk: https://www.webforum.nu/p/1122212 ## #8 — Nexus86, 2003-07-27T22:17Z Högerklicka på ListView1 i VB, välj Properties, gå till Image Lists-tabben, byt på Small till ImageList1. Permalänk: https://www.webforum.nu/p/1122247 ## #9 — ironhead, 2003-07-27T22:30Z Thnx! :) Permalänk: https://www.webforum.nu/p/1122258 ## #10 — ironhead, 2003-07-27T22:48Z För att hämta ut id:et i en ListBox använder jag denna kod: ``` ListGroup.ItemData(ListGroup.ListCount - 1) = RecSet("gruppid") ``` och hämtar id´t med: ``` Id = ListGroup.ItemData(ListGroup.ListIndex) ``` Hur skriver jag när jag har en ListView? Permalänk: https://www.webforum.nu/p/1122273 ## #11 — ironhead, 2003-07-28T00:00Z Kan detta vara den rätta koden? ``` Id = ListGroup.SelectedItem.index ``` eller räknar man bara då värdet i själva listan, och inte id:t på posten? red. Det var bara själva värdet i listan :( Permalänk: https://www.webforum.nu/p/1122290 ## #12 — niko, 2003-07-28T00:15Z En Listview har ingen ItemData-property däremot har varje item en Tag-property som du kan använda på ungefär samma sätt. Ungefär: ``` Set itmx = ListGroup.ListItems.Add(, , "Namn", 1, 1) itmx.Tag=RecSet("gruppid") ' .. ' Lite senare. Id=ListGroup.SelectedItem.Tag ``` Eventuellt måste du casta med *CInt* och *CStr*, men det märker du isåf. Permalänk: https://www.webforum.nu/p/1122294 ## #13 — ironhead, 2003-07-28T00:25Z Lyyysande! :e Då kommer jag direkt på en fråga till ;) När jag nu klickat på ett namn i en ListView vill jag att ikonen på just den raden ska ändras till en annan...hur lyckas man med det? Permalänk: https://www.webforum.nu/p/1122296 ## #14 — Nexus86, 2003-07-28T00:26Z ``` ListView1.SelectedItem.ReportIcon = numret på nya bilden i ImageList ``` Permalänk: https://www.webforum.nu/p/1122298 ## #15 — ironhead, 2003-07-28T00:32Z Tackar! :birp ...och hur får man tillbaka dom till bild1 när man klickar på annan rad? Permalänk: https://www.webforum.nu/p/1122299 ## #16 — Nexus86, 2003-07-28T00:39Z Byt ut föregående rad mot ``` Dim oItem As ListItem For Each oItem In ListView1.ListItems If Not oItem.ReportIcon = 1 Then oItem.ReportIcon = 1 ' antagligen första bilden End If Next oItem Set oItem = Nothing ListView1.SelectedItem.ReportIcon = 2 ' antagligen den nya bilden ``` R// Otestat eftersom jag inte orkar starta VB nu men det borde fungera ändå. Permalänk: https://www.webforum.nu/p/1122300 ## #17 — ironhead, 2003-07-28T00:45Z miljOOOOOners Tack! :bire Permalänk: https://www.webforum.nu/p/1122303 ## #18 — ironhead, 2003-07-28T21:14Z I själva listview rutan för kontaktinformationen har jag gjort såhär: ``` Dim itmx As ListItem Dim colx As ColumnHeader Set colx = List1.ColumnHeaders.Add(, , "col1") Set colx = List1.ColumnHeaders.Add(, , "col2") Set colx = List1.ColumnHeaders.Add(, , "col3") Do Until RecSet.EOF If RecSet("fornamn") > 0 Then Set itmx = List1.ListItems.Add(, , RecSet("fornamn")) End If If RecSet("efternamn") > 0 Then itmx.SubItems(1) = RecSet("efternamn") 'Här vill jag ha ny rad!!! End If If RecSet("titel") > 0 Then itmx.SubItems(2) = RecSet("titel") End If OSV OSV. ``` ska man göra såhär? egentligen vill jag att beskrivningen typ namn, titel arbete ska finnas i kolumn 1 och vara i fet stil och uppgifterna skall finnas i kolumn 2....får inte till det och får ingen ny rad heller...allt skrivs från vänster till höger...hur göra? Permalänk: https://www.webforum.nu/p/1122772 ## #19 — Nexus86, 2003-07-28T23:14Z Hur menar du? Vill du ha RecSet("titel") i kolumn 1 och namnen i kolumn 2? Permalänk: https://www.webforum.nu/p/1122832 ## #20 — ironhead, 2003-07-28T23:22Z näe, jag vill ha typ: ``` kolumn1 kolumn2 Anders Andersson VD Slagman & Bong Arbete 026-234 34 23 070-344 34 23 Hem 022-324 43 32 0730-343 32 22 ``` Permalänk: https://www.webforum.nu/p/1122835 --- Tråden på webben: https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb Nästa sida: https://www.webforum.nu/amne/dotnet/82644-adressbok-i-vb/page2.md