Listview.removeitem

tror du skal bruge ListView3_Click()

i = ListView3.Index
ListView3.RemoveItem(ListView3.ListIndex(i)

noget i den retning.....

Ups det er godt nok med MouseUp

altså:

Dim i as Integer
Private Sub ListView3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
    i = ListView3.Index
    ListView3.RemoveItem(ListView3.ListIndex(i)
End If
End Sub

Virker ikke...

Method or datamember not found...

"ListIndex"

Tubber> Du mangler en parantes!

Dim i as Integer
Private Sub ListView3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
    i = ListView3.Index
    ListView3.RemoveItem(ListView3.ListIndex(i))
End If
End Sub

//>Rune

Makes no difference

Prøv så med :
ListView3.RemoveItem(ListView3.Index(i))

Nope...

Under hvad komponent finder jeg listview ? vil lige kigge lidt nærmere på det...

Microsoft Windows Common Controls 6.0

Prøv denne

If Button = 2 Then
    ListView3.ListItems.Remove (ListView3.SelectedItem.Index)
End If

Perfect!!!

Er du med på én til?

Vi skal lave en random funktion. Der er f.eks. 12 records i en listview nu skal skal de vælges i tilfældig rækkefølge!

INT((12*rnd)+1)

mener jeg tester den lige

Det er sådan :O)

hvordan skal de så bruges ? som index ?

Okay jeg er igang med en musikdatabase der skal være lidt intelligent. Pt kan programmet scanne forudgivede foldere og lægge alt hvad der ender på .mp3 og .wma i en database med kunsternavn og titel og hvis der skulle være et album også det!

Det du hjalp mig med her var at fjerne en record fra en playlist (listview3). Nu skal jeg have det sådan, at hvis en checkbox er klikket af altså sat til så skal den mediaplayer jeg har på min form spille en ny TILFÆLDIG sang fra playlisten (listview3).

Måden jeg fyrer en sang af på er at der bliver søgt i den nævnte database der også indeholder den fuldstændige sti til den angivne fil.

Meget af det har jeg allerede.

En timer holder øje med om min mediaplayer pt afspiller noget med

        MediaPlayer1.Duration = MediaPlayer1.CurrentPosition

Get it? 150 point reserveret til dig???

Læg foresten lige et svar for dette sp.

2 sec...

Int(Rnd * ListView1.ListItems.Count)

så må den se sådan ud, med mindre listview starter med index 1......

Okay men hvordan vil det se ud en sammenhæng?

jeg skal have noget med

if MediaPlayer1.Duration = MediaPlayer1.CurrentPosition then
....???

btw hvad filen er forskellen på ListView og ListBox ?

jeg har lavet en CD db på et tidspunkt.....måske vi skulle udveksle kode hehehe altså når du er færdig ?

Lavede min som eksamensprojekt i programmering på HTX.....

Du har ikke en chance.... :-)

Så vidt jeg er klar over er komponterne faktisk vidt forskellige, de ser bare ens ud og bruges til mange af de samme ting...

siger jeg jeg har det ? men vil godt se lidt af det du har lavet....vil egenligt gerne udbygge min lidt hehe......

Nej det må du self selv om hvis du vil holde det for dig selv.....:O)

2 sec

Nej sgu det skal ikke sælges du må gerne få det hele... vil du have det på mail eller vil du downloade?

vare lige lidt mere har en lille baby der skal puttes bbl

:-)

Okay nu har jeg sgu fået den til at virke... meeeen det er jo ikke helt godt. Den kan jo godt vælge de samme entries/recorde flere gange inden alle har været valgt og desuden gik den i fejl til sidst med "index out of bounds"!

smolf@krog-frandsen.dk tak :O)

Nu er du ikke strisser vel?

MediaPlayer1.Open (ListView1.SelectedItem.Index(Int(Rnd * ListView1.ListItems.Count) - 1))
MediaPlayer1.Play

nej er jeg ikke....

hov ikke selected item men ListView3.Index(Int(Rnd * ListView1.ListItems.Count) - 1))

Lav et kontrol Array til at chekke om dine sange har været valgt.....

Dim Sang() as Integer og så smid dit index der ind i og så lav en løkke der kører arryet igennem og chekker om dit udfaldne index er der i, hvis det er kører du den rnd igen der vælger et index, er det der ikke tilføjer du det index til arrayet

er sendt!

Hvor er det den der out of bound kommer ? i den med rnd eller den med museknappen ?

Det kan man ikke det du har skrevet...

Jeg har en timer kørende så snart der bliver klikket i en checkbox
Timeren:


If MediaPlayer1.Duration = MediaPlayer1.CurrentPosition Then
    Set ListView3.SelectedItem = ListView3.Index(Int(Rnd * ListView3.ListItems.Count))
    MsgBox ListView3.Index(Int(Rnd * ListView3.ListItems.Count))
    PlayPL
Else
    If MediaPlayer1.CurrentPosition = -1 Then
        Set ListView3.SelectedItem = ListView3.ListItems(Int(Rnd * ListView3.ListItems.Count))
        PlayPL
    End If
End If


PlayPL:
Dim strExec As String
Dim intExec As String
Dim strCorrection As String

MediaPlayer1.Volume = 0
intExec = ListView3.SelectedItem.ListSubItems(2)
strArtist = ListView3.SelectedItem.Text
strSong = ListView3.SelectedItem.ListSubItems(1)

strSQL = "SELECT * FROM tblAll WHERE Id = " & intExec
Set recSearch = datdb.OpenRecordset(strSQL)

strExec = recSearch("Path")
If Not recSearch.RecordCount = 1 Then
    MsgBox "An error occurred", vbOKOnly + vbCritical, "Error"
Else
    MediaPlayer1.Open strExec
    If strAlbum = "" Then
        lblNow.Caption = "Now playing: " & strArtist & " with " & "'" & strSong & "'"
    Else
        lblNow.Caption = "Now playing: " & strArtist & " with " & "'" & strSong & "'" & " from the Album " & "'" & strAlbum & "'"
    End If
End If

Nå... nu smutter jeg sgu i seng...