2 Scripte kreuzen ......

subzero007

Habe ein problem will 2 scripte kreuzen hänge hier seid tagen dran bitte hilft mir.
1.Mann soll bilder einfügen können und einzeln wieder löschen
2.Grösse der GUI frei positionieren also resizen
3. das ganze transparent über den slider..
4.die bilder sollteman auch in der grösse ändern und verschieben können

eine idee bitte hilft mir

Spoiler anzeigen

[autoit]

#Include <GUIConstantsEx.au3>
#NoTrayIcon
Opt("GUIOnEventMode", 1)
Opt("GUICoordMode", 0)
Global $posXStart, $posYStart, $posXStop, $posYStop
$main=GUICreate("Tööööst", @DesktopWidth ,@DesktopHeight-55)
GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_leftClicked")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_leftReleased")
$pic=GUICtrlCreatePic("C:\WINDOWS\Help\Tours\htmlTour\safe_easy_easier.jpg", @DesktopWidth/2, @DesktopHeight/2)
GUISetState(@SW_SHOW, $main)
While True
Sleep(10)
WEnd
Func _GUIEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
Case @GUI_CtrlId = $GUI_EVENT_RESTORE
EndSelect
EndFunc ;==> _GUIEvents()
Func _leftClicked()
$pos=MouseGetPos()
$posXStart=$pos[0]
$posYStart=$pos[1]
EndFunc ;==> _leftClicked()
Func _leftReleased()
$pos=MouseGetPos()
$posXStop=$pos[0]
$posYStop=$pos[1]
GUICtrlSetPos($pic, -1*($posXStart-$posXStop), -1*($posYStart-$posYStop))
EndFunc ;==> _leftClicked()

[/autoit]

Spoiler anzeigen

[autoit]

#cs **************************************************************************

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

Programme in TreeView ausführen (Drag & Drop)

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

https://autoit.de/index.php?page…96194#post96194

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

#ce **************************************************************************

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

; #AUTHOR = CHAOSKEKS# ============================================================================
; #NAME = CHAOS-EXECUTION#
; #DATE = 24.05.2009#
; Resizen eingebaut AutoBert 25.05.2009
#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Include <GuiListView.au3>
#Include <Array.au3>
#Include <File.au3>

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

Global $Active = True, $mod = True, $i, $trans = 0
Dim $filepaths[1],$szDrive, $szDir, $szFName, $szExt

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

$hGUI = GUICreate("Chaos-Execution", 275, 310, Default, Default, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_ACCEPTFILES)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$hListview = GUICtrlCreateListView("Files|*. Ext", 10, 10, 254, 220)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) ;Abstand zu allen 4 Seiten bleibt fix
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
_GUICtrlListView_SetColumnWidth($hListView, 0, 199)
IF FileExists(@ScriptDir&"/ExecuteItLog.ini") Then
$aData = IniReadSection(@ScriptDir&"\ExecuteItLog.ini","Files")
For $i = 1 To UBound($aData) - 1
_ArrayAdd($filepaths, $aData[$i][1])
$split = _PathSplit($aData[$i][1], $szDrive, $szDir, $szFName, $szExt)
_GUICtrlListView_AddItem($hListview, $split[3])
_GUICtrlListView_AddSubItem($hListView, $i-1,StringTrimLeft($split[4],1),1)
Next
$trans = IniRead(@ScriptDir&"\ExecuteItLog.ini","Trans","Key1", "0")
FileDelete(@ScriptDir&"/ExecuteItLog.ini")
EndIf

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

$contextmenu = GUICtrlCreateContextMenu($hListView)
$insertitem = GUICtrlCreateMenuItem("Insert Item(s)", $contextmenu)
$renameitem = GUICtrlCreateMenuItem("Rename", $contextmenu)
$deletemenu = GUICtrlCreateMenu("Delete...", $contextmenu)
$deleteAll = GUICtrlCreateMenuItem("All Items", $deletemenu)
$deleteitem = GUICtrlCreateMenuItem("Selected Item", $deletemenu)
GUICtrlCreateMenuItem("", $contextmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $contextmenu)

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

$deletebutton = GuiCtrlCreateButton("&Delete List",54,252,60,28)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)
;Abstand Links und unten bleibt fix die Größe (Breite und Höhe) ebenso
$insertbutton = GuiCtrlCreateButton("&Insert",10,252,40,28)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)
;Abstand Links und unten bleibt fix die Größe (Breite und Höhe) ebenso
$label = GUICtrlCreateLabel("Transparence = 0%", 148, 237, -1, 14)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
;Abstand Rechts und unten bleibt fix die Höhe ebenso
$slider = GUICtrlCreateSlider(120, 257, 144, 20, BitOR($TBS_AUTOTICKS, $WS_BORDER))
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
;Abstand Rechts und unten bleibt fix die Höhe ebenso
GuiCtrlSetLimit($slider, 80,0)
GuiCtrlSetData($slider, $trans)
GUICtrlSetData($label, "Transparence = " & GUICtrlRead($slider) & "%")
WinSetTrans("Chaos-Execution", "", 255 - GUICtrlRead($slider) * 2.55)
Dim $Acc[2][2] = [["^i", $insertButton], ["^d", $deleteALL]]
GUISetAccelerators($Acc)
GUISetState(@SW_SHOW)

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

$EditBox = GUICreate('', 240, 30, -1, -1, BitOR($WS_POPUP,$WS_BORDER),$WS_EX_TOPMOST+$WS_EX_MDICHILD,$hGui)
$hEdit = GUICtrlCreateInput('', 5, 5, 195, 20)
$hButton = GuiCtrlCreateButton("...",205,5,30,20)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUIRegisterMsg($WM_HSCROLL, "WM_HVSCROLL")

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

; #MAIN LOOP# ==============================================================================================
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE,$exititem
For $i = 1 To Ubound($filepaths)-1
IniWrite(@ScriptDir&"\ExecuteItLog.ini","Files", "Key"&$i,$filepaths[$i]& @LF)
Next
IniWrite(@ScriptDir&"\ExecuteItLog.ini","Trans", "Key1",GuiCtrlRead($slider))
Exit
Case $GUI_EVENT_DROPPED
$file = @GUI_DragFile
If StringRegExp($file, "^.+\.(?i)((EXE)|(AU3)|(GIF)|(JPG))$") Then
_ArrayAdd($filepaths, $file)
$split = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
_GUICtrlListView_AddItem($hListview, $split[3])
_GUICtrlListView_AddSubItem($hListView, _GuiCtrlListView_GetItemCount($hlistview)-1,StringTrimLeft($split[4],1),1)
Else
MsgBox(64, "Chaos-Execution Info!", $file & @CRLF & "Is an invalid file type.")
EndIf
Case $hButton
GUIRegisterMsg($WM_ACTIVATE, "")
GuiSetState(@SW_HIDE, $EditBox)
GuiSetState(@SW_HIDE, $hGui)
$insert = FileOpenDialog("Select an item to insert!",@DesktopDir, "Dateien(*.Exe;*.Au3;*.gif;*.jpg)",1)
GuiSetState(@SW_SHOW, $hGui)
If $insert <> "" Then
For $i = 0 To _GuiCtrlListView_GetItemCount($hlistview)
If _GuiCtrlListView_GetItemSelected($hlistview,$i) Then
$mod = False
ExitLoop
EndIf
Next
$split = _PathSplit($insert, $szDrive, $szDir, $szFName, $szExt)
GuiCtrlSetData($hEdit, $split[3])
GuiSetState(@SW_Show, $EditBox)
Else
_EditEsc()
EndIf
GUIRegisterMsg($WM_ACTIVATE, "WM_ACTIVATE")
Case $insertitem,$insertButton
$insert = FileOpenDialog("Select an item to insert!",@DesktopDir, "Dateien(*.Exe;*.Au3;*.gif;*.jpg)",5)
If $insert <> "" Then
$insertsplit = StringSplit($insert, "|")
For $i = 1 To Ubound($insertsplit) -1
$split = _PathSplit($insertsplit[$i], $szDrive, $szDir, $szFName, $szExt)
If Ubound($insertsplit) -1 > 1 Then
If $i > 1 Then
_ArrayAdd($filepaths, $insertsplit[1]&"\"&$insertsplit[$i])
_GUICtrlListView_AddItem($hListview, $split[3])
_GUICtrlListView_AddSubItem($hListView,_GuiCtrlListView_GetItemCount($hlistview)-1,StringTrimLeft($split[4],1),1)
EndIf
Else
_ArrayAdd($filepaths, $insertsplit[$i])
_GUICtrlListView_AddItem($hListview, $split[3])
_GUICtrlListView_AddSubItem($hListView,_GuiCtrlListView_GetItemCount($hlistview)-1,StringTrimLeft($split[4],1),1)
EndIf
Next
EndIf
Case $renameitem
Local $posGui, $posControl, $textItem
For $i = 0 To _GuiCtrlListView_GetItemCount($hlistview)
If _GuiCtrlListView_GetItemSelected($hlistview,$i) Then
$textItem = _GUICtrlListView_GetItemText($hlistview, $i)
$posControl = _GuiCtrlListView_GetItemPositionY($hlistview, $i)
$posGui = WinGetPos($hGui)
ExitLoop
EndIf
Next
If $textitem <> "" Then
GUIRegisterMsg($WM_ACTIVATE, "WM_ACTIVATE")
GuiSetState(@SW_DISABLE, $hGui)
$mod = True
HotKeySet('{ESC}', '_EditEsc')
HotKeySet('{ENTER}', '_EditEnter')
GUICtrlSetData($hEdit, $textItem)
WinMove($EditBox, "", $posGui[0]+19,$posGui[1]+$posControl+28)
GuiSetState(@SW_SHOW, $EditBox)
EndIf
Case $deleteitem
For $i = 0 To _GuiCtrlListView_GetItemCount($hlistview)
If _GuiCtrlListView_GetItemSelected($hlistview,$i) Then
ExitLoop
EndIf
Next
_ArrayDelete($filepaths,$i+1)
_GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($hListView))
Case $deleteAll, $deleteButton
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView))
For $i = 1 To Ubound($filepaths)-1
_ArrayDelete($filepaths, $i)
Next
EndSwitch
WEnd

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

; #INTERNAL FUNCTIONS# =====================================================================================
Func _EditEnter()
$text = GUICtrlRead($hEdit)
If $mod Then
$split = _PathSplit($filepaths[$i+1], $szDrive, $szDir, $szFName, $szExt)
FileMove($filepaths[$i+1], $split[1] & $split[2] & $text & $split[4])
$filepaths[$i+1] = $split[1] & $split[2] & $text & $split[4]
Else
$filepaths[$i+1] = $insert
$split = _PathSplit($filepaths[$i+1], $szDrive, $szDir, $szFName, $szExt)
EndIf
_GUICtrlListView_SetItemText($hListView, $i, $text)
_GUICtrlListView_SetItemText($hListView, $i, StringTrimLeft($split[4],1),1)
_EditEsc()
EndFunc

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

Func _EditEsc()
GuiSetState(@SW_HIDE, $EditBox)
GuiSetState(@SW_ENABLE, $hGui)
WinActivate($hGui)
GUIRegisterMsg($WM_ACTIVATE, "")
HotKeySet('{ESC}')
HotKeySet('{ENTER}')
EndFunc

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

; #REGISTERED FUNCTIONS# ==================================================================================
Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return 0
$code = DllStructGetData($tagNMHDR, 3)
If $wParam = $hListView And $code = -3 And _GUICtrlListView_GetSelectedCount($hListView) > 0 Then
For $i = 0 To _GUICtrlListView_GetItemCount($hListView)
IF _GUICtrlListView_GetItemSelected($hListView, $i) Then
ShellExecute($filepaths[$i+1])
EndIf
Next
Endif
Return $GUI_RUNDEFMSG
EndFunc

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

Func WM_HVSCROLL($hwnd, $iMsg, $wParam, $lParam)
Local $hWndFrom, $iCode
If Not IsHWnd($slider) Then $hWndCombo1 = GUICtrlGetHandle($slider)
$hWndFrom = $lParam
$iCode = _WinAPI_HiWord($wParam)
Switch $hWndFrom
Case $slider, $hWndCombo1
GUICtrlSetData($label, "Transparence = " & GUICtrlRead($slider) & "%")
WinSetTrans("Chaos-Execution", "", 255 - GUICtrlRead($slider) * 2.55)
EndSwitch
EndFunc

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

Func WM_ACTIVATE($hWnd, $Msg, $wParam, $lParam)
$state = WinGetState($hGui)
If NOT BitAnd($state, Then
GuiSetState(@SW_HIDE, $EditBox)
WinActivate($hGui)
Else
GuiSetState(@SW_Show, $EditBox)
EndIf
EndFunc

[/autoit]

PokerFace

Das erste Skript enthält doch nur Funktionen, dann kannst du dieses Skript doch per Include einbinden.
Dann die Funktionen aufrufen
Ganz normal im zweiten Skript!
Also
_GUiEvents

Und so wieter^^

subzero007

ich verstehe nicht genau was du meinst sind 2 gui ich habe ja schon alles versucht bin kurz vorm heulen würde mich freuen wenn du mir helfen würdest

PokerFace

Achso

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
;------------------------------
#include <WindowsConstants.au3>
#include <SendMessage.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
;------------------------------- -> Die Includes für den Ladebalken!
;####################### Balken ##########################
$Balken = GUICreate("Ladebalken", 545, 25, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
$Progress1 = GUICtrlCreateProgress(0, 0, 545, 25)
;~ $hProgress = GUICtrlGetHandle($Progress1)
;~ _SendMessage($hProgress, $PBM_SETMARQUEE, True, 10)
GUISetState(@SW_SHOW)
;####################### Balken ##########################
While 1
For $i=10 to 75
Sleep (150)
GUICtrlSetData ($Progress1,$i)
Next
$bGetBENNE = _GetBENNE()
For $i=75 to 100
Sleep (75)
GUICtrlSetData ($Progress1, $i)
Next
ExitLoop
WEnd
;~ $bGetBENNE = _GetBENNE()
If $bGetBENNE <> False Then
$Buchstabe = $bGetBENNE&"\"
GUIDelete ($Balken)
Else
MsgBox (1, "Fehler", "Bitte stecken sie den Stick ein! Er wurde nicht erkannt!")
Exit
EndIf
;##################### Stick Main ##################################
$StickMain = GUICreate("Benedikts USB Stick!", 625, 443, 323, 241)
$Label1 = GUICtrlCreateLabel("Kategorie", 168, 32, 298, 94)
GUICtrlSetFont(-1, 48, 800, 0, "Comic Sans MS")
$DVD = GUICtrlCreateButton("DVD etc.", 32, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Festplatte = GUICtrlCreateButton("Festplatte", 224, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Internet = GUICtrlCreateButton("Internet", 424, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Sicherheit = GUICtrlCreateButton("Sicherheit", 24, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Sonstiges = GUICtrlCreateButton("Sonstiges", 224, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Images = GUICtrlCreateButton("Images", 424, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
;####################################################################
;##################### Stick Child ##################################
$StickChild = GUICreate("Benedikts USB Stick!", 498, 188, 398, 390)
$Auswahl = GUICtrlCreateCombo("Auswählen!", 136, 40, 241, 25)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
$AuswahlButton = GUICtrlCreateButton("Go!", 264, 88, 177, 73, 0)
GUICtrlSetFont(-1, 24, 800, 0, "Comic Sans MS")
$Back = GUICtrlCreateButton("Zurück", 56, 88, 177, 73, 0)
GUICtrlSetFont(-1, 22, 800, 0, "Comic Sans MS")
GUISetState(@SW_HIDE)
;####################################################################
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Back
GUISetState (@SW_HIDE, $StickChild)
GUISetState (@SW_SHOW, $StickMain)
GUICtrlSetData ($Auswahl, "")
Case $AuswahlButton
If GuiCtrlRead($Auswahl) <> "" Then
ShellExecute($Dir&"\"&GuiCtrlRead($Auswahl))
EndIF
Case $GUI_EVENT_CLOSE
Exit
Case $DVD
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"DVD etc"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf

Case $Festplatte
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Festplatte"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf

Case $Internet
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Internet"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf

Case $Sicherheit
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Sicherheit"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf

Case $Sonstiges
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Sonstiges"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf

Case $Images
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Images"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf
EndSwitch
Sleep (100)
WEnd
Func _GetBENNE()
$aDGD = DriveGetDrive("REMOVABLE")
For $i = 1 To $aDGD[0]
If DriveGetLabel($aDGD[$i]) = "BENNE" Then return $aDGD[$i]
Next
Return False
EndFunc

[/autoit]

Hier in diesem Beispiel Skript von mir habe ich ebenso 2 GUI's ich mache diese nur Sichtbar wenn ich die Brauche.
Also mit:

[autoit]

GUISetState (@SW_SHOW, $GUI1)
; oder auch
GUISetState (@SW_HIDE, $GUI1)

[/autoit]

subzero007

Neagtiv habe es leider nicht verstanden wie ich es auf diesem weg verknüpfen soll?

**autoBert**

Hallo subzero007,

wenn ich dich richtig verstanden habe hast du 2 Skripte (mit je 1 GUI) und du willst aus jedem Skript bestimmte Funktionen übernehmen. Am Schluss hättest du gerne eine GUI mit den Funktionen von beiden. Da beide in unterschiedlichen MODI geschrieben sind:

Skript (von @Oliver_H) im OnEvent Modus
Skript (von @Chaos_Keks) im MessagegLoop Modus

Beide Modi kannst du aber nicht zusammen in einer GUI verwenden. Lies dazu bitte in der Hilfe unter GUI-Referenz die Themen:

GUI-Konzepte
MessagegLoop Modus
OnEvent Modus

nach. Danach entscheidest du in welchem Modus du deine GUI erstellen möchtest und schreibst danach das andere Skript auf den Modus für den du dich entschieden hast um und testet es aus. Wenn alles funktioniert implementierst du die gewünschten Funktion(en) in deinem Skript.
Da deine GUI auch in der Größe änderbar sein soll musst du falls du eine neuere Version von Chaos-Execution nimmst die Func MY_WM_GETMINMAXINFO anpassen, da in ihr die Mindest- und Maximalgröße der GUI beschränkt werden. Auch solltest du dann die GUI mit nur mit diesen Stil $WS_SIZEBOX erstellen und auf die Stile $WS_MINIMIZEBOX und $WS_MAXIMIZEBOX unbedingt verzichten.

mfg (Auto)Bert

ChaosKeks

Eh aktuelle Version von dem Script -> https://autoit.de/index.php?page=Thread&threadID=12285

Und dieser Thread ist jetzt mindestens der 5te Thread der in den letzten 24 stunden von dir über das gleiche verdammte thema erstellt wurde und dabei jedes mal das Prog in andere Teile gerissen wurde!

Ich hab wirklich 0 Problem damit, dass du mit dem Script experimentierst..
aber bitte vergewaltige doch nicht das Forum dabei

subzero007

Danke dir Autobert,
evetuell wirst du es mir nicht glauben aber habe schon die hilfe durch und bin am verzweifeln kriege irgendwie den einstieg nicht hin,-(
dachte nur das mir jemand den einstieg gibt, vielleicht wenn es sogar einfach ist es fertig macht mir sagt was es war und wie er
es gemacht hat will es ja auch lernen.

Sorry das ich soviele fragen habe

Edit:
@ChaosKeks es tut mir leid ich werde mich in zukunft bessern versprochen !!!!
kannst du mir helfen du kennst ja das script,-) Bitteee

bernd670: Beiträge zusammengefasst!

ChaosKeks

puuh meinetwegen!
Aber ich verunstallte dafür nicht Chaos-Execution!

Hier ein kleiner Denkanstoß:

Spoiler anzeigen

[autoit]

#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")
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()
Local $Pos_C, $Pos_M, $Pos_M2, $Opt_old
Local $dll = DllOpen("user32.dll")
$Opt_old = Opt('MouseCoordMode', 0)
$Pos_C = ControlGetPos($hGui, "", $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($pic,$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]

subzero007

danke danke,

soweit war ich schonmal das sind meine beiden probleme wieder

1. wie kann ich mehrer bilder hinzufügen sie aber auch einzeln entfernen ?
2. und das ganze transparent?
3.Gibt es die möglichkeit die bilder in der gui, nachdem man sie eigefügt hat die grösse zu verändern?