[..] Faire une action à partir d'une ListView
Posté : lun. 08 nov. 2010 19:17
Bonjour,
Je voudrais faire une action après avoir sélectionne une ligne qui se trouve dans la ListView1 et appuyer sur un bouton.
Voici mon Script si ça peut en éclaircir quelques un:
Je voudrais faire une action après avoir sélectionne une ligne qui se trouve dans la ListView1 et appuyer sur un bouton.
Voici mon Script si ça peut en éclaircir quelques un:
Code : Tout sélectionner
#include <Array.au3>
#include <GUIConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Valentin\Desktop\Form1.kxf
$Form1 = GUICreate("Générateur de Fichier", 460, 339, 547, 364, -1, 0)
GUISetBkColor(0xFFFFFF)
$Button2 = GUICtrlCreateButton("...", 184, 88, 49, 25, 0)
$Label1 = GUICtrlCreateLabel("Date de creation:", 24, 88, 122, 21)
GUICtrlSetFont(-1, 11, 800, 0, "Caviar Dreams")
$Button1 = GUICtrlCreateButton("Créer un nouveau fichier", 32, 24, 185, 41, 0)
GUICtrlSetFont(-1, 11, 800, 0, "Caviar Dreams")
$ListView1 = GUICtrlCreateListView("Nom du fichier", 16, 128, 233, 193)
$Label2 = GUICtrlCreateLabel("By Pear", 256, 32, 178, 60)
GUICtrlSetFont(-1, 36, 800, 0, "Brush Script Std")
$Pic1 = GUICtrlCreatePic("C:\Users\Valentin\Pictures\PEAR.jpg", 408, 280, 41, 49)
$Button3 = GUICtrlCreateButton("Supprimer le(s) fichier(s)", 272, 128, 169, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$search2 = FileFindFirstFile ("C:\Users\Valentin\Desktop\EasyRewards\" & "*.txt")
While 1
$file = FileFindNextFile ($search2)
if @error then ExitLoop
ConsoleWrite (@error)
GUICtrlCreateListViewItem ( $file & "", $ListView1)
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$zero = ""
$voy = StringSplit("aeiou", "")
$cons = StringSplit("rtpsdfgjlmcvbn", "")
for $a = 1 to 4
$numv = Random(1, $voy[0],1)
$numc = Random(1, $cons[0],1)
$zero = $zero & $voy[$numv] & $cons[$numc]
Next
FileChangeDir(@ScriptDir)
DirCreate('EasyRewards')
FileWrite($zero & ".txt", "Bonjour" & @CRLF & @MON & @CRLF & @MDAY & @CRLF & "La clé d'activation est : '" & $zero & "'." & @CRLF & @CRLF & @CRLF & "Ne tenez pas compte des lignes ci-dessous. Elle sont générées àléatoirement pour faire varier la taille du fichier. " & @CRLF & @CRLF & @CRLF)
$aleatoire = StringSplit("azertyuiopqsdfghjklmwxcvbn ", "")
$z = ""
for $x = 1 to 44000
$lettre = Random(1, $aleatoire[0],1)
$z = $z & $aleatoire[$lettre]
Next
$txt = ""
FileWrite($zero & ".txt", $z)
FileCreateNTFSLink($zero & ".txt", "EasyRewards\" & $zero & ".txt")
FileDelete($zero & ".txt")
ConsoleWrite (@WorkingDir)
;~ GUICtrlCreateListViewItem ( $zero & ".txt",$ListView1)
$search2 = FileFindFirstFile ("C:\Users\Valentin\Desktop\EasyRewards\" & "*.txt")
ConsoleWrite (@error)
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
While 1
$file = FileFindNextFile ($search2)
if @error then ExitLoop
ConsoleWrite (@error)
GUICtrlCreateListViewItem ( $file & "", $ListView1)
WEnd
Case $Button2
$chemin = FileOpenDialog("Date","C:\Users\Valentin\Desktop\EasyRewards","Texte (*.txt)")
$mois = FileReadLine($chemin,2)
$jour = FileReadLine($chemin,3)
if $mois = "01" Then
$mois = "Janvier"
EndIf
if $mois = "02" Then
$mois = "Fevrier"
EndIf
if $mois = "03" Then
$mois = "Mars"
EndIf
if $mois = "04" Then
$mois = "Avril"
EndIf
if $mois = "05" Then
$mois = "Mai"
EndIf
if $mois = "06" Then
$mois = "Juin"
EndIf
if $mois = "07" Then
$mois = "Juillet"
EndIf
if $mois = "08" Then
$mois = "Aout"
EndIf
if $mois = "09" Then
$mois = "Septembre"
EndIf
if $mois = "10" Then
$mois = "Octobre"
EndIf
if $mois = "11" Then
$mois = "Novembre"
EndIf
if $mois = "12" Then
$mois = "Décemble"
EndIf
MsgBox(0,"Date de Creation", $jour & " " & $mois)
EndSwitch
WEnd
