probleme de suppression dans une list

Question

JE VEU CLIQUER SUR L'UN DE MES FILMS ET LE SUPPRIMER MAIS JE SUIS BLOQUER.....

Private Sub lstFilm_DblClick()
    Dim Nbr As Byte
'    lstNomDuFilm = lstFilm.Text


    Dim k As Byte
    k = 0
    For k = 1 To 10
    lstNomDuFilm = lstFilm.Text
    lstNomDuFilm = Mid(lstNomDuFilm, k, 1)
        If lstNomDuFilm = " " Then
            k = k
            GoTo saut
        End If
    Next k
saut:
    lstNomDuFilm = lstFilm.Text
    Nbr = Len(lstNomDuFilm)
    a = k + 4
    lstNomDuFilm = Mid(lstNomDuFilm, a, Nbr)


Dim reqSuppr As String
Dim rep As String
rep = MsgBox("Etes-vous s&#251;r de vouloir supprimer cet enregistrement ?", vbYesNo)
If rep = vbYes Then


End If

End Sub

MERCI D'AVANCE

Utilisateur anonyme · Answer

Salut,

Et moi je veut une boite de chocolats !!!
Non, on demande pas les choses comme &#231;a. D'abord, on dit bonjour, ensuite on explique le but du programme, on pose sa question, on met le code puis, on dit d'avence un merci pour ceux qui vont y  r&#233;pondre. Sans oublier de pr&#233;siser le langage utilis&#233; et sa version.

Pour le code et le merci ca va mais le d&#233;but c'est pas ca.

Pour r&#233;pondre &#224; ta question utilise kill(lstNomDuFilm)

Voili, voilou

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Probleme de suppression dans une list

1 réponse

Discussions similaires