Hey
hatte vor kurzem schon ein Thema das ist aber nun schon auf der 3 oder 4 Seite
Diesmal ist es die Frage nach einer Funktion.
Und zwar wollte ich in einem Programm(unten drunter) einen slider einfügen am besten über dem von
Laustärke um im video vor und zurück spulen zu können.
Hat da jemand ne Ahnung?
lg zwocke
Spoiler anzeigen
$Form4 = GUICreate("Guitar Guide - Lieder", 757, 633)
GUISetBkColor(0x000000)
$Slider1 = GUICtrlCreateSlider(360, 576, 214, 37)
GUICtrlSetLimit(-1, 100, 0)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor (-1, 0)
$Label1 = GUICtrlCreateLabel("Lautstärke:", 416, 528, 103, 30)
GUICtrlSetFont(-1, 16, 400, 0, "Candara")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Play", 8, 520, 107, 105, 0)
GUICtrlSetFont(-1, 16, 400, 0, "Candara")
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Pause", 120, 520, 115, 105, 0)
GUICtrlSetFont(-1, 16, 400, 0, "Candara")
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Stop", 240, 520, 115, 105, 0)
GUICtrlSetFont(-1, 16, 400, 0, "Candara")
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("Video wechseln", 592, 520, 153, 105, 0)
GUICtrlSetFont(-1, 16, 400, 0, "candera")
GUICtrlSetCursor (-1, 0)
$MenuItem1 = GUICtrlCreateMenu("Datei")
$MenuItem4 = GUICtrlCreateMenu("Modus", $MenuItem1)
$Menu_akkorde = GUICtrlCreateMenuItem("Akkorde", $MenuItem4)
$Menu_lieder = GUICtrlCreateMenuItem("Lieder", $MenuItem4)
$Menu_tabulator = GUICtrlCreateMenuItem("Tabulator", $MenuItem4)
$beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$hilfe = GUICtrlCreateMenu("Hilfe")
$menu_hilfe = GUICtrlCreateMenuItem("Hilfedatei",$hilfe)
$menu_credits = GUICtrlCreateMenuItem("Credits",$hilfe)
$Obj1 = ObjCreate("WMPlayer.OCX")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 800, 512)
$Obj1.URL = "C:\Users\OEM\Desktop\Guitar Guide\Lieder\Upside Down Lesson (German).avi"
GUISetState(@SW_SHOW)
With $Obj1
.settings.volume = 50
.stretchToFit = True
.fullscreen = True
.uiMode = 'none'
.controls.play()
EndWith
While 1
$nMsg = GUIGetMsg()
$Obj1.settings.volume = GUICtrlRead($Slider1)
Switch $nMsg
Case $beenden
Exit
Case $menu_tabulator
GUIDelete($Form4)
tabulator()
Case $Menu_akkorde
GUIDelete($Form4)
akkorde_start()
Case $Menu_lieder
GUIDelete($Form4)
lieder_start()
Case $menu_hilfe
hilfe()
Case $menu_credits
Credits()
Case -3
Exit
Case $Button1
$Obj1.controls.play()
Case $Button2
$Obj1.controls.pause()
Case $Button3
$Obj1.controls.stop()
Case $Button4
;~ $Obj1.controls.stop()
$Obj1.URL = FileOpenDialog("Videodatei auswählen", "C:\Users\OEM\Desktop\Guitar Guide\Lieder\", "(*.avi)")
EndSwitch
WEnd