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.
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.
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".
$var = GUICtrlCreatePic("Bild.jpg", 0, 0)
GuiSetState()
While 1
$msg = GuiGetMsg
Select
Case $msg = $var
;Link aufrufen
EndSelect
WEnd
HI,
[autoit]#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
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)
Do
$msg = GUIGetMsg()
If $msg = $bild Then ShellExecute('http://autoit.de/index.php?page=User&userID=173')
Until $msg = $GUI_EVENT_CLOSE
Mega
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:
#include <GUIConstants.au3>
#include <inet.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
$key = "" ; zugang extern
$buchung = "" ; wird noch nicht benötigt, sondern in Planung
$net = "" ; hier Netzauswahl der Grp.
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)
;tl-nr. 10 stellen
GUICtrlCreateLabel("ersten 10 TL-Nr", 5, 5, 300, 14)
$tlnr = GUICtrlCreateInput("", 5, 20, 300, 20)
GUICtrlSetLimit(-1, 10)
;kkv 15 stellen
GUICtrlCreateLabel("BK Bez. Nr. 1 bis 15", 5, 45, 300, 14)
$kkv = GUICtrlCreateInput("", 5, 60, 300, 20)
GUICtrlSetLimit(-1, 15)
;sstv 30 stellen
GUICtrlCreateLabel("SSTV", 5, 85, 300, 14)
$sstv = GUICtrlCreateEdit("", 5, 100, 300, 50, $ES_WANTRETURN)
GUICtrlSetLimit(-1, 30)
;buttons
$uebergeben = GUICtrlCreateButton("Übernahme", 5, 160, 60, 20)
$exit = GUICtrlCreateButton("Exit", 5, 195, 60, 20)
;Infotext
GUICtrlCreateLabel("", 80, 160, 220, 60)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
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.")
EndSwitch
[/autoit] [autoit][/autoit] [autoit]Case $msg = $exit
ExitLoop
Case $msg = $bild2
_Inetgetsource("http://www.autoit.de")
EndSelect
WEnd
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.
Ich hab's mal in Dein Script eingefügt:
#include <GUIConstants.au3>
#include <inet.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
$key = "" ; zugang extern
$buchung = "" ; wird noch nicht benötigt, sondern in Planung
$net = "" ; hier Netzauswahl der Grp.
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
;tl-nr. 10 stellen
GUICtrlCreateLabel("ersten 10 TL-Nr", 5, 5, 300, 14)
$tlnr = GUICtrlCreateInput("", 5, 20, 300, 20)
GUICtrlSetLimit(-1, 10)
;kkv 15 stellen
GUICtrlCreateLabel("BK Bez. Nr. 1 bis 15", 5, 45, 300, 14)
$kkv = GUICtrlCreateInput("", 5, 60, 300, 20)
GUICtrlSetLimit(-1, 15)
;sstv 30 stellen
GUICtrlCreateLabel("SSTV", 5, 85, 300, 14)
$sstv = GUICtrlCreateEdit("", 5, 100, 300, 50, $ES_WANTRETURN)
GUICtrlSetLimit(-1, 30)
;buttons
$uebergeben = GUICtrlCreateButton("Übernahme", 5, 160, 60, 20)
$exit = GUICtrlCreateButton("Exit", 5, 195, 60, 20)
;Infotext
GUICtrlCreateLabel("", 80, 160, 220, 60)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
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.")
EndSwitch
[/autoit] [autoit][/autoit] [autoit]Case $msg = $exit
ExitLoop
Case $msg = $LinkPic
ShellExecute('http://autoit.de/')
EndSelect
WEnd
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).
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")
@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???
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.
Ich sag nur: Wer recht hat muss auch Streit anfangen!