Guten Abend
Als Einstieg wollte ich mir einen recht simplen Musikplayer bauen. Dieser funktioniert soweit auch, bis auf die Darstellungsfehler in der Listbox die mich stören.
Wenn ich mit FileOpen mehrere Sounddateien auswähle, werden diese mit dem Dateinamen in die Listbox eingetragen. Doch es wird jedesmal noch ein weiterer Eintarg erstellt mit dem Pfad.
Bei der Einzelauswahl wird jeweils direkt der ganze Pfad an den Eintrag angehängt.
Ist es möglich, bei Einzel- und Mehrfachauswahl jeweils nur den Dateinamen eingetragen zu bekommen und man diese Dateien trotzdem abspielen kann?
Habe noch einen Screenshot angehängt, damit ihr auch genau seht was ich mein
Spoiler anzeigen
#include <GUIConstants.au3>
#include <Sound.au3>
#include <string.au3>
#include <array.au3>
#Include <GuiStatusBar.au3>
#include <GUIConstants.au3>
#Include <GuiListBox.au3>
Global $Listbox1
global $file, $WS_HSCROLL, $Sound, $Button5, $soundFile
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Player", 365, 316, 652, 187)
GUISetBkColor(0xC8C8C8)
$filemenu = GUICtrlCreateMenu("Datei")
$fileitem1 = GUICtrlCreateMenuItem("Öffnen...", $filemenu)
$fileitem = GUICtrlCreateMenuItem("Beenden", $filemenu)
$helpmenu = GUICtrlCreateMenu("?")
$aboutitem = GUICtrlCreateMenuItem("About", $helpmenu)
$ListBox1 = GUICtrlCreateList("", 8, 32, 249, 201)
$Button7 = GUICtrlCreateButton("Öffnen...", 272, 40, 81, 25, 0)
$Label1 = GUICtrlCreateLabel("Musikdateien", 8, 8, 87, 20)
GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
$Button3 = GUICtrlCreateButton("Play", 56, 248, 70, 41, 0)
GUICtrlSetImage(-1, "shell32.dll", 246)
$Button4 = GUICtrlCreateButton("Pause", 136, 248, 70, 41, 0)
$Button5 = GUICtrlCreateButton("Resume", 136, 248, 70, 41, 0)
controlhide("Player","",$Button5)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _fileOpen()
Local $file = FileOpenDialog("Musikdatei auswählen", "C:", "Song files (*.mp3; *.wma; *.wav)", 2+4)
If @error Then Return
GUICtrlSetData($ListBox1,$file)
EndFunc ;==>_fileOpen
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
exit
Case $msg = $Button7
_fileOpen()
Case $msg = $Button3
_SoundClose($Soundfile)
$Sound = GUICtrlRead($ListBox1)
$soundFile = _SoundOpen($Sound)
_SoundPlay($soundFile)
Case $msg = $Button4
_SoundPause($soundFile)
controlhide("Player","",$Button4)
ControlShow("Player","",$Button5)
Case $msg = $Button5
_SoundResume($soundFile)
controlhide("Player","",$Button5)
ControlShow("Player","",$Button4)
;Case $msg = $aboutitem
; _About()
Case $msg = $fileitem
exit
Case $msg = $fileitem1
_fileOpen()
EndSelect
WEnd
#cs
Func _About()
Local $Form2, $GroupBox1, $Image1, $Label1, $Label2, $Label3
Global $WS_GROUP
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("About", 200, 174, 200, 235)
GUISetIcon("Data\screamer_gray.ico")
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 185, 145)
$Image1 = GUICtrlCreatePic("Data\Personal_picture.jpg", 24, 24, 105, 121)
$Label1 = GUICtrlCreateLabel("Player", 20, 32, 104, 22, $WS_GROUP)
GUICtrlSetFont(-1, 11, 400, 2, "Century Gothic")
$Label2 = GUICtrlCreateLabel("Version 1.0", 20, 64, 83, 22, $WS_GROUP)
GUICtrlSetFont(-1, 11, 400, 2, "Century Gothic")
$Label3 = GUICtrlCreateLabel("by Jann Truog", 20, 96, 104, 22)
GUICtrlSetFont(-1, 11, 400, 2, "Century Gothic")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##
EndFunc ;==>_About()
#ce
Danke und mfg
autoit.de/wcf/attachment/5221/