Beiträge von Ilse

Ilse

Hallo Milla,

jetzt ist alles gut.
Danke für deinen Tipp!

Ilse

Ilse

Hallo Ineluki,

klar doch, hatte es im neues Post nur vergessen zu deaktivieren. Sorry...
Deswegen sind ja die beiden anderen Befehle dazu gekommen.
Exit kann ich ja nicht verwenden, da alles geschlossen wird.

Wie komme ich da wieder raus, ohne die andere Gui zu schließen?

Ilse

vielen Dank für eure Vorschläge!

Ein Problem gibt es noch:
Die Dia-Gui befindet sich ja nun auf einer anderen Gui im Vordergrund!
Bei diesem Beispiel
werden nach der Dia-Show sämtliche gui-Fenster geschlossen und das kpl. Programm beendet!
Es sollte aber nur die Bilder-Gui nach dem Loop beendet werden.

Ich habe mit GuiSwitch probiert, das ging aber nicht!

[autoit]

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

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

For $i = 1 To 10
$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!
GUICtrlDelete($Pic1)
Next
;exit ; danach werden alle GuiFenster geschlossen!
GUISwitch($intro) ;
GUICtrlDelete($intro); Gui wird nicht geschlossen

[/autoit]

gibt es da noch eine andere Möglichkeit?

Grüße
Ilse

Ilse

hm...folgendes Problem

in meinem Ordner habe ich 10 Bilder
Bild1
Bild2
u.s.w.
Diese möchte ich nun als "always on Top"
durchlaufen lassen!
Ohne Rahmen sondern nur die Fotos!

[autoit]

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

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

$Form1 = GUICreate("Form1", 523, 349, 639, 271)
$Pic1 = GUICtrlCreatePic("@ScriptDir & \Bild.jpg", 0, 0, 521, 345)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUISetState(@SW_SHOW)

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

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

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

For $i = 1 To 10
$Bild = "Bild" & $i ;

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

Sleep(1000) ; die Pause zwischen den Bildern!
next

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

EndSwitch
WEnd

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

komme irgendwie nicht weiter...

Grüße
Ilse

Ilse

Hallo Milla,

super, es klappt prima!

Dank dir
Ilse

Ilse

kann man bei einem Slider die Werte
direkt beim verändern anzeigen lassen?

Wenn man den Slider bewegt, daß die Werte sich sofort ändern...

[autoit]

#include <EditConstants.au3>
GUICreate("...", 100, 70)
$slider = GUICtrlCreateSlider(10, 10, 80, 20)
$input = GUICtrlCreateInput("", 10, 40, 80, 200, $ES_NUMBER)
GUISetState()
While True
$msg = GUIGetMsg()
If $msg = -3 Then Exit
If $msg = $slider Then GUICtrlSetData($input, GUICtrlRead($slider))
If $msg = $input Then GUICtrlSetData($slider, GUICtrlRead($input))
WEnd

[/autoit]

Grüße
Ilse

Ilse

Hallo,

ich hab jetzt den Fehler gefunden!
Da mußte nur der Wert 10, oder 200... rein
dann läuft's!

Dank Euch nochmal
Ilse

Ilse

guten Morgen franzp,

merci für deine Hilfe.

Zitat

nur als gedankenansatz

...ich hatte den nicht, hatte mich mit if...etwas verlaufen.

klappt jetzt prima

Liebe Grüße
Ilse

Ilse

guten Morgen,

das Problem ist folgendes:
mit

_IEFormElementSetValue

wird der Wert + 25 km von mir per Code in der Liste gesetzt, aber nicht mit submit übernommen.
Ich kann das Dropdownfeld ansprechen, das Feld wird geöffnet, der Wert
z.B. + 25 km wird auch oben eingesetzt, aber in der Liste wird der Wert nicht farblich angewählt.
Es bleibt 0 stehen. Richtig wäre: + 25 km wird auch in der Liste angewählt: + 25 km
Somit übernimmt submit 0 als Wert!

So sieht das ganze aus
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Das Dropdownfeld hat den Status Readonly, kann es vielleicht
damit zusammenhängen?

Ilse

Ich habe folgendes Problem:

Wie kann ich auf einer Internetseite
in einem Dropdownfeld einen Eintrag mit dem IE wählen?

Andere Felder funktionieren nur das Dropdownfeld nicht!

[autoit]

; das Dropdownfeld heißt RadiusInputDummy
$Regionfeld = "RadiusInputDummy"
$oSelect = _IEFormElementGetObjByName($oForm, $Regionfeld)
_IEFormElementOptionSelect($oSelect, "+ 50 km", 1, "byValue") ;diesen Eintrag wählen

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

_IEFormSubmit($oForm)

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

Was mach ich hier falsch?

Ilse

ich habe mir einen Slider gebastelt.
1-200
Wie kann ich diesen Slider bei bestimmten Werten einrasten lassen
und eine Info ausgeben.

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 440, 89, 286, 196)
$Slider1 = GUICtrlCreateSlider(16, 0, 262, 45)
GUICtrlSetLimit(-1, 200, 0)
$Wert = GUICtrlCreateInput("0", 312, 8, 33, 21)
$Label1 = GUICtrlCreateLabel("0", 24, 56, 10, 17)
$Label2 = GUICtrlCreateLabel("10", 64, 56, 16, 17)
$Label3 = GUICtrlCreateLabel("50", 120, 56, 16, 17)
$Label4 = GUICtrlCreateLabel("20", 88, 56, 16, 17)
$Label5 = GUICtrlCreateLabel("100", 152, 56, 22, 17)
$Label6 = GUICtrlCreateLabel("200", 224, 56, 22, 17)
$Start = GUICtrlCreateButton("Start", 312, 48, 75, 25)
GUISetState(@SW_SHOW)

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

While True
$msg = GUIGetMsg()
If $msg = -3 Then Exit
If $msg = $slider1 Then GUICtrlSetData($Wert, GUICtrlRead($slider1))
If $msg = $Wert Then GUICtrlSetData($slider1, GUICtrlRead($Wert))

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

WEnd

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

Es sollte bei den Werten
0
10
20
50
100
200
eingerastet werden und eine Msgbox erscheinen Sie haben z.B. 100 gewählt
wenn man auf den Startbutton klickt!

Ilse

Zitat

Mal sehen womit du als nächstes kommst.

...bin schon dabei!

(aber ich probiere zuerst selbst, bevor ich poste)

Liebe Grüße
Ilse

Ilse

Guten Morgen m-obi,

konnte mich erst heute wieder melden!

Zitat

...wenn dann musst du vorher GUISwitch aufrufen.

das war die Lösung!
Es klappt jetzt alles auch GUICtrlDelete...

Diese 2 Wörter sind die Erlösung für 30 Stunden Qual...!
ICH DANKE DIR

Viele Grüße
Ilse

Ilse

Hallo m-obi,

...die liebe Arbeit, mußte wieder los.
GUICtrlDelete($test) geht auch nicht. Das Flash Fenster läßt sich einfach nicht beenden.

Zitat

Ich würde aber das Flash-Video vor die For-Schleife setzen...

hab ich schon verstanden,

1 x Flashfenster im Vordergrund
dann Loop
dann Msgbox wenn Loop beendet ist,
dann Flashfenster schließen.

geht leider nicht!

Weißt du was mir aufgefallen ist:
Ich habe mal das Flashfenster (Gui) vergrößert und da ist auch der Tab-Inhalt drin.
Das ist seltsam das sollte nämlich nicht sein, vielleicht hat es damit etwas zu tun.

Grüße
Ilse

Ilse

Hallo m-obi,

du wirst es nicht glauben,
ich bin heute schon den ganzen Tag an diesem Problem.

In diesem Beispiel habe ich doch gar keine Do Schleife!

[autoit]

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

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

_IEErrorHandlerRegister()

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

Dim $aIE[1]
$aIE[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))
GUICtrlSetResizing(-1, $GUI_DOCKALL)

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

$btnsuche = GUICtrlCreateButton("Suche", 416, 40, 163, 25)
$input = GUICtrlCreateInput("", 120, 20, 200, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$TabParent = GUICtrlCreateTab(20, 60, 760, 520)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
$Tab[0] = GUICtrlCreateTabItem("McCanyon")
GUICtrlCreateObj($aIE[0], 40, 100, 700, 460)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUICtrlCreateTabItem("") ; end tabitem definition

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

GUISetState()

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

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

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

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

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

Case $btnsuche
For $i=1 to 3 Step +1

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

$hlogo = GUICreate("Flash-GUI", 300, 300, Default, Default,0x80000000,$WS_POPUP)
$obj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$test = GUICtrlCreateObj($obj, 0, 0, 300, 300)
With $obj
.Movie = @ScriptDir & "\flash1.swf" ; Pfad zur SWF
EndWith
GUISetState()

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

$iIE = UBound($aIE)
_ArrayAdd($Tab, GUICtrlCreateTabItem($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

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

next
MsgBox(4,"Beendet","Ende")
GUIDelete($hlogo)
EndSwitch
WEnd

[/autoit]

Ilse

Hallo ineluki,

ich habe mal das ganze neu gemacht
damit man es besser nachvollziehen kann!

1. klicke auf Suche
2. Die animation startet (sollte aber in der Mitte des Fensters und als Popup erscheinen!
3. Msgbox kommt (fertig)
4. Dann sollte nur das Animations-popup Fenster geschlossen werden!

Der Code

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

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

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

_IEErrorHandlerRegister()

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

Dim $aIE[1]
$aIE[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))
GUICtrlSetResizing(-1, $GUI_DOCKALL)

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

$btnsuche = GUICtrlCreateButton("Suche", 416, 40, 163, 25)
$input = GUICtrlCreateInput("", 120, 20, 200, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$TabParent = GUICtrlCreateTab(20, 60, 760, 520)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
$Tab[0] = GUICtrlCreateTabItem("McCanyon")
GUICtrlCreateObj($aIE[0], 40, 100, 700, 460)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUICtrlCreateTabItem("") ; end tabitem definition

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

GUISetState()

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

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

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

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

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

Case $btnsuche
For $i=1 to 3 Step +1

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

$hlogo = GUICreate("Flash-GUI", 300, 300, Default, Default,0x80000000,$WS_POPUP)
$obj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$test = GUICtrlCreateObj($obj, 0, 0, 300, 300)
With $obj
.Movie = @ScriptDir & "\flash1.swf" ; Pfad zur SWF
EndWith
GUISetState()

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

$iIE = UBound($aIE)
_ArrayAdd($Tab, GUICtrlCreateTabItem($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

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

next
MsgBox(4,"Beendet","Ende")
GUIDelete($hlogo)
EndSwitch
WEnd

[/autoit]

Hier nochnal die Probleme:

1. Wird das fenster vergößert, dann sollte das PopPup immer das Fenster abdecken (mitvergrößert werden)
2. Das PopUp soll immer oben sein!

Ilse

was mir aufgefallen ist
wenn ich diesen Code verwende

[autoit]

$hLogo = GUICreate("", 400, 400, -1, -1, $WS_POPUP)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 0, 0, 400, 400)
$oIE.navigate("about:blank")
$oIE.document.body.style.border = "0px"
$oIE.document.body.background = @ScriptDir & "\logo.gif"
$oIE.document.body.scroll = "no"

GUISetState()

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

Sleep(5000)

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

GUIDelete($hlogo) ; hier sollte doch nur das PopUp gelsöcht werden!

[/autoit]

,,,das ist ja eine Gui die auf einer anderen gui liegt.

[autoit]

GUIDelete($hlogo)

[/autoit]

löscht aber alle Guis!!!
Wieso passiert das?

Ilse

Guten Morgen m-obi,

konnte mich gestern nicht mehr melden.
Alle meine Versuche blieben erfolglos.

[autoit]

$obj2 = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$test2 = GUICtrlCreateObj($obj2, 100,100,800,600)
With $obj2
.Movie = @ScriptDir & "\flash2.swf" ; Pfad zur SWF

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

EndWith
GUISetState()

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

$obj2.Quit ; es wird nichts beendet!

[/autoit]

$obj2.Quit da passiert nichts.

Ich dachte mit der do Schleife innerhalb der For Schleife
könnte es gehen.

[autoit]

For $i=1 to 3 Step +1

[/autoit]

hier wird doch $i hochgezählt
und dann bei der swf

[autoit]

Do
Until $i = 3; also wenn $i 3 ist wird die swf Schleife beendet!

[/autoit]

das geht leider nicht.

Viele Grüße
Ilse

Ilse

ich kann die SWF Datei einfach nicht beenden:

Mein Code

[autoit]

Case $btnsuche
For $i=1 to 3 Step +1

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

; DIE FLASH ANIMATION--------------------------------------
;$gui2 = GUICreate("Flash-GUI", 1000, 800, Default, Default, 0x80000000)
$obj2 = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$test2 = GUICtrlCreateObj($obj2, 100,100,800,600)
With $obj2
.Movie = @ScriptDir & "\flash2.swf" ; Pfad zur SWF
.wmode = "transparent" ; Transparenz was nicht funktioniert

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

EndWith
GUISetState()

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

Do
Until $i = 3 ; sollte also bei 3 beendet werden
; Ende der FLASH ANIMATION--------------------------------------

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

; hier kommt der eigentliche Code der Schleife
; es funktioniert alles bis auf die Animation

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

$WebAnzeiger = IniRead($openini, "Link", $i, "NotFound")
;
next
MsgBox(4,"Beendet","Ende") ; hier sollte die Flash Animation beendet werden .
;GUIDelete() ; das löscht die kpl. Gui
;GUIDelete($obj2) ; das geht auch nicht!

[/autoit]

...ich komme einfach nicht mehr weiter
kann jetzt nicht mehr klar denken!

Schade daß man den Hintergrund der swf nicht transparent bekommt.
Gibt es dafür eine Lösung?

Ilse

Ilse

ich hab's jetzt irgendwie zu laufen gebracht!
Merci.

Eine Frage noch

[autoit]

$obj2 = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$test2 = GUICtrlCreateObj($obj2, 100,100,100,100)
With $obj2
.Movie = @ScriptDir & "\flash1.swf" ; Pfad zur SWF
EndWith
GUISetState()

[/autoit]

$test2

Zitat

also die animation
kann man die irgendwie immer in der Mitte des Fensters anzeigen?

ich habe in der Hilfe nichts gefunden. Center...oder so etwas

Was noch komisch ist,

Zitat

Das Internetfenster (also der Hintergrund) wird von der Flash Datei
verwischt! Sieht nicht sonderlich elegant aus.

Ich habe den do until Loop entfernt,
bin also in der For Schleife drin
wie kann ich die Flash animation
wenn die For Schleife fertig ist, beenden?

[autoit]

;$gui2 = GUICreate("Flash-GUI", 300, 300, Default, Default, 0x80000000)

[/autoit]

das mußte ich deaktivieren.
Es gibt also keine Gui die animation läuft auf dem IE Fenster
und muß beendet werden, wenn die Schleife fertig ist. Huh...

Beiträge von Ilse

Dia Show Bilder laden

Dia Show Bilder laden

Dia Show Bilder laden

Dia Show Bilder laden

Slider Werte beim Schieben direkt anzeigen

Slider Werte beim Schieben direkt anzeigen

ie Dropdownliste

Slider einrasten lassen

ie Dropdownliste

ie Dropdownliste

Slider einrasten lassen

SplashImageOn Animation

SplashImageOn Animation

SplashImageOn Animation

SplashImageOn Animation

SplashImageOn Animation

SplashImageOn Animation

SplashImageOn Animation

SplashImageOn Animation

SplashImageOn Animation