Hallöchen
Ich würde gerne den Wert eines Sliders von links nach rechts sinken lassen. Der Bereich geht dabei von 300 (ganz links) gegen 0 (ganz rechts).
Wie bekomme ich das Sinken hin?
Liebe Grüße
Elodie
Hallöchen
Ich würde gerne den Wert eines Sliders von links nach rechts sinken lassen. Der Bereich geht dabei von 300 (ganz links) gegen 0 (ganz rechts).
Wie bekomme ich das Sinken hin?
Liebe Grüße
Elodie
So hir ma ein beispiel mit 0 bis 255
255 lings 0 rechts
#include
#include
$Form1 = GUICreate("TransGui", 270, 65)
$Slider1 = GUICtrlCreateSlider(10, 10, 250, 45, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 0, -255) ; Limit verändert, damit man die Chance hat den Slider "anzufassen"
GUISetState(@SW_SHOW)
WinSetTrans($Form1, "", 100) ; Anfangswert setzen
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Slider1
$Read = GUICtrlRead($Slider1) ; Ließt den aktuellen wert des Sliders aus.
WinSetTrans($Form1, "", $Read) ; Setzt die Transparenz eines Fensters
EndSwitch
WEnd
$progress = GUICtrlCreateProgress(10, 10, 200, 20)
GUICtrlSetData($progress, 100) ;setzt die Progressbar auf z.B. 100%
Meinst Du so:
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
$hGui = GUICreate('Test', 400, 300)
$hSlider = GUICtrlCreateSlider(10, 10, 380, 30, $TBS_AUTOTICKS)
GUICtrlSetLimit(-1, 300, 0)
GUISetState()
GUIRegisterMsg($WM_HSCROLL, '_MY_WM_HSCROLL')
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hSlider
ToolTip('')
MsgBox(0, 0, 300 - GUICtrlRead($hSlider))
EndSwitch
WEnd
Func _MY_WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
ToolTip(300 - GUICtrlRead($hSlider))
Return $GUI_RUNDEFMSG
EndFunc
Vielen Dank!
ich habe doch noch eine eigene Lösung gefunden - trotzdem danke