Splashimage mit Taste wechseln Topic is solved

Stelle Fragen zur Programmierung mit Autohotkey

Moderator: jNizM

rollwand

Splashimage mit Taste wechseln  Topic is solved

19 Apr 2019, 08:06

Hallo zusammen,

ist es möglich mit einem Tastendruck ein Splashimage zu wechseln?

Habe es mal hiermit probiert ohne Erfolg.

Danke für eure Hilfe

--------------------------------------------------------------------
Pic1 := "test.bmp"
Pic2 := "test1.bmp"

F1::
Count++
SplashImage, % (Mod(Count,2) ? %Pic1% : %Pic2%), b FS18
SetTimer, DestroySplash, 1000
Return
DestroySplash:
SplashImage, Off
Return
rollwand

Re: Splashimage mit Taste wechseln

19 Apr 2019, 08:58

Mit Textausgabe funktioniert das (Script by Krogdor)

Ich würde das aber gerne mit Grafiken machen.

F1::
Count++
SplashImage, , , , % "SCRIPT " (Mod(Count,2) ? "ON!" : "OFF!")
SetTimer, DestroySplash, 4000
Return
DestroySplash:
SplashImage, Off
Return
KHA
Posts: 157
Joined: 21 Aug 2018, 11:11

Re: Splashimage mit Taste wechseln

19 Apr 2019, 10:15

Hallo, den Script von Krogdor verstehe ich es nicht. (bin selber noch Anfänger) Habe mir vor einiger Zeit, ein Script zusammengestellt, der mit Pfeiltasten Links und Rechts zwischen SplashImage wechselt. Vlt. hilft es dir weiter.


Code: Select all


pfad = pic\ ;Pfad ein geben

Dateiliste =
Loop, Files, %pfad%\*.bmp
Dateiliste = %Dateiliste%%A_LoopFileName%`n

Dateiliste := RTrim(Dateiliste, "`n")

Dname := StrSplit(Dateiliste, "`n")
MaxN := Dname.MaxIndex()
i = 0

Right:: ;Tastenkombination Vorwärts

i++
if (i> MaxN)
i = 1

SplashImage, Off
SplashImage, % pfad . Dname[i], ZH-1 ZW300 X800 Y200 B
return


Left:: ;Tastenkombination Rückwärts
if (i = 0)
i = % MaxN

SplashImage, Off
SplashImage, % pfad . Dname[i], ZH-1 ZW300 X800 Y200 B
i--
return

garry
Posts: 1885
Joined: 22 Dec 2013, 12:50

Re: Splashimage mit Taste wechseln

19 Apr 2019, 11:26

danke, hier ein Versuch

Code: Select all

#warn
setworkingdir,%a_scriptdir%
wa:=A_screenwidth
ha:=A_screenHeight
xx:=101
hx:=(ha*95)/xx
count:=""

Pic1 = %a_scriptdir%\test1.jpg
Pic2 = %a_scriptdir%\test2.jpg

$F1::
Count++
a:=Mod(Count,2)
if a=0
Splashimage,%pic1%,x10 y10 zw-1 zh%hx% B
else
Splashimage,%pic2%,x10 y10 zw-1 zh%hx% B
SetTimer, DestroySplash, 3000
Return
DestroySplash:
SplashImage, Off
Return
esc::exitapp
rollewand
Posts: 1
Joined: 19 Apr 2019, 07:57

Re: Splashimage mit Taste wechseln

22 Apr 2019, 23:33

Danke schön. Sowas hab ich gesucht Danke
THX. Thats what i kooking for THX

Return to “Ich brauche Hilfe”

Who is online

Users browsing this forum: UnReALiTyy and 19 guests