Sélection dans listview

Dim i As Integer
'
POUR i=0 ; i<ListView.Count ; i++
	SI CaseACocher(i) == VRAI ALORS
		COPIER FICHIER DE ... VERS ...
	FIN SI
FIN POUR i

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "CheminDeDépart\FichierOrigine.avi" , "CheminFinal\", OverwriteExisting

Option Explicit
Public MeHwnd As Long
Const GWL_EXSTYLE As Long = (-20)                 'APIs gestion des fenêtres transparentes
Const WS_EX_LAYERED As Long = &H80000
Const LWA_ALPHA As Long = &H2                     'Pas utilisé Const LWA_COLORKEY As Long = &H1

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
                                    (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long

'Pour excel ou word, FindWindow. afin de déterminer l'handle de la fenêtre
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim FilmSelection As String
G_Listing.TextBox5 = ""
'Film sélectionné dans la listview listview2 de l'userform G_Listing
FilmSelection = G_Listing.ListView2.ListItems.Item(G_Listing.ListView2.SelectedItem.Index)
WindowsMediaPlayer1.URL = "E:\Videos\" & FilmSelection & ".avi"    'On lance la vidéo sélectionnée

Me.Caption = FilmSelection

'REND TRANSPARENT LA FENETRE DE L'USERFORM
MeHwnd = FindWindowA(vbNullString, Me.Caption)                                               'Recupere le handle de la fenêtre
SetWindowLong MeHwnd, GWL_EXSTYLE, GetWindowLong(MeHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED       'Rajoute l'attribut transparent à la fenêtre
SetLayeredWindowAttributes MeHwnd, 0, 0, LWA_ALPHA             'Définie la transparence de la fenêtre 0 = Taux de transparence de 0 à 255
End Sub

'### AFFICHAGE DU MESSAGE "WMP Arrêté" LORS DE LA FERMETURE DE L'USERFORM LecteurWindowsMedia QUI CONTIENT LE CONTROLE WindowsMediaPlayer1
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
G_Listing.TextBox5 = "WMP arrêté"
End Sub

'ON REND LA FENÊTRE DE L'USERFORM LecteurWindowsMedia TRANSPARENTE LORSQUE
'LA VIDEO EST EN COURS DE LECTURE (3) OU EN PREPARATION D'UNE NOUVELLE SEQUENCE DE LECTURE (9)
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 3 Or 9 Then
MeHwnd = FindWindowA(vbNullString, Me.Caption)                                           'Recupere le handle de la fenêtre
SetWindowLong MeHwnd, GWL_EXSTYLE, GetWindowLong(MeHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED   'Rajoute l'attribut transparent à la fenêtre
SetLayeredWindowAttributes MeHwnd, 0, 255, LWA_ALPHA             'Définie la transparence de la fenêtre 255 = Taux de transparence de 0 à 255
End If
End Sub

'### Pour faire clignoter le message "WMP arrèté" lorsque le lecteur WMP est fermé
Private Sub UserForm_Terminate()
Dim A As Single, B As Integer
On Error Resume Next
A = Timer
Do
B = B + 1
Do Until A + 0.5 <= Timer
DoEvents
Loop
If G_Listing.TextBox5 = "WMP arrêté" Then G_Listing.TextBox5 = "" Else G_Listing.TextBox5 = "WMP arrêté"
A = Timer
If G_Listing.ActiveControl.Name = "Frame2" Then
If G_Listing.Frame2.ActiveControl.Name = "BtnQuitter" Then G_Listing.TextBox5 = "": Exit Sub
End If
Loop Until B = 12    'Message "WMP arrêté" clignotera 12/2=6 fois
End Sub

POUR i=0 ; i<ListView.Count ; i++
	SI CaseACocher(i) == VRAI ALORS
		COPIER FICHIER DE ... VERS ...
	FIN SI
FIN POUR i

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "CheminDeDépart\FichierOrigine.avi" , "CheminFinal\", OverwriteExisting

'### GESTION DU CLIC DANS LA LISTVIEW2
Private Sub ListView2_Click()
  Dim Chemin As String, Fichier As String, FichierTemp As String, TitreFichier As String, FilmSelection As String
  Dim Fs As FileSystemObject, Dossier As Folder, F As File, Img As Object, IP As Object
  Dim Cpt As Integer, LstItem As ListItem

  With ListView2
    On Error Resume Next                                         'Si aucune ligne est sélectionnée dans la listview on sort
    Set LstItem = .SelectedItem
    On Error GoTo 0
    If LstItem Is Nothing Then Exit Sub
    FilmSelection = .ListItems.Item(.SelectedItem.Index)

    Label25 = FilmSelection                                      'Affiche le nom du film sélectionné dans le label 25

    Chemin = "E:\Videos\"
    Fichier = "E:\Affiche\" & FilmSelection & ".jpg"
    Set Fs = CreateObject("Scripting.FileSystemObject")
    Set Dossier = Fs.GetFolder("E:\Affiche")
    For Each F In Dossier.Files
      If F.Name = FilmSelection & ".jpg" Then Cpt = 1
    Next

    'DIMENSIONNEMENT DE L'IMAGE POUR QU'ELLE ENTRE DANS L'USERFORM imageFilm
    Set Img = CreateObject("WIA.ImageFile")                      'Création conteneur pour l'image à manipuler
    Set IP = CreateObject("WIA.ImageProcess")                    'Création du gestionnaire de filtre
    Fichier = IIf(Cpt = 0, "E:\Affiche\Liberty.jpg", Fichier)    'Si l'affiche n'existe pas on prend l'affiche Liberty.jpg par défaut
    Img.LoadFile Fichier                                         'Chargement de l'image dans le conteneur
    IP.Filters.Add IP.FilterInfos("Scale").FilterID              'Ajoute le filtre pour redimensionner l'image (Scale)
    IP.Filters(1).Properties("MaximumWidth") = 315               'Définit la largeur maxi pour le redimensionnement
    IP.Filters(1).Properties("MaximumHeight") = 375              'Définit la hauteur maxi pour le redimensionnement
    IP.Filters(1).Properties("PreserveAspectRatio") = False      'Ne garde pas les proportions

    Set Img = IP.Apply(Img)                                      'Application du filtre à l'image
    FichierTemp = "E:\Affiche\temp$$$$.jpg"                      'Crée une image temporaire pour l'afficher dans l'userform imageFilm
    'Donne un nom (temp$$$$.jpg) dont on est sûr qu'il n'est et ne sera pas utilisé
    On Error Resume Next
    Kill FichierTemp                                             'Supprime l'image temp$$$$.jpg si elle existe
    On Error GoTo 0
    Img.SaveFile FichierTemp                                     'Sauvegarde le fichier
    TitreFichier = Split(IIf(Cpt = 0, "Liberty.jpg", FilmSelection & ".jpg"), ".")(0)

    With imageFilm
      .Show
      .Caption = TitreFichier
      .Picture = LoadPicture(FichierTemp)
    End With
    Kill FichierTemp                                             'Suppression de l'image temp$$$$.jpg en fin de macro

'### Appel du film choisi dans la Listview2
    LecteurWindowsMedia.Show
  End With
End Sub

Private Sub ListView2_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  With ListView2
    .ListItems(Item.Index).Selected = True
    For i = 1 To .ListItems.Count
      If i <> Item.Index Then .ListItems(i).Checked = False
    Next i
  End With
End Sub

Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Item.Checked = True
  With ListView2
    For i = 1 To .ListItems.Count
      If i <> Item.Index Then .ListItems(i).Checked = False
    Next i
  End With
End Sub