Keskustelu: Ohjelmointikysymykset: VB6: VB FileListBox tiedoston poisto

Miten sais FileListBox:sta sillein, että hiiren oikealla painikella valitsee tiedoston ja sit tulis viestiikkuna jossa olis kyseisen tiedoston poistomahdollisuus?

Näyttää olevan niin, että ListIndexin voi valita vain vasemmalla hiiripainikkeella. Eli on ensin valittava vasemmalla ja sitten klikattava oikealla. Mouse_Up-tapahtumaan ehto If Button = 2 Then MsgBox, jossa kysytään tiedoston poistosta ja jos vastaa OK, poistetaan tiedosto lauseella:
Kill File1.Path + "\" + File1.List(File1.LisIndex)

Onko sinulla erityinen syy oikealla näppäimellä valitsemiseen?

Ei, mutta tuli vaan mieleen kun tossa wintoosassa on sillein.

Tarkotus on vaan että saa poistettua sieltä FileListBox:sta
tiedostoja tuo vasen nappi on tiedoston avauksen käytössä.

Tuolla Setän esimerkillä toimii formilla mutta ei FileListBox:ssa tai sit en osannut laittaa oikein?

File1 täytyy sitten vaan päivittää metodilla File1.Refresh

Jotenkin näin? Siihen pitää vielä lisätä ne msgbox systeemit, mutta jotenkin näin jos ymmärsin oikein sen mitä halusit?

Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Shell File1.Path & "\" & File1.filename
End If
If Button = 2 Then
Kill File1.Path & "\" & File1.filename
File1.Refresh
End If
End Sub

juu, no noista yhistelemällä sain toimii haluamalla tavalla,
yks pikku juttu olis vielä, msgbox systeemiin EI nappula, jos ei haluakkaan poistaa tiedostoa.

Kysytään nyt samalla muutkin FileListBox:iin liittyvät kysymykset.

Tiedostot pitää olla hyvin kuvaavia ja niistä pitäis nähdä missä järjestyksessä ne on tallennettu.

joten laitoin juoksevan numeron päätteeksi.

eli

jari.001
jari.002
jari.003
pekka.004
samuli.005

miten sais kätevämmin ja lyhyesti tehtyä, että näyttäis tiedostot vain kun päätteet ovat välillä 001-999

laitoin noin, siihen mahtuu kyllä muutakin, jota ei pitäis.

File1.Pattern =("*.*0*;*.*1*;*.*2*;*.*3*;*.*4*;*.*5*;*.*6*;*.*7*;*.*8*;*.*9*")