JPG in einem GUI als Link

**Alina**

Moin.

Wie mache ich es, das ein JPG in einem GUI als Link zu einer Internetseite (im Browser z. B. FireFox) möglich ist?

LG, Crazy-A.

eagle

Wenn du das Bild in das GUI einbindest musst du ihm eine Variable zuordnen.
Diese kannst du dann im Message Loop abfragen und so mit einem Befehl "verlinken".

Spoiler anzeigen

[autoit]

$var = GUICtrlCreatePic("Bild.jpg", 0, 0)
GuiSetState()
While 1
$msg = GuiGetMsg
Select
Case $msg = $var
;Link aufrufen
EndSelect
WEnd

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

**Xenobiologist**

HI,

[autoit]

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

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

Global $GUI = GUICreate("GUI", 413, 305, 303, 219)
Global $bild = GUICtrlCreatePic(@SystemDir & "\oobe\images\merlin.gif", 32, 16, 195, 177, $SS_NOTIFY, $WS_EX_LAYERED)
GUISetState(@SW_SHOW)

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

Do
$msg = GUIGetMsg()
If $msg = $bild Then ShellExecute('http://autoit.de/index.php?page=User&userID=173')
Until $msg = $GUI_EVENT_CLOSE

[/autoit]

Mega

**Alina**

So sieht das aus bei mir (Firmmendaten entfernt).
Bild ist eingebaut, aber das mit dem Link bekomme ich nicht hin.

EDIT: nach langem "Hin und her" selber geschafft mit o. g. Mega-Hilfe.

Ich habe es so gemacht:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <inet.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

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

$key = "" ; zugang extern
$buchung = "" ; wird noch nicht benötigt, sondern in Planung
$net = "" ; hier Netzauswahl der Grp.

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

GUICreate("Benutzeroberfläche", 310, 325, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1)
$bild = GUICtrlCreatePic("dialog_dk.jpg", 5, 220, 300, 100) ; Linkbild nach dialog DK
$bild2 = GUICtrlCreateLabel ("", 4, 219, 1, 1)

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

;tl-nr. 10 stellen
GUICtrlCreateLabel("ersten 10 TL-Nr", 5, 5, 300, 14)
$tlnr = GUICtrlCreateInput("", 5, 20, 300, 20)
GUICtrlSetLimit(-1, 10)

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

;kkv 15 stellen
GUICtrlCreateLabel("BK Bez. Nr. 1 bis 15", 5, 45, 300, 14)
$kkv = GUICtrlCreateInput("", 5, 60, 300, 20)
GUICtrlSetLimit(-1, 15)

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

;sstv 30 stellen
GUICtrlCreateLabel("SSTV", 5, 85, 300, 14)
$sstv = GUICtrlCreateEdit("", 5, 100, 300, 50, $ES_WANTRETURN)
GUICtrlSetLimit(-1, 30)

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

;buttons
$uebergeben = GUICtrlCreateButton("Übernahme", 5, 160, 60, 20)
$exit = GUICtrlCreateButton("Exit", 5, 195, 60, 20)

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

;Infotext
GUICtrlCreateLabel("", 80, 160, 220, 60)

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

GUISetState()

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

$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select

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

Case $msg = $uebergeben
; Keine Domain veröffentlichen in Forum
$sReturn = _INetGetSource("https://www..........dk/?key=" & $key & "&tlnr=" & GUICtrlRead($tlnr) & "&kkv=" & GUICtrlRead($kkv) & "&ma=" & "ma:" & "DK" & GUICtrlRead($sstv) & "&net=" & $net)
$sReturn = StringSplit($sReturn, ";")
Switch $sReturn[1]
Case "1"
MsgBox(0, "", "KKV Fehler")
Case "2"
MsgBox(0, "", "MA durch ADMIN eintragen lassen, da MA ungleich LOGIN.")
Case "3"
MsgBox(0, "", "Netz nicht bereit. Bitte Teamleiterin Skandina anrufen.")

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

EndSwitch

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

Case $msg = $exit
ExitLoop

Case $msg = $bild2
_Inetgetsource("http://www.autoit.de")
EndSelect
WEnd

[/autoit]

Ob Zeile 13 nötig ist weiß ich nicht !
Ob Zeile 61 und 62 so okay weiß ich auch nicht, aber es funktioniert ja.

!!! DANKE !!!

LG, Crazy-A.

**Oscar**

Ich hab's mal in Dein Script eingefügt:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <inet.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

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

$key = "" ; zugang extern
$buchung = "" ; wird noch nicht benötigt, sondern in Planung
$net = "" ; hier Netzauswahl der Grp.

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

GUICreate("Benutzeroberfläche", 310, 325, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1)
$LinkPic = GUICtrlCreatePic("dialog_dk.jpg", 5, 220, 300, 100) ; Linkbild nach dialog DK

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

;tl-nr. 10 stellen
GUICtrlCreateLabel("ersten 10 TL-Nr", 5, 5, 300, 14)
$tlnr = GUICtrlCreateInput("", 5, 20, 300, 20)
GUICtrlSetLimit(-1, 10)

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

;kkv 15 stellen
GUICtrlCreateLabel("BK Bez. Nr. 1 bis 15", 5, 45, 300, 14)
$kkv = GUICtrlCreateInput("", 5, 60, 300, 20)
GUICtrlSetLimit(-1, 15)

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

;sstv 30 stellen
GUICtrlCreateLabel("SSTV", 5, 85, 300, 14)
$sstv = GUICtrlCreateEdit("", 5, 100, 300, 50, $ES_WANTRETURN)
GUICtrlSetLimit(-1, 30)

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

;buttons
$uebergeben = GUICtrlCreateButton("Übernahme", 5, 160, 60, 20)
$exit = GUICtrlCreateButton("Exit", 5, 195, 60, 20)

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

;Infotext
GUICtrlCreateLabel("", 80, 160, 220, 60)

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

GUISetState()

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

$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select

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

Case $msg = $uebergeben
; Keine Domain veröffentlichen in Forum
$sReturn = _INetGetSource("https://www..........dk/?key=" & $key & "&tlnr=" & GUICtrlRead($tlnr) & "&kkv=" & GUICtrlRead($kkv) & "&ma=" & "ma:" & "DK" & GUICtrlRead($sstv) & "&net=" & $net)
$sReturn = StringSplit($sReturn, ";")
Switch $sReturn[1]
Case "1"
MsgBox(0, "", "KKV Fehler")
Case "2"
MsgBox(0, "", "MA durch ADMIN eintragen lassen, da MA ungleich LOGIN.")
Case "3"
MsgBox(0, "", "Netz nicht bereit. Bitte Teamleiterin Skandina anrufen.")

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

EndSwitch

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

Case $msg = $exit
ExitLoop

Case $msg = $LinkPic
ShellExecute('http://autoit.de/')
EndSelect
WEnd

[/autoit]

**Alina**

Hallo Oscar.

Schaust Du mal im Posting das ich paar Sekunden vor DIR gepostet hast rein. So geht es auch, aber ob das okay so ist weiß ich na klar nicht.

LG, Crazy-A(lina).

**Oscar**

Die Zeile13 $bild2 = GUICtrlCreateLabel ("", 4, 219, 1, 1) brauchst Du nicht. Einfach in der MessageLoop-Schleife $bild abfragen.

Aber wieso _Inetgetsource("http://www.autoit.de")? Damit rufst Du doch keine Seite auf.

Nimm lieber: ShellExecute("http://www.autoit.de")

**Alina**

@xeno & Oscar

Habt RECHT.
Mit ShellExecute("http://www.autoit.de") geht es einwandfrei.

Danke.

LG, Crazy-A.

P. S. Wer RECHT hat, gibt ....
Zwei die Recht haben und einen aus geben müssen. Jeder ein halbes Glas Cola. Nur wer die oberste und wer die unterste???

**Oscar**

Zitat von Crazy-A

P. S. Wer RECHT hat, gibt ....
Zwei die Recht haben und einen aus geben müssen. Jeder ein halbes Glas Cola. Nur wer die oberste und wer die unterste???

Aber...aber...Cola ist doch so ungesund. Davon sollte man höchstens ein halbes Glas trinken.
Also gebe ich die obere Hälfte aus.

**Xenobiologist**

Ich sag nur: Wer recht hat muss auch Streit anfangen!