Wieso wird bild nicht generiert?

masteraki

Wieso wird das bild hier nicht geändert?

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

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

;Anzeigen
Global $Levelanzeige = "1"
Global $Questanzeige = "0"
Global $Namensanzeige = ""
Global $Goldanzeige = "0"
Global $ExpAnzeige = "0"
Global $BenutzerPic = ""
;Ende Anzeigen
$Exit = TrayCreateItem("Schließen")
$Form1 = GUICreate("Dragonfight *Programmed By Masterakio1995*", 637, 453, 354, 282)
$Tab1 = GUICtrlCreateTab(0, 0, 636, 452)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Information")
GUICtrlSetState(-1,$GUI_SHOW)
$Label1 = GUICtrlCreateLabel("Benutzterbild", 48, 32, 65, 17)
$Label2 = GUICtrlCreateLabel("Name:", 232, 32, 35, 17)
$Label3 = GUICtrlCreateLabel($Namensanzeige, 184, 56, 140, 20)
$Button1 = GUICtrlCreateButton("Ändern", 328, 56, 57, 25, 0)
$Button2 = GUICtrlCreateButton("Ändern", 48, 216, 83, 25, 0)
$Label4 = GUICtrlCreateLabel("Level:", 472, 32, 33, 17)
$Label5 = GUICtrlCreateLabel($Levelanzeige, 424, 56, 140, 20)
$Label6 = GUICtrlCreateLabel("Gold:", 232, 96, 29, 17)
$Label7 = GUICtrlCreateLabel($Goldanzeige, 184, 120, 140, 20)
$Label8 = GUICtrlCreateLabel("Erfahrungspunkte:", 328, 152, 91, 17)
$Label9 = GUICtrlCreateLabel($Expanzeige, 296, 184, 164, 20)
$Label10 = GUICtrlCreateLabel("Anzahl erfolgreicher Quests:", 424, 96, 136, 17)
$Label11 = GUICtrlCreateLabel($Questanzeige, 424, 120, 140, 20)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Global $BenutzerPic = FileOpenDialog("Wähle deine Benutzterbild", @DesktopDir & "\", "(*.jpg)(*.bmp)", 1 + 4 )
Global $Pic1 = GUICtrlCreatePic($BenutzerPic, 8, 56, 161, 153,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
EndSwitch
WEnd

[/autoit]

PenGuin

Wozu der GUICtrlRead im GUICtrlCreatePic?
Nimm das GUICtrlRead mal raus und schreib nur $BenutzerPic hin

masteraki

Funzt auch nicht hatte ich auch schon versucht
Es funktioniert auch nicht wen ich direkt den pfad angebe

**Greenhorn**

Hi,

versuche es mal bitte so ...

Spoiler anzeigen

[autoit]

#include <Constants.au3>

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

Global $BenutzerPic

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

$Form1 = GUICreate("Dragonfight", 637, 453, 354, 282)
$Tab1 = GUICtrlCreateTab(0, 0, 636, 452)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Information")
GUICtrlSetState(-1,$GUI_SHOW)
$Label1 = GUICtrlCreateLabel("Benutzterbild", 48, 32, 65, 17)
$Label2 = GUICtrlCreateLabel("Name:", 232, 32, 35, 17)
$Pic1 = GUICtrlCreatePic("", 8, 56, 161, 153,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

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

While 1
Switch (GUIGetMsg( ))
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
$BenutzerPic = FileOpenDialog("Wähle deine Benutzterbild", @DesktopDir & "\", "(*.jpg)(*.bmp)", 1 + 4)
If (not GUICtrlSetImage($Pic1, $BenutzerPic)) Then
ErrorMsg("Kein Benutzerbild ausgewählt")
EndIf
EndSwitch
WEnd
Func ErrorMsg ($message)

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

Return MsgBox (BitOR ($MB_OK, $MB_ICONHAND), 0, $message)

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

EndFunc

[/autoit]

Gruß
Greenhorn

**autoBert**

Hallo masteraki,

stelle doch bitte dein komplettes (bis auf dieses 1 Prob) lauffähige Skript ein, denn

Code

C:\Programme\AutoIt3\Examples\Tests\createPic.au3(6,38) : WARNING: $GUI_DOCKWIDTH: possibly used before declaration.
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(6,54) : WARNING: $GUI_DOCKHEIGHT: possibly used before declaration.
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(8,29) : WARNING: $GUI_SHOW: possibly used before declaration.
GUICtrlSetState(-1,$GUI_SHOW)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(20,23) : WARNING: $GUI_EVENT_CLOSE: possibly used before declaration.
 Case $GUI_EVENT_CLOSE
~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(22,15) : WARNING: $Button2: possibly used before declaration.
 Case $Button2
~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(25,79) : WARNING: $SS_NOTIFY: possibly used before declaration.
Global $Pic1 = GUICtrlCreatePic($BenutzerPic, 8, 56, 161, 153,BitOR($SS_NOTIFY,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(25,89) : WARNING: $WS_GROUP: possibly used before declaration.
Global $Pic1 = GUICtrlCreatePic($BenutzerPic, 8, 56, 161, 153,BitOR($SS_NOTIFY,$WS_GROUP,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(25,106) : WARNING: $WS_CLIPSIBLINGS: possibly used before declaration.
Global $Pic1 = GUICtrlCreatePic($BenutzerPic, 8, 56, 161, 153,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3(6,38) : ERROR: $GUI_DOCKWIDTH: undeclared global variable.
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\createPic.au3 - 1 error(s), 8 warning(s)
!>19:19:48 AU3Check ended.rc:2
>Exit code: 0    Time: 9.445

Alles anzeigen

der Button2 existiert ja noch nicht einmal.

Bis dahin ein allgemeine gehaltenes Beispiel:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <GuiListBox.au3>
#include <ListboxConstants.au3>
#include <File.au3>

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

Global $szDrive,$szDir,$szFName,$szExt

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

$hGUI = GUICreate("Flaggen", 300, 100)
$hListe = GUICtrlCreateList("", 10, 10, 180, 80,$LBS_NOTIFY)
$hNeu = GUICtrlCreateButton("...",200,10,30,25)
$hVorschau = GUICtrlCreatePic(@ScriptDir & "\Flaggen\NA.jpg", 210, 40, 36, 24)
GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $hNeu
$sAlt = GUICtrlRead($hListe)
$sPlus = FileOpenDialog("Land auswählen:",@ScriptDir & "\Flaggen","Bilder (*.jpg)",3,"",$hGUI)
_PathSplit($sPlus,$szDrive,$szDir,$szFName,$szExt)
ConsoleWrite($szFName & @CRLF)
_GUICtrlListBox_InsertString($hListe,$szFName,0)
Case $hListe
GUICtrlSetImage($hVorschau, @ScriptDir & "\Flaggen\" & GUICtrlRead($hListe) & ".jpg")
EndSwitch
WEnd

[/autoit]

d benötigst dazu autoit.de/wcf/attachment/8309/

mfg (Auto)Bert

masteraki

Greenhorn Und das soll bringe?
Weil passieren tut garnichts
autoBert mein kompletesscript will ich nur ungerne posten
€.So jetzt hab ichs reingemacht so das es funzt
Dan zeigt mir ma was ihr könnt

**autoBert**

Hallo masteraki,

erzeuge das Bild-Control so:

[autoit]

Global $Pic1 = GUICtrlCreatePic($BenutzerPic, 8, 56, 161, 153, BitOR($SS_NOTIFY, $WS_GROUP))

[/autoit]

mfg (Auto)Bert

masteraki

Danke aber ein problem wäre da noch wen ich jetzt versuche das bild nochmal zu ändern funktioniert es nicht

**Oscar**

Erstell' das Bild nur einmal und lade dann das geänderte Bild mit GUICtrlSetImage.

**autoBert**

Das kannst du so lösen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

;Anzeigen
Global $Levelanzeige = "1"
Global $Questanzeige = "0"
Global $Namensanzeige = ""
Global $Goldanzeige = "0"
Global $ExpAnzeige = "0"
Global $BenutzerPic = ""
;Ende Anzeigen
$Exit = TrayCreateItem("Schließen")
$Form1 = GUICreate("Dragonfight *Programmed By Masterakio1995*", 637, 453, 354, 282)
$Tab1 = GUICtrlCreateTab(0, 0, 636, 452)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Information")
GUICtrlSetState(-1, $GUI_SHOW)
$Label1 = GUICtrlCreateLabel("Benutzterbild", 48, 32, 65, 17)
Global $Pic1 = GUICtrlCreatePic($BenutzerPic, 8, 56, 161, 153, BitOR($SS_NOTIFY, $WS_GROUP))
$Label2 = GUICtrlCreateLabel("Name:", 232, 32, 35, 17)
$Label3 = GUICtrlCreateLabel($Namensanzeige, 184, 56, 140, 20)
$Button1 = GUICtrlCreateButton("Ändern", 328, 56, 57, 25, 0)
$Button2 = GUICtrlCreateButton("Ändern", 48, 216, 83, 25, 0)
$Label4 = GUICtrlCreateLabel("Level:", 472, 32, 33, 17)
$Label5 = GUICtrlCreateLabel($Levelanzeige, 424, 56, 140, 20)
$Label6 = GUICtrlCreateLabel("Gold:", 232, 96, 29, 17)
$Label7 = GUICtrlCreateLabel($Goldanzeige, 184, 120, 140, 20)
$Label8 = GUICtrlCreateLabel("Erfahrungspunkte:", 328, 152, 91, 17)
$Label9 = GUICtrlCreateLabel($ExpAnzeige, 296, 184, 164, 20)
$Label10 = GUICtrlCreateLabel("Anzahl erfolgreicher Quests:", 424, 96, 136, 17)
$Label11 = GUICtrlCreateLabel($Questanzeige, 424, 120, 140, 20)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Global $BenutzerPic = FileOpenDialog("Wähle deine Benutzterbild", @DesktopDir & "\", "(*.jpg)(*.bmp)", 1 + 4)
ConsoleWrite($BenutzerPic & @CRLF)
GUICtrlSetImage($Pic1, $BenutzerPic)
EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

masteraki

danke jetzt funktionierts