[vb2008] listview Thumbs image?

Status
Niet open voor verdere reacties.
D

Dummy1912

Gebruiker
Lid geworden
26 mrt 2010
Berichten
362
Hallo,

ik werkt met een .MDB database
en nu zou ik graag van de column Front alle afbeeldingen in de listview willen zien.
deze column bevat al de locatie's van de schijf. waar deze staan opgeslagen.

ik werk met adob structuur om de database te laden.
hier een stukje.

Code: 
            Dim i As Integer
            ListView2.Items.Clear()
            RsBill.Open("select * from start Order by recordno ASC", ConBill)
            If RsBill.RecordCount > 0 Then
                ListView2.BeginUpdate()
                RsBill.MoveFirst()
                For i = 0 To RsBill.RecordCount - 1
                    ListView2.Items.Add(RsBill.Fields!RecordNo.Value)
                    ListView2.Items(i).SubItems.Add(RsBill.Fields!title.Value())
                    ListView2.Items(i).SubItems.Add(RsBill.Fields!front.Value())

maar als je dan de afb aanklikt zou deze wel de functie moeten hebben om de data die bij deze afb hoort weer te geven in labels.

is dit mogelijk iemand die me hierbij kan helpen aub.

Dummy1912
 
Hallo,

na een tijdje puzzelen heb ik het gevonden om alle fotos uit de database te krijgen :D
maar zit nog met een probleem om de gegevens van uit die foto te krijgen.

ik heb dit gedaan en krijg de index wel maar heb gezien dat deze niet uit de database komt maar vanuit de imagelist

Code: 
                intRecordNoBill = CInt(ListView3.SelectedIndices.Item(0).ToString)
                MovieDetails(ListView3.SelectedIndices.Item(0).ToString)

iemand aub die mij kan helpen?


Dummy1912
 
nee nee The Mighty Atom
de gegevens uit de database die overeen moeten komen :)

Code: 
Private Sub ListView3_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView3.ItemSelectionChanged
        If ListView3.SelectedItems.Count > 0 Then
            Try
                intRecordNoBill = CInt(ListView3.SelectedIndices.Item(0).ToString) 'ListView3.SelectedItems(0).SubItems(0).Text) 
                
                MsgBox(ListView3.SelectedIndices.Item(0).ToString)

              
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

        End If
    End Sub

ok kijk even snel uitleggen

bv ik heb 2 foto's in de imagelist deze worden naar de listview gedropt wijze van spreken
dan zie ik de 2 fotos nu in de listview als largeicons

als ik op de 1ste foto klik krijg ik geen records te zien omdat deze index heeft van 0
de volgende foto heeft de index van 1 en hier komen dan wel records uit de database maar deze komt dan weer niet overeen met de foto omdat hij de index draagt van foto 1.

begrijp je?
 
Dus als ik het goed begrijp:

Foto 1 met als index 0, haalt geen gegevens op.
Foto 2 met als index 1, haalt gegevens die horen bij foto 1.

En als je nou ook nog een foto 3 had, met als index 2, dan haalt deze gegevens op die bij foto 2 horen.

Klopt dat zo?
 
ja inderdaad :D

je begrijipt het :)

enig idee hoe dit op te lossen is op een eenvoudige manier?
 
???

hoe bedoelt u?

dat kan toch niet of wel...

Code: 
            For j As Integer = 0 To ImageList.Images.Count - 1


                Dim lstItem As New ListViewItem()

                lstItem.ImageIndex = j
 
Laatst bewerkt:
Jawel, een index is een integer. Die kan je simpelweg verhogen.

Gewoon + 1 erbij zetten. :)
 
ik heb bij deze +1 gedaan

Code: 
lstItem.ImageIndex = j +1

maar nu krijg ik maar 1 afb te zien?

ben verkeerd zeker :)
 
Code: 
    Private Sub ListView3_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView3.ItemSelectionChanged
        If ListView3.SelectedItems.Count > 0 Then
            Try
                intRecordNoBill = CInt(ListView3.SelectedIndices.Item(0).ToString)  
                MovieDetails(ListView3.SelectedIndices.Item(0).ToString)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

        End If
    End Sub


    Public Sub MovieDetails(ByVal txt As Integer)
        Try
            RsBill.Open("select * from start where recordno=" & intRecordNoBill, ConBill)
            If Not RsBill.BOF And Not RsBill.EOF Then
                With RsBill
                 
                    Label1.Text = RsBill.Fields!title.Value
end sub
 
Laatst bewerkt:
Label1.Text = RsBill.Fields!title.Value

Ik moet weten welke stukje code de index ophaalt. Ik snap verder niks van databases dus de code die je post ben ik niet bekend mee. Ik moet puur alleen datgene hebben dat de gewenste gegevens ophaalt aan de hand van die index dus dus verkeerd is.
 
sorry The Mighty Atom
maar dit is het gedeelte waarin de index wordt gevraagt.

bij loadthumbs daar worden de afb geladen uit de datbase
dus zal daar de index moeten bij staan.

anders zou ik het ook niet weten wat je dan zoekt?
 
Ja maar het gaat toch om het klikken van een afbeelding in die listview?
Probeer deze eens:

MovieDetails(ListView3.SelectedIndices.Item(0 +1).ToString)
 
sorry maar werkt ook niet :(

maar toch bedankt voor de moeite apprecieer het echt.
 

Bijlagen

  • 2010-09-14_204959.png
    2010-09-14_204959.png
    30,7 KB · Weergaven: 37
Het is nogal lastig voor mij om uit te vinden waar de index vandaan, maar waar het omgaat, aangezien die index met 1 achterloopt (0 =niks, 1 = 0, 2 = 1, 3 = 2, etc) moet je gewoon de index verhogen met 1. Ik denk dat je het best zelf ff moet kijken waar je dat bij moet zetten.

Wat je ook kan doen, is elke listviewitem een tag value meegeven. Deze kun je dan weer inlezen zodat elke listviewitem zn eigen bijbehorende informatie bevat, in jouw geval kan dit dus de juiste index zijn. Misschien is dat wat?
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan