Label verschieben?

xp_fan

Hallo,
kann mir jemand von euch sagen, wie ich Labels in einer GUI vom User verschieben lassen kann?

Skript:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 300, 300, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 0, 0, 44, 17 ) ;soll verschoben werden
$Label2 = GUICtrlCreateLabel("Label2", 0, 24, 44, 17) ; soll auch verschoben werden
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

**Schnitzel**

du brauchst egtl nur GuiCtrlSetPos()

kleines beispiel:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 300, 300, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 0, 0, 44, 17 ) ;soll verschoben werden
$Label2 = GUICtrlCreateLabel("Label2", 0, 24, 44, 17) ; soll auch verschoben werden
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

sleep(2000)
GUICtrlSetPos($Label1, 0, 35)
GUICtrlSetPos($Label2, 0, 50)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

xp_fan

Entschuldigung, ich hab's vergessen zu schreiben:
Ich möchte, dass der User die Labels verschieben kann.

**Schnitzel**

ui ja das ist was anderes. und wie willste das machen? mit buttons oder mit einer eingabe oder einfach mit der maus?

**Schnitzel**

mit buttons wärs sehr einfach

hier mal n billiges beispiel:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $guiy = 300, $guix = 500, $labx = 200, $laby = 100

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", $guix, $guiy)
$Group1 = GUICtrlCreateGroup("", 410, 216, 85, 73)
$Button1 = GUICtrlCreateButton("Button1", 450, 232, 17, 17, 0)
$Button2 = GUICtrlCreateButton("Button2", 434, 248, 17, 17, 0)
$Button3 = GUICtrlCreateButton("Button3", 466, 248, 17, 17, 0)
$Button4 = GUICtrlCreateButton("Button4", 450, 264, 17, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("1", $labx, $laby, 25, 50)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$laby -= 15
Guictrlsetpos($Label1, $labx, $laby)
Case $Button2
$labx -= 15
Guictrlsetpos($Label1, $labx, $laby)
Case $Button3
$labx += 15
Guictrlsetpos($Label1, $labx, $laby)
Case $Button4
$laby += 15
Guictrlsetpos($Label1, $labx, $laby)
EndSwitch
WEnd

[/autoit]

**autoBert**

Hallo xp_fan,
hier ein Beispiel um Steuerelemente mit der Maus zu verschieben (Original von @ChaosKeks)

Spoiler anzeigen

[autoit]

; *** Start added by AutoIt3Wrapper ***
#include <StaticConstants.au3>
; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Include <GuiListView.au3>
#Include <Array.au3>
#Include <File.au3>
#Include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
;Global $posXStart, $posYStart, $posXStop, $posYStop, $pic, $hGui, $Pos_M2 = MouseGetPos()

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Transparent", 575, 510)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Ex")
$insert = GuiCtrlCreateButton("Insert Pic" ,10,10)
GuiCtrlSetOnEvent(-1, "_insert")
$Pic=GUICtrlCreatePic("", 50, 50)
GuiCtrlSetOnEvent(-1, "_DragMe")
$hsplitter1 = GUICtrlCreateLabel("",270, 125, 8, 205,-1,$SS_BLACKFRAME)
;GUICtrlSetColor(-1,0xffffff)
;GUICtrlSetResizing(-1, $GUI_DOCKLEFT +$GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetOnEvent($hsplitter1,"_DragMe")
$hlabel = GUICtrlCreateLabel("Verschieb mich",20,120,100,25)
GUICtrlSetOnEvent($hlabel,"_DragMe")

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _insert()
GuiCtrlDelete($pic)
$bild = FileOpenDialog("Wählen Sie eine Datei aus!", @WindowsDir & "\", "Bilder (*.jpg;*.bmp)", 1 + 4 )
$Pic = GUICtrlCreatePic($bild, 150, 150)
GuiCtrlSetOnEvent(-1, "_DragMe")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _DragMe() ;Orginal zum verschieben von 1 Bild von ChaosKeks
Local $Pos_C, $Pos_M, $Pos_M2, $Opt_old
Local $dll = DllOpen("user32.dll")
$Opt_old = Opt('MouseCoordMode', 0)
$Pos_C = ControlGetPos($hGui, "", @GUI_CtrlId);$pic)
$Pos_M = MouseGetPos()
$Pos_W = WinGetPos($hGui)
$x_Offset = $Pos_M[0] - $Pos_C[0]
$y_Offset = $Pos_M[1] - $Pos_C[1]
_MouseTrap($Pos_W[0]+$x_Offset,$Pos_W[1]+$y_Offset,$Pos_W[0]+$Pos_W[2],$Pos_W[1]+$Pos_W[3])
While _IsPressed('01', $dll)
$Pos_M = MouseGetPos()
If $Pos_M <> $Pos_M2 Then
GUICtrlSetPos(@GUI_CtrlId,$Pos_M[0] - $x_Offset, $Pos_M[1] - $y_Offset)
sleep(10)
EndIf
$Pos_M = $Pos_M2
sleep(50)
WEnd
DllClose($dll)
Opt('MouseCoordMode', $Opt_old)
_MouseTrap()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Ex()
Exit
EndFUnc

[/autoit]

mfg (Auto)Bert

xp_fan

Schnitzel: Tut mir Leid, dass ich nicht sofort geantwortet habe, ich musste noch kurz weg.
autoBert: Danke für das Script, sowas hab' ich gesucht.
Vielen Dank euch beiden!