help

[Vicks]

quick question how come when i put a pick a song it doesn't path it to the list view, becuase thats what it should do,

expandcollapse popup

HotKeySet("{PGDN}","_hide")
HotKeySet("{pgup}","unhide")
#include <GUIConstants.au3>
#include <File.au3>

$destination = @ScriptDir & "\Pictures\Splash.bmp"

SplashImageOn("Splash Screen", $destination,600,400)
Sleep(3000)
SplashOff()

If Not FileExists (@ProgramFilesDir & "\player\") Then
DirCreate(@ProgramFilesDir & "\player\")
EndIf
$path1 = @ScriptDir & "\Pictures\Icons\Back - Previous.ico"
$path2 = @ScriptDir & "\Pictures\Icons\Open Folder green.ico"
$path3 = @ScriptDir & "\Pictures\Icons\Forward - Next.ico"
$path4 = @ScriptDir & "\Pictures\Icons\Stop.ico"
$path5 = @ScriptDir & "\Pictures\Icons\CD.ico"
$path6 = @ScriptDir & "\Pictures\Icons\Media Player.ico"
$path7 = @ScriptDir & "\Pictures\Icons\Advanced Options.ico"
$path8 = @ScriptDir & "\Pictures\Icons\Desktop.ico"
$path9 = @ScriptDir & "\Pictures\Icons\Mute.ico"



$bkgr = @ScriptDir & "\Pictures\parkour.bmp"

$hwnd = GUICreate("Parkour Player", 595, 568, 280, 112)
GUISetCursor (0)
GUISetBkColor(0x000000)
$bkground = GUICtrlCreatePic($bkgr, 0, 0, 633, 600)
GUICtrlSetState($bkground, $GUI_DISABLE)
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 2000, "long", 0x00080000 )
$previous = GUICtrlCreateButton("(Not allowed)", 0, 40, 81, 40, $BS_ICON)
GUICtrlSetImage($previous, $path1)
GUICtrlSetTip(-1, "Previous")
$Add = GUICtrlCreateButton("(Not allowed)", 0, 200, 81, 40, $BS_ICON)
GUICtrlSetImage($ADD, $path2)
GUICtrlSetTip(-1, "Open Music")
$Next = GUICtrlCreateButton("(Not allowed)", 0, 80, 81, 40, $BS_ICON)
GUICtrlSetImage($Next, $path3)
GUICtrlSetTip(-1, "Next")
$eject = GUICtrlCreateButton("(Not allowed)", 0, 240, 81, 40, $BS_ICON)
GUICtrlSetImage($eject, $path5)
GUICtrlSetTip(-1, "Eject CD-ROM")
$Play = GUICtrlCreateButton("(Not allowed)", 0, 0, 81, 40, $BS_ICON)
GUICtrlSetImage($Play, $path6)
GUICtrlSetTip(-1, "Play")
$clear = GUICtrlCreateButton("(Not allowed)", 0, 280, 81, 40, $BS_ICON)
GUICtrlSetImage($clear, $path7)
GUICtrlSetTip(-1, "Clear List")
$Minimize = GUICtrlCreateButton("(Not allowed)", 448, 528, 75, 40, $BS_ICON)
GUICtrlSetImage($Minimize, $path8)
GUICtrlSetTip(-1, "Minimize")
$exit = GUICtrlCreateButton("(Not allowed)", 520, 528, 75, 40, $BS_ICON)
GUICtrlSetImage($exit, $path4)
GUICtrlSetTip(-1, "Exit")
$Mute = GUICtrlCreateButton("(Not allowed)", 0, 160, 81, 40, $BS_ICON)
GUICtrlSetImage($Mute, $path9)
GUICtrlSetTip(-1, "Mute")
$List = GUICtrlCreateListView("Drag And Drop Music", 360, 0, 233, 281)
GUICtrlSetBkColor(-1, 0x0000656)
GUICtrlSetTip(-1, "DRAG AND DROP MUSIC HERE")
GUICtrlSetCursor ($List, 3)
$Slider = GUICtrlCreateSlider(0, 320, 89, 25)
GUICtrlSetTip(-1, "Volume")
GUICtrlSetCursor ($Slider, 3)
GUICtrlSetData($Slider,50)
GUICtrlSetLimit ($Slider,100,0)
$stop = GUICtrlCreateButton("(Not allowed)", 0, 120, 81, 40, $BS_ICON)
GUICtrlSetImage($stop, $path4)
GUICtrlSetTip(-1, "Stop")
GUISetState(@SW_SHOW)
;opens the playlist and then puts all the songs in the playlist file in the listbox
$filehandle = Fileopen(@ProgramFilesDir & "\player\Playlist.txt",0)

while 1
Local $Line = FileReadLine($filehandle)
    If @error Then ExitLoop
    GUICtrlSetData($list, $Line & "|")
Wend

Fileclose($filehandle)

GuiSetState()
;---------------------------------------GUI END---------------------------------------------------------
;----------------------------------DIM VARS-------------------------
Dim $Minimize
Dim $play
Dim $Mute
dim $stop
Dim $exit
Dim $slider
DIm $msg
Dim $playlist
Dim $list
Dim $file
Dim $line
DIm $previous
dim $playlistpath = @ProgramFilesDir & "\player\Playlist.txt"
dim $songlistpath = @ProgramFilesDir & "\player\song.txt"
Global $linenumber = 1
;--------------DIM END
func stop()
    while 1
        sleep(100)
    wend
endfunc;==>stop




;-------------start--------------------
Do
    
    $msg = GUIGetMsg ()
    Select
        
    Case $msg = $Minimize
        GUISetState(@SW_MINIMIZE)
        
        Case $msg = $eject
CDTray ( "D:", "open") 
sleep(5000)
CDTray ( "D:", "close") 

;------------------ STOP MUSIC-------------
        Case   $msg = $stop
            soundplay("C:\exit.mp3")
;---------------END STOP MUSIC---------
;--------- PLAY MUSIC ---------
        Case $msg = $play
            $line = FileReadLine($playlistpath, $linenumber)
            FileDelete($songlistpath)
         FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath)
            _FileCreate($songlistpath)
            FileWrite($songlistpath, $line & @CRLF)
            Soundplay ($line)
;---------END PLAY MUSIC------
            
;--------------------------mute---------------
        Case $msg = $Mute
            send("{VOLUME_MUTE}")
;-----------END MUTE--------------
;------------------volume----------------
        Case $msg = $slider
            SoundSetWaveVolume (GUICtrlRead($slider))
;-------------END VOLUME---------------
;-------------------ADD SONG---------------
        Case $msg = $ADD
            $playlist=FileOpenDialog ("Choose music", "", "Musicfiles(*.mp3;*.wma;*.wav;*.wave;*.mid;*)")
            If not @error Then
                FileWrite($playlistpath, $playlist & @CRLF)
                GUICtrlSetData($list, $playlist)
            Endif
;-----------------END ADD SONG --------------------
;---------------------CLEAR SONG-------------------
        case $msg = $clear
            GUICtrlSetData($list,"")
            FileDelete($playlistpath)
         FileInstall("C:\Documents and Settings\NEON\Desktop\Playlist.txt", $playlistpath)
            _FileCreate($playlistpath)
;---------------------- END CLEAR SONG--------------------
;----------------------NEXT SONG----------------
        Case $msg = $Next
            If $linenumber <> _FileCountLines($playlistpath) Then
                $linenumber = $linenumber + 1
                $line = FileReadLine($playlistpath, $linenumber)
                FileDelete($songlistpath)
                _FileCreate($songlistpath)
           FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath)
                FileWrite($songlistpath, $line & @CRLF)
                Soundplay ($line)
            Endif
;------------------END NEXT SONG-----------------------
;-----------------PREVIOUS SONG--------------
        Case $msg = $previous
            If $linenumber > 1 Then
                $linenumber = $linenumber - 1
                $line = FileReadLine($playlistpath, $linenumber)
                FileDelete($songlistpath)
          FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath)
                _FileCreate($songlistpath)
                FileWrite($songlistpath, $line & @CRLF)
                soundplay($line)
            Endif
;---------------END PREVIOUS SONG----------------------
;-------------- EXIT-----------------------
        Case $msg = $exit

            exit
    EndSelect
Until $msg = $GUI_EVENT_CLOSE
;------------- END EXIT--------



Func _hide()
    WinSetState("Parkour Player","",@SW_HIDE)
EndFunc


Func unhide()
    WinSetState("Parkour Player","",@SW_SHOW)
EndFunc

[Simucal]

Just to clarify.. you mean when you drag and drop a song into the listview box?

[Vicks]

Just to clarify.. you mean when you drag and drop a song into the listview box?

nope when you push open it opens up a dialog and when you select the song it will write the path in the listview and it will highlight the one playing and if you click on it, it will play that song how can i do this