Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

(VB6) Meerdere kolommen in een listbox?

None
4 antwoorden
  • Ik probeer meerdere kolommen in een listbox te vullen, maar krijg dit niet voor elkaar. Kolommen toevoegen is simpel: list.colums = 2 bijvoorbeeld. Maar met additem krijg ik het niet voor elkaar de tweede kolom te vullen. Met additem kan je enkel de regel als index opgeven. Dus wat is nu de code om "Hoi" in kolom 1 te zetten en "BlueLagoon" in kolom 2? (Even ter voorbeeld). Heb verschillende boeken doorgebladerd… geven wel op dat je meerdere kolommen kan maken maar hoe je die moet vullen is niet bekend…

    Alvast bedankt!

    BlueLagoon

  • Met een gewone listbox zal het niet lukken.

    De verschillende kolommen in de listbox dienen om gegevens die niet meer in de listbox gaan naast elkaar te zetten. Met andere woorden: i.p.v. een verticale schuifbalk krijg je nu een horizontale.

    Probeer het zelf maar eens uit.
    Zet op een form een listbox met 2 of 3 kolommen.
    En zet de volgende code in het form:
    for i=1 to 100
    list1.additem str(i)
    next i

    Wat jij wil doen kan wel met een listview.
    Meer hierover lees je in de helpfile (MSDN)

    Je hebt de MSDN library niet?
    Geen probleem, ze is gratis ter beschikking op het internet. Ga gewoon even langs bij microsoft.

  • Een ListView is leuk, maar niet in VB :smile: (comctrl32.ocx, 1~2 MB :smile:

    ——————
    X2 Software (jawel, ik heb een domein aangeschaft!)
    Email: mark@x2software.net

  • Private Declare Function SendMessageArray _
    Lib "user32" _
    Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long

    Private Const LB_SETTABSTOPS = &H192

    ' Create 3 tab stops in our list box (gives 4 columns), then populate the tabs
    ' with some values
    Private Sub Command1_Click()
    Dim i As Integer
    ReDim LBTab(1 To 3) As Long
    LBTab(1) = 30
    LBTab(2) = 70
    LBTab(3) = 110

    ' Set tab stops, params are Hwnd of list box, number of tabs in array, tab settings array
    SendMessageArray List1.hwnd, LB_SETTABSTOPS, 3, LBTab(1)
    ' Populate listbox with some test data - use vbtab to separate columns
    For i = 1 To 10
    List1.AddItem "Item" & i & vbTab & "Item" & (i * 5) & vbTab & "item" & (i * 11) & vbTab & "item" & (i * 19)
    Next
    End Sub

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.