Moin
Habe hier eine 3er Liste, wollte mal fragen ob es Möglich ist, das in der dritten Liste noch zusätzliche Informationen angezeigt werden. Wenn man z.B. auf Google,Lycos oder Youtube usw. klickt.
Spoiler anzeigen
#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $a_VideoPortals[5][2] = [ _
["Name","URL"], _
["Youtube","www.youtube.com"], _
["Vimeo","www.vimeo.com"], _
["Clipfish","www.clipfish.de"], _
["MyVideo","www.myvideo.de"] _
]
Global $a_SearchMachines[5][2] = [ _
["Name","URL"], _
["Google","www.google.de"], _
["Lycos","www.lycos.de"], _
["Yahoo","www.yahoo.de"], _
["Alta Vista","www.altavista.com"] _
]
Global $a_Find
[/autoit] [autoit][/autoit] [autoit]$h_Gui = GUICreate ("", 550, 250)
$h_List1 = GUICtrlCreateList ("", 10, 10, 160, 160)
$h_List2 = GUICtrlCreateList ("", 180, 10, 160, 160)
$h_List3 = GUICtrlCreateList ("", 350, 10, 160, 160)
$h_Go = GUICtrlCreateButton("Go", 10, 200, 50, 26)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData ($h_List1, "Die Besten Videoportale|Die Besten Suchmaschinen")
[/autoit] [autoit][/autoit] [autoit]GUISetState (@SW_SHOW, $h_Gui)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While True
Switch GUIGetMsg ()
Case -3
Exit
Case $h_List1
$s_Read = GUICtrlRead ($h_List1)
Switch $s_Read
Case "Die Besten Videoportale"
$a_Find = $a_VideoPortals
Case "Die Besten Suchmaschinen"
$a_Find = $a_SearchMachines
Case Else
$a_Find = -1
EndSwitch
if $a_Find <> -1 Then
$newString=""
GUICtrlSetData ($h_List2, $newString)
For $i = 1 To UBound ($a_Find) - 1
$newString &= $a_Find[$i][0] & "|"
Next
GUICtrlSetData ($h_List2, StringTrimRight($newString,1))
EndIf
Case $h_Go
$s_Read = GUICtrlRead ($h_List1)
Switch $s_Read
Case "Die Besten Videoportale"
$a_Find = $a_VideoPortals
Case "Die Besten Suchmaschinen"
$a_Find = $a_SearchMachines
Case Else
$a_Find = -1
EndSwitch
if $a_Find <> -1 Then
$s_Read = GUICtrlRead ($h_List2)
For $i = 1 To UBound ($a_Find) - 1
If $s_Read = $a_Find[$i][0] Then
ShellExecute ($a_Find[$i][1])
ExitLoop
EndIf
Next
EndIf
EndSwitch
WEnd
lg Ludacris