Beiträge von Ilse

@ h2112

...nette Kommentare für ne Quizstunde.

Zitat

Ich lass Sie mal den Fehler suchen, damit Sie wieder was zu tun hat

Weißt du nun woran es liegen kann?

Wenn ja, dann sollten wir das heitere Quizraten beenden....
am besten mit einer "Auflösung"!

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Global $Farbe
$Form1_1 = GUICreate("Form1", 1009, 770, 513, 94, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP))
$Pic1 = GUICtrlCreatePic("C:\Hintergrund.jpg", -16, 8, 1024, 768, BitOR($GUI_SS_DEFAULT_PIC, $WS_CLIPSIBLINGS))
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("Input1", 856, 48, 129, 21)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Tab1 = GUICtrlCreateTab(192, 128, 593, 369)
GUICtrlSetState(-1, $GUI_ONTOP)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
GUICtrlCreateTabItem("")
$Label1 = GUICtrlCreateLabel("Label1", 32, 40, 85, 36, $SS_CENTER)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)

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

AdlibRegister("_Hover_Label")

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

GUIGetMsg()
While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

Global $Farbe = False

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

Func _Hover_Label()
$pos = GUIGetCursorInfo()

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

If $pos[4] = $label1 And $Farbe = false Then
GUICtrlSetBkColor($label1, 0xFF0000)
$Farbe = True
ElseIf $pos <> $label1 And $Farbe = True then
GUICtrlSetBkColor($label1, -2)
$Farbe = False
EndIf
EndFunc

[/autoit]

Grüße
Ilse

...deine Function hat einen Fehler!

startet und bricht sofort ab!

Die Meldung

[autoit]

ElseIf $pos <> $label1 And $Farbe = True then
;: ==> Variable used without being declared.:

[/autoit]

@ kleiner
es flckert nur wenn die Große geändert wird!

@h2112
...es flackert leider immer noch!

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

Func _Hover_Label()

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

$pos = GUIGetCursorInfo()
$Farbe = false
If $pos[4] = $label1 and $Farbe = false Then
GUICtrlSetBkColor($label1, 0xFF0000)
$Farbe = true
Else
if $pos[4] = $label1 and $Farbe = true then
GUICtrlSetBkColor($label1, -2)
$Farbe = false
;GUICtrlSetBkColor($label1, Default)
endif
EndIf

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

EndFunc

[/autoit]

...also irgenwie versteh ich nicht was Ihr meint!

Zitat

GUIGetMsg() reicht als Bremse

hab ich doch schon drin!
Sleep, hab ich auch schon probiert

Hallo,

Zitat

Es ist ja auch klar, dass das Label flackern muss

hm...und wieso flackert es nicht, wenn ich die Größe nicht verändere????

Wie kann man die Farbe prüfen
Hab das probiert, geht leider nicht

[autoit]

if $label1.color = 0xFF0000 Then
MsgBox(4,"Farbe","gesetzt")
endif

[/autoit]

Folgendes Problem:

Wenn ich mit der Maus auf das Label gehe ändert sich die Farbe! OK!
Vergrößere ich das Fenster, dann flackert plätzlich der Text!

Wenn ich das Hintergrundbild deaktiviere klappt es!

[autoit]

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

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

$Form1_1 = GUICreate("Form1", 1009, 770, 513, 94, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
$Pic1 = GUICtrlCreatePic("C:\Hintergrund.jpg", -16, 8, 1024, 768, BitOR($GUI_SS_DEFAULT_PIC,$WS_CLIPSIBLINGS))
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("Input1", 856, 48, 129, 21)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Tab1 = GUICtrlCreateTab(192, 128, 593, 369)
GuiCtrlSetState(-1,$GUI_ONTOP)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
GUICtrlCreateTabItem("")
$Label1 = GUICtrlCreateLabel("Label1", 32, 40, 85, 36, $SS_CENTER)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)

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

Adlibregister("_Hover_Label")

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

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

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

EndSwitch
WEnd
Func _Hover_Label()
$pos = GUIGetCursorInfo()
If $pos[4] = $label1 Then
GUICtrlSetBkColor($label1, 0xFF0000)
Else
GUICtrlSetBkColor($label1, -2)
;GUICtrlSetBkColor($label1, Default)
EndIf
EndFunc

[/autoit]

merci für den Tipp!
Hab's hinbekommen.

Liebe Grüße
Ilse

Hallo,

ich habe ein Problem mit meinen Tabs!
Meine Objekte liegen auf dem Hintergrundbild!
Die inputbox ist sichtbar nur die Tabs sieht man nicht!
Wieso kommen die nicht in den Vordergrund?

[autoit]

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

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

$Form1_1 = GUICreate("Form1", 1026, 770, 307, 70, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
$Pic1 = GUICtrlCreatePic("C:\Hintergrund.jpg", 0, 0, 1024, 768) ; das Hintergrundbild
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Tab1 = GUICtrlCreateTab(136, 256, 401, 385)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKHEIGHT)
GUICtrlSetBkColor(-1, -2)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
$Input1 = GUICtrlCreateInput("Input1", 688, 120, 129, 21)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)

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

GUISetState(@SW_SHOW)

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

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

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

EndSwitch
WEnd

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

Grüße
Ilse

Hallo Hellboy3,

das mit de Slider ist prima.

Dank dir
Ilse

Hallo Stayawayknight,

ich such ja schon ne Weile.
Mit Labels geht das, aber mit einer normale Inputbox habe ich noch
nichts passendes gefunden.

Grüße
Ilse

Hallo Ineluki,

die Elemente sind jetzt oben, das hat geklappt. Super!
Das Label ist auch transparent.
Leider bekomme ich die Inputboxen und den Slider nicht transparent!

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 662, 584, 192, 152, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Logobanner2.jpg", 0, 0, 660, 132)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUICtrlSetState(-1, $GUI_DISABLE)
$Slider1 = GUICtrlCreateSlider(216, 64, 366, 20)
GUICtrlSetLimit(-1, 200, 0)
GUICtrlSetBkColor(-1, -2)
$km = GUICtrlCreateInput("0", 584, 56, 33, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
;GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, -2)
$Was = GUICtrlCreateInput("Hunde", 352, 96, 97, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, -2)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Wo = GUICtrlCreateInput("Gebiet", 520, 96, 97, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, -2)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Label3 = GUICtrlCreateLabel("Umkreis", 224, 40, 61, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, -2)
$Label6 = GUICtrlCreateLabel("km", 624, 64, 24, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, -2)

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

GUISetState(@SW_SHOW)

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

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

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

EndSwitch
WEnd

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

Grüße
Ilse

Hallo,

ich habe mehrere Probleme mit einer Hintergrundgrafik.

Beim Starten werden die Objekte verdeckt, obwohl die Grafik im Hintergrund ist!
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Soboald ich den Mauszeiger über der Grafik bewege erscheinen meine Elemente!
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Wie kann man z.B. Inputboxen, Slider, Texte... transparent auf die Grafik legen?
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Mein Quellcode

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 662, 584, 192, 152, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
$Slider1 = GUICtrlCreateSlider(216, 64, 366, 20)
GUICtrlSetLimit(-1, 200, 0)
$km = GUICtrlCreateInput("0", 584, 56, 33, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$Was = GUICtrlCreateInput("Hunde", 352, 96, 97, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Wo = GUICtrlCreateInput("Gebiet", 520, 96, 97, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Label3 = GUICtrlCreateLabel("Umkreis", 224, 40, 61, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("km", 624, 64, 24, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("C:\Logobanner2.jpg", 0, 0, 660, 132)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUISetState(@SW_SHOW)

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

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

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

EndSwitch
WEnd

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

Viele Grüße
Ilse

Hallo m-obi,

ja, das war's.

Mal wieder ein herzliches Dankeschön

Liebe Grüße
Ilse

Hallo m-obi,

hier ist der Code:
Das ico ist noch über dem Button (...)

[autoit]

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>

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

_IEErrorHandlerRegister()

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

Dim $oIE[1]
$oIE[0] = _IECreateEmbedded()
Dim $Tab[1]

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

$gui = GUICreate("Browser", 800, 600, -1, -1, BitOr($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX))
$NewTab = GUICtrlCreateButton("Neuer Tab", 20, 20, 80, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$input = GUICtrlCreateInput("", 120, 20, 400, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$TabParent = GUICtrlCreateTab(20, 60, 760, 520)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
$Tab[0] = GUICtrlCreateTabItem("Google")
GUICtrlCreateObj($oIE[0], 40, 100, 700, 460)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUICtrlCreateTabItem("") ; end tabitem definition
$btnzurueck = GUICtrlCreateIcon(@ScriptDir & "\button-links.ico", 100, 16, 8, 49, 31)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUISetState()

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

_IENavigate($oIE[0], "http://www.google.de")
GUICtrlSetData($input, _IEPropertyGet($oIE[0], "locationurl"))

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $NewTab
$iIE = UBound($oIE)
_ArrayAdd($Tab, GUICtrlCreateTabItem("Tab" & $iIE))
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
_ArrayAdd($oIE, _IECreateEmbedded())
$aPos = ControlGetPos($gui, '', $TabParent) ; Größe des TAB-Controls
GUICtrlCreateObj($oIE[$iIE], 40 + ($aPos[0] - 20), 100 + ($aPos[1] - 60), 700 + ($aPos[2] - 760), 460 + ($aPos[3] - 520))
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUICtrlCreateTabItem("") ; end tabitem definition
GUISwitch($gui, $Tab[UBound($Tab)-1]) ; umschalten auf den neuen Tab
_IENavigate($oIE[$iIE], "http://www.google.de")
Case $input
$selected = GUICtrlRead($TabParent)
_IENavigate($oIE[$selected], GUICtrlRead($input))
WinSetTitle($gui, "", _IEPropertyGet($oIE[$selected], "locationname"))
Case $btnzurueck
_IEAction($oIE[0],"back"); Geht in der Historyliste einen Eintrag rückwärts.

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

Case $TabParent
$selected = GUICtrlRead($TabParent)
WinSetTitle($gui, "", _IEPropertyGet($oIE[$selected], "locationname"))
GUICtrlSetData($input, _IEPropertyGet($oIE[$selected], "locationurl"))
EndSwitch
WEnd

[/autoit]

Hallo m-obi,

ich habe alles nochmal so probiert wie du vorgeschlagen hast,
geht leider immer noch nicht!

[autoit]

Case $btnzurueck
_IEAction($aIE[GUICtrlRead($Tab)],"back")

[/autoit]

Folgendes:
Wähle ich den ersten Tab, dann klappt oben der Code
Wähle ich einen anderen Tab, dann klappt es nicht!

Hallo m-obi,

das dachte ich mir auch schon,
aber wie kann man das prüfen, daß z.B. der Tab 5 aktiv ist.
Muß ich das mit case machen?

Wenn ich 20 oder 30 Tabs anlege muß das ja immer stimmen
Ich tappe momentan absolut im dunkeln.

Grüße
Ilse

guten Morgen zusammen,
ein neuer Tag ein neues Problem:
Ich habe mehrere Tabs mit je einer Internetseite.

Wenn ich z.B. Tab 1 wähle
dann kann ich wieder mit dem Buttom zurückblättern
bei den anderen Tabs geht das nicht.
Das hat irgendwie mit den arrays zu tun

[autoit]

Case $btnzurueck
_IEAction($aIE[0],"back"); rückwärts funktioniert bei TAB 1

[/autoit]

wenn ich nun auf den TAB 4 Klicke
und dann auf den Button zurück passiert nichts!

Hier werden die Tabs gemacht:

[autoit]

$iIE = UBound($aIE)
_ArrayAdd($Tab, GUICtrlCreateTabItem($Titel & $iIE))
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
_ArrayAdd($aIE, _IECreateEmbedded())
$aPos = ControlGetPos($gui, '', $TabParent) ; Größe des TAB-Controls
GUICtrlCreateObj($aIE[$iIE], 40 + ($aPos[0] - 20), 100 + ($aPos[1] - 60), 700 + ($aPos[2] - 760), 460 + ($aPos[3] - 520))
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUICtrlCreateTabItem("") ; end tabitem definition
GUISwitch($gui, $Tab[UBound($Tab)-1]) ; umschalten auf den neuen Tab
$Test = _IENavigate($aIE[$iIE],$WebAnzeiger)

[/autoit]

Grüße
Ilse

Hallo Großvater,

merci für deinen Beitrag.
Sieht toll mit den Tooltips aus.

Liebe Grüße
Ilse

Hallo Ineluki,

hier ist der Aufbau:

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Gui = GUICreate("Gui", 529, 362, 238, 145)
$Button1 = GUICtrlCreateButton("Start", 232, 136, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

Case $Button1

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

_Bilder()

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

For $i=1 to 3 Step +1
MsgBox(4,"Test","Programm ist aktiv" & $i,1)
next
Msgbox(4,"Ende der Bilder Gui","Das war's")
GUISwitch($Intro) ;Gui wird geschlossen
GUIDelete($intro);Gui wird geschlossen
EndSwitch
WEnd

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

Func _Bilder()

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

$Intro = GUICreate("Intro", 521, 345, 639, 271, $WS_POPUP)
GUISetState(@SW_SHOW)

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

For $i = 1 To 5
$Pic1 = GUICtrlCreatePic( @ScriptDir & "\Bild" & $i & ".jpg", 0, 0, 521, 345)
GUICtrlSetResizing($Pic1, $GUI_DOCKAUTO + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
Sleep(1000) ; die Pause zwischen den Bildern!
;$Webname2 = GUICtrlCreateLabel($Titel, 120, 120, 220, 120)
GUICtrlSetFont(-1, 40, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
GUICtrlDelete($Pic1)
Next
;GUISwitch($Intro) ;Gui wird geschlossen
;GUIDelete($intro);Gui wird geschlossen
;Exit
;MsgBox(4,"KM",$km1)

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

EndFunc

[/autoit]

Im Prinzip sollen die beiden gleichzeitig laufen wenn auf Start geklickt wird.
Noch ne Frage zur Schleife:
Kann man die Bilder wenn Sie beendet sind nochmal von vorne starten.

Ich meine daß die Hauptgui erst die Diashow beendet?

...jetzt habe ich doch noch ein Problem.

Die Diashow ist auf einer Gui.
Die Gui im Hintergrund führt aber ein Script aus und soll
nicht gestoppt werden, wenn die Diashow (Gui) geöffnet und gestartet wird!

Meine Gui wird erst fortgesetzt wenn die Diashow beendet ist.
Es sollte aber so sein:

[autoit]

1. Script startet (Gui) ------>
2. Diashow startet (Titel)-------->
3. Script von 1 wird weiter ausgeführt während die Diashow läuft

[/autoit]