listview på userform

Ret denne her lidt til :-)

Private Sub UserForm_Click()
Dim st As String \'the temp value
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
    st = ListBox1.List(i, 1)
    ListBox1.List(i, 1) = ListBox1.List(i, 0)
    ListBox1.List(i, 0) = st
Next
End Sub

Mvh Flemming www.win-consult.com

Hmmm kan ikke rigtig hitte ua det??

sorry - jeg har givet dig koden til at bytte rundt på indholdet af to kolonner i en listbox - flov!

Princippet med List(i, 1) og List(i, 0) er dog god nok.

jeg finder lige et eksempel

Jeg har iøvrigt lavet en løsning til dig tidligere, hvor du fik sendt hele regnearket ned - kan du ikke finde det ?

nej det var nok omkring et treeview

Snuppet direkte fra hjælpen:

ListBox Control, Column, ColumnCount, List Properties Example

\'

The following example loads a two-dimensional array with data and, in turn, loads two ListBox controls using the Column and List properties. Note that the Column property transposes the array elements during loading.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains two ListBox controls named ListBox1 and ListBox2.

Dim MyArray(6,3)

Private Sub UserForm_Initialize()
    Dim i As Single
    \'The 1st list box contains 3 data columns
    ListBox1.ColumnCount = 3       
    \'The 2nd box contains 6 data columns
    ListBox2.ColumnCount = 6       

    \'Load integer values into first column of MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
    Next i

    \'Load columns 2 and three of MyArray
    MyArray(0, 1) = \"Zero\"
    MyArray(1, 1) = \"One\"
    MyArray(2, 1) = \"Two\"
    MyArray(3, 1) = \"Three\"
    MyArray(4, 1) = \"Four\"
    MyArray(5, 1) = \"Five\"

    MyArray(0, 2) = \"Zero\"
    MyArray(1, 2) = \"Un ou Une\"
    MyArray(2, 2) = \"Deux\"
    MyArray(3, 2) = \"Trois\"
    MyArray(4, 2) = \"Quatre\"
    MyArray(5, 2) = \"Cinq\"

    \'Load data into ListBox1 and ListBox2
    ListBox1.List() = MyArray
    ListBox2.Column() = MyArray

End Sub

det er nu ikke så meget listbox kontrollen jeg har problemer med... det er snarre denne listview

Private Sub UserForm_Initialize()
Dim MyArray(4, 4)
For i = 0 To 3
    MyArray(i, 0) = \"Item \" & i
    MyArray(i, 1) = \"Kol2 \" & i
Next i
ListBox1.List() = MyArray
End Sub

listview ? ikke forstået ?

er det muligt jeg snakker forbi dig???
det drejer sig om en listview og ikke en listbox

jeg har ingen problemer med, at oprette rækker i denne listview, ej har jeg problemer med indlæsning af data i den første række (se øverste linie), men her går det så galt!.

en listview har ikke .list som en mulighed :-))

Jeg kan bare ikke læse.........

Brug:  For i = 0 to 3
Første kolonne hedder 0 IKKE 1, som du forsøger med For i 0 1 To 4

hmmmm det anede mig!! :)

lykkedes det nu ?

For i = .... går på de items der skal indlæses i de forskellige kolonner.
du får lige hele koden...
(imagelist1, 2) er på samme userform.

Private Sub UserForm_Initialize()

    Dim i As Integer

    With ListView1
        .View = lvwReport
        .SmallIcons = ImageList1
        .Icons = ImageList2
        For i = 1 To 4
            .ListItems.Add i, \"Item \" & i, \"Item \" & i, i, i
        Next
    End With
End Sub

i koden
jeg kan ikke finde stedet hvor jeg kan skrive col1, col2 osv.

Jeg kan heller ikke finde en egenskab til flere kolonner.
Prøv evt. at foretage en søgning på groups.google.com

Problemet kan løses med
.Add.Subitems(1)

God fornøjelse :-)