Gui

Evil_Has_Survived · April 27, 2006

hm I want to perfrom a simple task but I always add uneeded coding, so say I want a check box if checked it will make the Volume aka sound control set to 0 which means you won't hear anything coming from media files etc, and if check box is not checked then you will be able to hear the sound because volume would equal 100.

so maybe

#include <GUIConstants.au3>

GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered

$checkCN = GUICtrlCreateCheckbox ("CHECKBOX 1", 10, 10, 120, 20)
GUISetOnEvent($checkCN "MUTE")

GUISetState ()    ; will display an  dialog box with 1 checkbox

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

this won't work I know how I might go about making it but can you give me a example of how you would do it please

Thatsgreat2345 · April 27, 2006

well if u wanted it to work in the first place u got to kinda have a mute funciton but when you put this in your script you cant have any GUigetmsg cuz GUisetonevent and GUigetmsg arent friends :think:

Evil_Has_Survived · April 27, 2006

god im so sleepy

#include <GUIConstants.au3>

GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered

$Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20)


GUISetState ()    ; will display an  dialog box with 1 checkbox

; Run the GUI until the dialog is closed
While 1
    $Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20)
    
    If MouseClick("left, 2") Then ExitLoop
SoundSetWaveVolume(0)
Wend

yea I know :think: if i click the mouse it will close

lol

#include <GUIConstants.au3>

GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered

$Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20)


GUISetState ()    ; will display an  dialog box with 1 checkbox

; Run the GUI until the dialog is closed
While 1
    sleep(100)
Wend

Func Mute1()
    $Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20)
    If mouseclick("left") then 
        SoundSetWaveVolume(0)
    EndIf
    MouseClick("left") Then
    SoundSetWaveVolume(100)
endfunc

I bet I also know what I have know here to

trust me staying up all night and sleeping for one hour then going to school and then staying up to 1033pm is bad lol

Thatsgreat2345 · April 27, 2006

... dude seriously you forgot the Event this time and your recreating the freaking checkbox, check out

send("{VOLUME_MUTE}")

but for people Using other versions of windows besides 2000/xp then just set the volume to 0

#include <GUIConstants.au3>
opt("GUIOnEventMode",1)
GUICreate("My GUI Checkbox"); will create a dialog box that when displayed is centered
$Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20)
GUISetState () 
GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
while 1
    If Guictrlread($Mute) = $GUI_CHECKED Then
    SoundSetWaveVolume(0)
;or for winxp and 2000 send("{VOLUME_MUTE}")
ElseIf GUictrlread($Mute) = $GUI_UNCHECKED Then
    SoundSetWaveVolume(100)
    EndIf
WEnd

func quit()
    Exit
EndFunc

Edited April 27, 2006 by thatsgreat2345

Evil_Has_Survived · April 27, 2006

thsnaks you god I going to bed soon :think:

Evil_Has_Survived · April 27, 2006

I feel so stupid im tired but need to fix this, I shink that i have a while statement for a func is incorrect

#include <GuiConstants.au3>
#include <INet.au3>
Opt("GUIoneventmode",1)
Opt("OnExitFunc","_write")
Global $songname[500]
Global $song[500]
Global $songGUI[500]
Global $number
;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
GuiCreate("Media Player", 750, 400,(@DesktopWidth-336)/2, (@DesktopHeight-168)/2,-1,0x00000018)
GUISetBkColor(0x313594)
$Input = GuiCtrlCreateInput("Drag And Drop Media files here.", 512, 10, 210, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
$Listname = GUICtrlCreateListView ( "Playlist|path",512.5, 40, 180, 317.5)
_Loadplay()
$oIE = ObjCreate("Shell.Explorer.2")
$Slider = GuiCtrlCreateSlider(0, 345, 200, 40)
$Buttonprevious = GUICtrlCreateButton("previous", 0, 0, 60, 20)
$Buttonnext = GUICtrlCreateButton("next", 120, 0, 60, 20)
$Buttonplay = GuiCtrlCreateButton("Play", 60, 0, 60, 20)
$Buttonstop = GuiCtrlCreateButton("Stop", 0, 20, 60, 20)
$Buttonadd = GuiCtrlCreateButton("Add", 120, 20, 60, 20)
$Checkboxmute = GUICtrlCreateCheckbox("Mute", 200, 20, 60, 20)
$Bottonhitkast = GUICtrlCreateButton("HitKast", 60, 20, 60, 20)
$Date = GUICtrlCreateDate("Date1", 200, 0, 190, 20)
GUICtrlSetData($Slider,100)
GUICtrlSetLimit ($Slider,100,0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GuiCtrlSetOnEvent($ButtonPlay, "_Play")
GuiCtrlSetOnEvent($Buttonstop, "_Stop")
GuiCtrlSetOnEvent($Buttonadd, "_Add")
GuiSetState()
GuictrlsetonEvent($Bottonhitkast,"open")
GuictrlsetonEvent($Checkboxmute,"Mute")

While 1
    SoundSetWaveVolume (GUICtrlRead($slider))
WEnd

Func _Exit()
    Exit
EndFunc
Func _play()
    $song = StringSplit (GUICtrlRead($input), "|")
    if $song[0] = 1 Then
    SoundPlay($song[1])
Else
    SoundPlay($song[2])
EndIf
EndFunc
Func _Stop()
    SoundPlay ("")
EndFunc
Func _loadplay()
    $number = IniRead ( "playlist.ini", "NUMBER", "number", "0" )
    If $number > 0 Then
        For $num=1 to $number
            $songname[$num] = IniRead ( "playlist.ini", "NAME", "name"&$num, "Not found" )
            $song[$num] = IniRead ( "playlist.ini", "PATH", "path"&$num, "Not found" )
            $songGUI[$num] = GUICtrlCreateListViewItem ($songname[$num]&"|"&$song[$num],$listname)
        Next
    EndIf
EndFunc

Func _Add()
    $adder = GUICtrlRead($input)
    $check = Stringsplit($adder,"|")
    If $check[0] = 1 Then
        $name = InputBox("Name","What is the songs name? (***.mp3/***.wma..)")
        $number=$number+1
        GUICtrlCreateListViewItem ($name&"|"&$adder,$listname)
        IniWrite ( "playlist.ini", "NUMBER", "number",$number)
        IniWrite ( "playlist.ini", "NAME", "name"&$number,$name)
        IniWrite ( "playlist.ini", "PATH", "path"&$number,$adder)
    Else
        GUICtrlCreateListViewItem ($adder,$listname)
    EndIf
EndFunc

Func open()
    $GUIActiveX = GUICtrlCreateObj($oIE, 2, 40, 500, 300)
    $oIE.navigate ("http://www.accuradio.com/hits/")
EndFunc ;==>open

Func Mute()
    while 1
    If Guictrlread($Mute) = $GUI_CHECKED Then
    SoundSetWaveVolume(0)
;or for winxp and 2000 send("{VOLUME_MUTE}")
ElseIf GUictrlread($Mute) = $GUI_UNCHECKED Then
    SoundSetWaveVolume(100)
    EndIf
sleep(100)
wend
    EndFunc

Thatsgreat2345 · April 27, 2006

yeah your problem is you never made a mute checkbox...

slightly_abnormal · April 27, 2006

rename $mute to $Checkboxmute and take the while loop out of the mute function maybe

Edited April 27, 2006 by slightly_abnormal

Evil_Has_Survived · April 27, 2006

hm I did that but...

#include <GuiConstants.au3>
#include <INet.au3>
Opt("GUIoneventmode",1)
Opt("OnExitFunc","_write")
Global $songname[500]
Global $song[500]
Global $songGUI[500]
Global $number
;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
GuiCreate("Media Player", 750, 400,(@DesktopWidth-336)/2, (@DesktopHeight-168)/2,-1,0x00000018)
GUISetBkColor(0x313594)
$Input = GuiCtrlCreateInput("Drag And Drop Media files here.", 512, 10, 210, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
$Listname = GUICtrlCreateListView ( "Playlist|path",512.5, 40, 180, 317.5)
_Loadplay()
$oIE = ObjCreate("Shell.Explorer.2")
$Slider = GuiCtrlCreateSlider(0, 345, 200, 40)
$Buttonprevious = GUICtrlCreateButton("previous", 0, 0, 60, 20)
$Buttonnext = GUICtrlCreateButton("next", 120, 0, 60, 20)
$Buttonplay = GuiCtrlCreateButton("Play", 60, 0, 60, 20)
$Buttonstop = GuiCtrlCreateButton("Stop", 0, 20, 60, 20)
$Buttonadd = GuiCtrlCreateButton("Add", 120, 20, 60, 20)
$mute  = GUICtrlCreateCheckbox("mute", 200, 20, 60, 20)
$Bottonhitkast = GUICtrlCreateButton("HitKast", 60, 20, 60, 20)
$Date = GUICtrlCreateDate("Date1", 200, 0, 190, 20)
GUICtrlSetData($Slider,100)
GUICtrlSetLimit ($Slider,100,0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GuiCtrlSetOnEvent($ButtonPlay, "_Play")
GuiCtrlSetOnEvent($Buttonstop, "_Stop")
GuiCtrlSetOnEvent($Buttonadd, "_Add")
GuiSetState()
GuictrlsetonEvent($Bottonhitkast,"open")
GuictrlsetonEvent($mute,"mute")

While 1
    SoundSetWaveVolume (GUICtrlRead($slider))
WEnd

Func _Exit()
    Exit
EndFunc
Func _play()
    $song = StringSplit (GUICtrlRead($input), "|")
    if $song[0] = 1 Then
    SoundPlay($song[1])
Else
    SoundPlay($song[2])
EndIf
EndFunc
Func _Stop()
    SoundPlay ("")
EndFunc
Func _loadplay()
    $number = IniRead ( "playlist.ini", "NUMBER", "number", "0" )
    If $number > 0 Then
        For $num=1 to $number
            $songname[$num] = IniRead ( "playlist.ini", "NAME", "name"&$num, "Not found" )
            $song[$num] = IniRead ( "playlist.ini", "PATH", "path"&$num, "Not found" )
            $songGUI[$num] = GUICtrlCreateListViewItem ($songname[$num]&"|"&$song[$num],$listname)
        Next
    EndIf
EndFunc

Func _Add()
    $adder = GUICtrlRead($input)
    $check = Stringsplit($adder,"|")
    If $check[0] = 1 Then
        $name = InputBox("Name","What is the songs name? (***.mp3/***.wma..)")
        $number=$number+1
        GUICtrlCreateListViewItem ($name&"|"&$adder,$listname)
        IniWrite ( "playlist.ini", "NUMBER", "number",$number)
        IniWrite ( "playlist.ini", "NAME", "name"&$number,$name)
        IniWrite ( "playlist.ini", "PATH", "path"&$number,$adder)
    Else
        GUICtrlCreateListViewItem ($adder,$listname)
    EndIf
EndFunc

Func open()
    $GUIActiveX = GUICtrlCreateObj($oIE, 2, 40, 500, 300)
    $oIE.navigate ("http://www.accuradio.com/hits/")
EndFunc;==>open

Func mute()
     Guictrlread($mute) = $GUI_CHECKED Then
    SoundSetWaveVolume(0)
;or for winxp and 2000 send("{VOLUME_MUTE}")
 GUictrlread($mute) = $GUI_UNCHECKED Then
    SoundSetWaveVolume(100)
EndFunc

Thatsgreat2345 · April 27, 2006

ive noticed for some reason that GUIsetonevent isnt working for checkboxes, thus is why i use Select and endselect

Evil_Has_Survived · April 27, 2006

can you show me how I could add that in my script then please

Thatsgreat2345 · April 27, 2006

for one on your code u delted the IF statements on the mute, just look in the help files at select endselect im tired or writing code for you when its easy to do and you can look at examples on hte board easily

THESCRIPTERIST · April 28, 2006

you know his list box on the right hand side I was wondering if someone can help me I made a script something like that were I want to be able to click on something in the list box and it will open that file or if its a wave it will play the sound. so Example

MyListbox

-----------------------------------------------------------------------------l

C:\Documents and Settings\currentuser\Desktop\music\50Centl l

C:\Documents and Settings\currentuser\Desktop\music\Necro l

C:\Documents and Settings\currentuser\Desktop\music\DrDre l

C:\Documents and Settings\currentuser\Desktop\music\Eminem l

-----------------------------------------------------------------------------l

so if I click on that file it would open, or say I use his script and push next song it will find what the current selected file is and hit the next one. :think: thanks

Edited April 28, 2006 by THESCRIPTERIST

Thatsgreat2345 · April 28, 2006

back when i was a real noob in autoit with a help of some others i made this, although there is no listview it reads from a file which is easy to change to find something in a listview, check out _GUICtrlListFindString in beta help file

heeheh with beta theres a _GUICtrlListViewGetNextItem should be even easier

#include <GuiConstants.au3>
#include <File.au3>
If Not FileExists (@ProgramFilesDir & "\Thatsgreat2345\") Then
DirCreate(@ProgramFilesDir & "\Thatsgreat2345\")
EndIf
;--------------------------------------GUI START--------------------------------------------------------

GUICreate("Music Player V 1.1", 450, 400, 192, 125)
GUISetCursor (0)
GUISetBkColor(0x000000)
$List = GuiCtrlCreateList("", 150, 220, 275, 175)
$Add = GuiCtrlCreateButton("Add", 60, 240, 60, 20)
GUICtrlSetLimit(-1,200); to limit horizontal scrolling
$clear = GuiCtrlCreateButton("Clear", 60, 270, 60, 20)
$Play = GuiCtrlCreateButton("Play", 10, 10, 50, 20)
$Next = GuiCtrlCreateButton("Next", 70, 10, 50, 20)
$Mute = GuiCtrlCreateButton("Mute", 190, 10, 50, 20)
$stop = GuiCtrlCreateButton("Stop", 250, 10, 50, 20)
$exit = GuiCtrlCreateButton("Exit", 310, 10, 50, 20)
$previous = GuiCtrlCreateButton("Previous", 130, 10, 50, 20)
$slider = GUICtrlCreateSlider (150,50,100,40)
GUICtrlSetData($Slider,100)
GUICtrlSetLimit ($Slider,100,0)
$Label_8 = GuiCtrlCreateLabel("Thatsgreat2345", 10, 50, 80, 20)
GUICtrlSetResizing (-1,$GUI_DOCKLEFT)


;opens the playlist and then puts all the songs in the playlist file in the listbox
$filehandle = Fileopen(@ProgramFilesDir & "\Thatsgreat2345\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 $play
Dim $Mute
dim $stop
Dim $exit
Dim $slider
DIm $msg
Dim $playlist
Dim $list
Dim $file
Dim $line
DIm $previous
dim $playlistpath = @ProgramFilesDir & "\Thatsgreat2345\Playlist.txt"
dim $songlistpath = @ProgramFilesDir & "\Thatsgreat2345\song.txt"
Global $linenumber = 1
;--------------DIM END
func stop()
    while 1
        sleep(100)
    wend
endfunc;==>stop
;-------------start--------------------
Do
    
    $msg = GUIGetMsg ()
    Select
;------------------ 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--------

Edited April 28, 2006 by thatsgreat2345

THESCRIPTERIST · April 28, 2006

ty

Thatsgreat2345 · April 28, 2006

for the Double click check out this topic in the GUI

http://www.autoitscript.com/forum/index.ph...opic=5279&st=15

THESCRIPTERIST · April 28, 2006

ty, hm im having a problem I set a image right on your music player, and well the keys and everything won't work such as next, play, stop etc i think the picture is over laping :think:

Thatsgreat2345 · April 28, 2006

in mine or his? upload ur script with pic

THESCRIPTERIST · April 28, 2006

yours, as you can see slider will not move

#include <GuiConstants.au3>
#include <File.au3>
If Not FileExists (@ProgramFilesDir & "\Thatsgreat2345\") Then
DirCreate(@ProgramFilesDir & "\Thatsgreat2345\")
EndIf
;--------------------------------------GUI START--------------------------------------------------------

GUICreate("Music Player V 1.1", 450, 400, 192, 125)
GUISetCursor (0)
GUISetBkColor(0x000000)
$List = GuiCtrlCreateList("", 150, 220, 275, 175)
GUICtrlCreatePic(@Systemdir & "\oobe\images\mslogo.jpg",50,50, 200,50)
$Add = GuiCtrlCreateButton("Add", 60, 240, 60, 20)
GUICtrlSetLimit(-1,200); to limit horizontal scrolling
$clear = GuiCtrlCreateButton("Clear", 60, 270, 60, 20)
$Play = GuiCtrlCreateButton("Play", 10, 10, 50, 20)
$Next = GuiCtrlCreateButton("Next", 70, 10, 50, 20)
$Mute = GuiCtrlCreateButton("Mute", 190, 10, 50, 20)
$stop = GuiCtrlCreateButton("Stop", 250, 10, 50, 20)
$exit = GuiCtrlCreateButton("Exit", 310, 10, 50, 20)
$previous = GuiCtrlCreateButton("Previous", 130, 10, 50, 20)
$slider = GUICtrlCreateSlider (150,50,100,40)
GUICtrlSetData($Slider,100)
GUICtrlSetLimit ($Slider,100,0)
$Label_8 = GuiCtrlCreateLabel("Thatsgreat2345", 10, 50, 80, 20)
GUICtrlSetResizing (-1,$GUI_DOCKLEFT)


;opens the playlist and then puts all the songs in the playlist file in the listbox
$filehandle = Fileopen(@ProgramFilesDir & "\Thatsgreat2345\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 $play
Dim $Mute
dim $stop
Dim $exit
Dim $slider
DIm $msg
Dim $playlist
Dim $list
Dim $file
Dim $line
DIm $previous
dim $playlistpath = @ProgramFilesDir & "\Thatsgreat2345\Playlist.txt"
dim $songlistpath = @ProgramFilesDir & "\Thatsgreat2345\song.txt"
Global $linenumber = 1
;--------------DIM END
func stop()
    while 1
        sleep(100)
    wend
endfunc;==>stop
;-------------start--------------------
Do
    
    $msg = GUIGetMsg ()
    Select
;------------------ 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--------

Thatsgreat2345 · April 28, 2006

where are you trying to make the picture?

Gui

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members