23. april 2001 - 16:46Der er
10 kommentarer og 3 løsninger
Listbox multiline?
Hej
Hvordan får man en listbox til at vise hele linien? Altså hvis en tekst der er add\'et til listboxen er for lang - Hvis det er tilfældet forsvinder den bare ud i højre side. Hvordan ? Den skulle jo gerne dele strengen og sætte den på næste linie i stedet.
En listbox skal netop ikke dele strengen og fortsætte på næste linie. Hver linie er et selvstændigt item som du skal kunne vælge. Du kan sætte en horisontal scrollbar på den vha. et API-kald.
Hmm, øv.. :) Det jeg skal bruge er en \"textbox\" hvor man kan add en streng øverst (med scroll) - Helst hvor man kan have forskellige farver/skrifttyper (altså f.eks. linie1 er med fed og linie2 er krusiv) -- Hvad kan jeg bruge?
Sæt en listview kontrol ind. Du finder den under \"Microsoft Windows Common Controls (SP4)\". Under Properties sætter du View til 3 - lvwReport. Højreklik på listview\'et og vælg \'Properties\' og \'columnheaders\'. Tilføj en columnheader. Du behøver ikke at give den en tekst.
Sæt denne tekst ind og du får næsten alt du ønsker dig. (kunne ikke lige finde kursiv)
Private Sub Form_Load() Dim x As Long With ListView1.ListItems .Add Text:=\"Rød tekst\" .Item(1).ForeColor = vbRed .Add Text:=\"Lang tekst - Lang tekst - Lang tekst -Lang tekst - Lang tekst - Lang tekst - Lang tekst -\" .Add Text:=\"Mere tekst denne gang fed\" .Item(3).Bold = True .Add Text:=\"Tekst\" End With x = TextWidth(ListView1.ListItems(2).Text) + 400 ListView1.ColumnHeaders.Item(1).Width = x End Sub
Jeg har selvfølgelig taget den længste tekst for at finde bredden. Du må selv lave en løkke der finder den for dig...
Ja, jeg har løst det på en anden måde... så jeg deler lige pointene.. :)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.