Hallo Leute ich habe ein grosses problem: ich arbeite an einem grossen projekt dass ich Infinity TrackZ™ getauft habe.Aber bei allen verionen die ich erstellt habe überdekct das hintergrundbild image alle tasten die ich mit dem mauszeiger oder per pfeiltasten drücken sichtbar mache erst.Aber ich möchte ja das alle Testen sofort bei Start des programes sichtbar sind und nicht verschwinden.Wie mache ich dass kann mir einer helfen dabei?
Hier meinScript aus dem neusten Player den ich fertiggestellt habe [version: Alpha 0.4]
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.8.1
Author: Silver_Shadow97
Script Function: TrackPlayer™ by Silver_shadow97™ version: [ALPHA 0.4]
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
[/autoit][autoit][/autoit][autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
Global $h_sound
Global $max_sec
$ver = "Noahs track Player y Silver_Shadow97"
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Noahs trackPlayer By Silver_Shadow97™", 540, 440, 427, 146)
$Settings = GUICtrlCreateMenu("&Einstellungen F1")
$Settings_Sound = GUICtrlCreateMenu("Sound"&@TAB&"", $Settings)
$Setings_Soundon = GUICtrlCreateMenuItem("Sound: On"&@TAB&"", $Settings_Sound)
$Settings_Soundoff = GUICtrlCreateMenuItem("Sound: Off", $Settings_Sound)
$CopyRight_menu = GUICtrlCreateMenu("&Kopier-Rechte F10")
$Copyright_Trackplayer = GUICtrlCreateMenuItem("Track Player ™", $CopyRight_menu)
$help_menu = GUICtrlCreateMenu("&Hilfe F11")
$Bugs_helpmenu = GUICtrlCreateMenuItem("Unbehebbare Bugs", $help_menu)
$Contact = GUICtrlCreateMenuItem("Kontakt", $help_menu)
$Play_pause_btn = GUICtrlCreateButton("Play/Pause", 232, 200, 75, 25)
$Stop_btn = GUICtrlCreateButton("Stop", 144, 280, 75, 41)
$Replay_btn = GUICtrlCreateButton("Replay", 320, 280, 75, 41)
$Options_btn = GUICtrlCreateButton("Optionen", 232, 304, 75, 25)
$Exit_btn = GUICtrlCreateButton("Beenden", 200, 336, 139, 33)
$Slider1 = GUICtrlCreateSlider(200, 376, 142, 29)
$Progress1 = GUICtrlCreateProgress(0, 176, 534, 17)
$Open = GUICtrlCreateButton("Öffnen", 232, 232, 75, 65)
$background = GUICtrlCreatePic(@ScriptDir &"\Pics\Background.jpg", 0, 0, 537, 417)
Dim $GUI_AccelTable[1][2] = [["!+{BS}", $Setings_Soundon]]
GUISetAccelerators($GUI_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
MsgBox (49,"!!!Achtung!!!","ich weise darauf hin dass ein unbehebbarer bug vorhanden ist.Dieser bug bezieht sich auf das interface daher müssen sie entweder mehrmalig die pfeiltaste nach unten drücken damit die buttons sichtbar werden oder sie mit dem mauszeiger über das interfae gehen.Dies ist nur ein Hinweis.",15)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Play_pause_btn
If _SoundStatus($h_sound) = "playing" Then
_SoundPause($h_sound)
ElseIf _SoundStatus($h_sound) = "paused" Then
_SoundResume($h_sound)
EndIf
Case $Replay_btn
If _SoundStatus($h_sound) = "playing" or _SoundStatus($h_sound) = "paused" Then
_SoundStop($h_sound)
_SoundPlay($h_sound)
EndIf
Case $Open ;==> Open
$f_open = FileOpenDialog("Select Audio File",@ScriptDir,"(*.*)")
If not @error Then
_SoundClose($h_sound)
$h_sound = _SoundOpen($f_open)
$max_sec = _SoundLength($h_sound,2) *1000
_SoundPlay($h_sound)
WinSetTitle($GUI,"",$f_open)
AdlibRegister("ShowSeek",250)
AdlibRegister("GetVol",150)
EndIf
Case $Stop_btn
_SoundStop($h_sound)
GUICtrlSetData($Progress1,0)
WinSetTitle($GUI,"",$ver)
AdlibUnRegister("ShowSeek")
AdlibUnRegister("GetVol")
Case $Exit_btn
Exit
Case $Copyright_Trackplayer
MsgBox (49,"TrackPlayer Kopierrechte","Dieser track palyer Wurde Erstellt von Silver_Shadow97 und ist uhrheberrechtlich geschützt.Des weiteren verbiete ich jegliche verbreitung unter 'anderen' namen und vermarktung. 2012© Silver_Shadow97™",15)
Case $Bugs_helpmenu
MsgBox (49,"Unbehebbare Bugs","leider habe ich ein paar Bugs oder besser einen bug der sich nicht beheben lässt.Dieser bug besteht darin sobald man den Track Player™ startet dass man nur den hinter grund sieht und erst mit dem mauszeiger drüber gehen muss über all um die buttons sichtbar zu machen.",13)
Case $Contact
MsgBox (0,"Kontakt"," ihr könnt mich erreichen auf meinem channel unter : http://www.Youtube.com\Users\Kiyubi97 oder über meine E-mail: [email='www.Silver_Shadow97@web.de'][/email] zu fragen stehe ich gern zu verfügung.",12)
Case $Options_btn
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Options_GUI = GUICreate("Optionen", 284, 147, 525, 278)
$soundon_btn = GUICtrlCreateButton("Sound: On", 0, 0, 75, 33)
$soundoff_btn = GUICtrlCreateButton("Sound: Off", 0, 112, 75, 33)
$Copyrights = GUICtrlCreateButton("Kopier-Rechte", 208, 0, 75, 33)
$Close_btn = GUICtrlCreateButton("Schliessen", 208, 112, 75, 33)
$background = GUICtrlCreatePic(@ScriptDir &"\Pics\Background.jpg", 0, 0, 281, 145)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $soundon_btn
SoundSetWaveVolume (100)
Case $soundoff_btn
SoundSetWaveVolume (0)
Case $Copyrights
MsgBox(0,"Kopier-Rechte","Alle tracks sind Uhrheberrechtlich kopiergeschützt und somit nicht mein Content.Ich verbiete jegliches verbreiten unter eigenen Namen!Der Track Player Wurde erstellt von Silver_Shadow97™ und der Player ist somit auch uhrheber rechtlich geschützt.2012® Silver_Shadow97™ Track Player™ version: 0.4 Alpha.",15)
Case $Close_btn
WinClose ($Options_GUI)
EndSwitch
WEnd
EndSwitch
WEnd
Func ShowSeek() ;Update the Progressbar
$pos_sec = _SoundPos($h_sound,2) * 1000
$set = $pos_sec / $max_sec * 100
GUICtrlSetData($Progress1,$set)
EndFunc
Func GetVol() ; Set the wave volume
SoundSetWaveVolume(GUICtrlRead($Slider1))
EndFunc