Bilder mit Maus bewegen

Ahnungslos

Findet jemand den Fehler im Script (habe leider kaum Ahnung):

#include <GUIConstants.au3>

GUICreate("Test",300,300)

$cordx = 10
$cordy = 40

$A = GUICtrlCreatePic(@ScriptDir & "\Neu Bitmap.bmp",$cordx,$cordy,30,30)
GUICtrlSetCursor($A,0)

$Test = 0
$xm = 0
$ym = 0

Func schieben($x,$y,$Objekt)
$B = GUIGetCursorInfo("Test")
If $B[2] = 1 And $B[4] = $Objekt Then
If $Test = 1 Then
$x2 = $B[0] - $xm
$x = $cordx + $x2
$y2 = $B[1] - $ym
$y = $cordy + $y2
GUICtrlSetPos($Objekt,$x,$y,30,30)
EndIf
$xm = $B[0]
$ym = $B[1]
$Test = 1
EndIf
If $B[2] = 0 Then
$Test = 0
EndIf
EndFunc

GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
schieben($cordx,$cordy,$A)
WEnd

Wie gesagt ich habe kaum Ahnung und möchte auf die Funktion "schieben"
nicht verzichten, um im eigentlichen Script die Übersicht zu bewahren. (mehrere Bitmaps) Danke!

**bernd670**

Hallo und :willkommen:,

wenn du innerhalb einer Funktion die übergebenen Parameter ändern willst, muss du das Schlüsselwort ByRef davor setzten!

Code

#include <GUIConstants.au3>


GUICreate("Test",300,300)


$cordx = 10
$cordy = 40


$A = GUICtrlCreatePic(@ScriptDir & "\Neu Bitmap.bmp",$cordx,$cordy,30,30)
GUICtrlSetCursor($A,0)


$Test = 0
$xm = 0
$ym = 0


Func schieben(ByRef $x,ByRef $y,$Objekt)
    $B = GUIGetCursorInfo("Test")
    If $B[2] = 1 And $B[4] = $Objekt Then
        If $Test = 1 Then
            $x2 = $B[0] - $xm
            $x = $cordx + $x2
            $y2 = $B[1] - $ym
            $y = $cordy + $y2
            GUICtrlSetPos($Objekt,$x,$y,30,30)
        EndIf
        $xm = $B[0]
        $ym = $B[1]
        $Test = 1
    EndIf
    If $B[2] = 0 Then
        $Test = 0
    EndIf
EndFunc






GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    schieben($cordx,$cordy,$A)
WEnd

Alles anzeigen

**peethebee**

Ich schaue es mir mal kurz an. Moment.

Ahnungslos

Ja danke konnte mit der Aussage aus der Hilfe nicht viel anfagen:

Zitat

Das Schlüsselwort ByRef ist optional und bedeutet, dass der Parameter 1. eine Variable sein muss und die Variable 2. von der Funktion geändert werden kann. Standardmäßig wird ein Parameter durch seinen Wert übergeben, d.h. dass eine Kopie des Parameterwertes von der Funktion manipuliert wird.

Ahnungslos

So ich hätte da noch zwei Fragen.

1. Gibt es noch eine andere Möglichkeit Bilder zu verschieben?
Die Obere flackert zu sehr.

2. Kann man Bilder die im Hintergrund sind, im Vordergrund bringen,
so dass sie beim verschieben nicht unter andere geraden?

Danke schon mal im voraus.