Hab schon rum probiert und versucht selbst schon Gegoogelt und trotzdem hab ich keine Lösung gefunden. So einfach das es wohl keine Antwort drauf gibt.
Hab derzeit das Grundgerüst geschaffen und jetzt hapert es mit dem weiteren Coden, ich versuche die ganze Zeit den Player über den Reiter "Datei" -> "Beenden" zu schließen, klappt aber mit dem Eventmenu überhaupt nicht habe auch schon versucht die Musik Files zu öffnen aber kaum öffne ich den Player springt mir die Ordner Auswahl ins Gesicht.
Würde mich gerne über Tipps freuen.
Code: Alles auswählen
Enumeration
#Window_0
EndEnumeration
Volume = 100
Enumeration
#String_0
#Button_0
#Button_1
#Button_2
#TrackBarGadget_0
EndEnumeration
If InitMovie() = 0
MessageRequester("Error", "ERROR!", 0)
End
EndIf
If OpenWindow(#Window_0, 110, 110, 300, 200, "Player", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered ) And CreateGadgetList(WindowID(0))
EndIf
If CreateMenu(0, WindowID(0))
MenuTitle("Datei")
MenuItem(0, "Öffne Datei")
MenuItem(1, "Beenden")
EndIf
If CreateGadgetList(WindowID(#Window_0))
StringGadget(#String_0, 15, 15, 270,21,"", #PB_String_ReadOnly)
ButtonGadget(#Button_0, 10, 50, 80, 30, "Play")
ButtonGadget(#Button_1, 10, 80, 80, 30,"Stop")
ButtonGadget(#Button_2, 10, 110, 80,30,"Pause")
TrackBarGadget(#TrackBarGadget_0, 5, 150, 287, 60, 100, 180,#PB_TrackBar_Ticks)
ListViewGadget(80, 110, 50, 175, 100)
For a = 1 To 12
AddGadgetItem (0, -1, "Item " + Str(a) + " of the Listview")
Next
SetGadgetState(0, 9)
EndIf
Repeat
Event = WindowEvent()
If Event = #PB_Event_Menu
End(1)
EndIf
Until Event = #PB_Event_CloseWindow
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
richtig verstanden.
