ListViewItems per GUICtrlSetData?

DU!

[autoit]

#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Conrad Bauteilsaver ", 438, 195, 192, 124)
$ListView1 = GUICtrlCreateListView("Best.Nr|Bauteilname|URL", 8, 8, 426, 158)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 120)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 240)
$Button1 = GUICtrlCreateButton("Neues Bauteil", 352, 168, 83, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Beenden", 272, 168, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Info...", 192, 168, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;===================================================
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Neues Bauteil", 295, 116, 192, 124)
$Label1 = GUICtrlCreateLabel("Best.Nr:", 8, 16, 42, 17)
$Input1 = GUICtrlCreateInput("", 56, 16, 233, 21)
$Label2 = GUICtrlCreateLabel("Name:", 8, 40, 35, 17)
$Input2 = GUICtrlCreateInput("", 56, 40, 233, 21)
$Label3 = GUICtrlCreateLabel("URL:", 8, 64, 29, 17)
$Input3 = GUICtrlCreateInput("", 56, 64, 233, 21)
$Button4 = GUICtrlCreateButton("OK", 216, 88, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

Dim $Listviewarray[1] = [0]
Local $count = IniRead(@Scriptdir & "\Data.ini", "Allgemein", "Elemente", 0)
$ini = IniReadSection(@Scriptdir & "\Data.ini","Bauteile")
If IsArray($ini) Then
ReDim $Listviewarray[$count+1]
For $i = 1 To $count
$Listviewarray[0] = Ubound($Listviewarray) - 1
$Listviewarray[$i] = GUICtrlCreateListViewItem($ini[$i][0], $ListView1)
Next
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_SHOW, $Form2)
Case $Button2
Exit
Case $Button3
MsgBox(64,"Info!","Created by button421")
Case $Listviewarray[0] To $Listviewarray[$count]
$split = StringSplit(GUICtrlRead($nMsg[0]), "|")
If Ubound($split) >= 3 Then
ShellExecute($split[3])
EndIf
EndSwitch
Case $Form2
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form2)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
Case $Button4
$text = GUICtrlRead($Input1) & "|" & GUICtrlRead($Input2) & "|" & GUICtrlRead($Input3)
$count += 1
ReDim $Listviewarray[$count+1]
$Listviewarray[0] = Ubound($Listviewarray) - 1
$Listviewarray[$count] = GUICtrlCreateListViewItem($text, $ListView1)
IniWrite(@Scriptdir & "\Data.ini", "Allgemein", "Elemente", $count)
IniWrite(@Scriptdir & "\Data.ini", "Bauteile", $text, "")
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
GUISetState(@SW_HIDE, $Form2)
EndSwitch
EndSwitch
WEnd

[/autoit]