Beiträge von autoBert

**autoBert**

Hallo Jans16,

du must den Fortschrittsbalken mit dem Stil $PBS_MARQUEE erzeuen. Hier noch ein kleines Skript dazu:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Global Const $PBS_MARQUEE = 0x08

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

$main = GUICreate("test", 464, 56, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE,"GUI_CLOSE")
$Progress = GUICtrlCreateProgress(8, 8, 446, 17,$PBS_MARQUEE)
$statLabel = GUICtrlCreateLabel("Status: ", 8, 32, 446, 17)
GUISetState(@SW_SHOW)

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

_GUICtrlProgressSetMarquee($Progress)

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

GUICtrlSetData($statLabel,"Status: TrayTip 1 wird angezeigt!")
TrayTip("test","123",1)
Sleep(2000)
TrayTip("","",1)
GUICtrlSetData($statLabel,"Status: TrayTip 1 wurde angezeigt!")
Sleep(700)
GUICtrlSetData($statLabel,"Status: Fertig!")
_GUICtrlProgressSetMarquee($Progress,0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

Func GUI_CLOSE()
Exit
EndFunc ;==>GUI_CLOSE

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

;===============================================================================
;
; Function Name: _GUICtrlProgressSetMarquee()
; Description: Sets marquee sytle for a progress control
; Parameter(s): $h_Progress - The control identifier (controlID)
; $f_Mode - Optional: Indicates whether to turn the marquee mode on or off
; 0 = turn marquee mode off
; 1 = (Default) turn marquee mode on
; $i_Time - Optional: Time in milliseconds between marquee animation updates
; Default is 100 milliseconds
; Requirement(s): AutoIt3 Beta and Windows XP or later
; Return Value(s): On Success - Returns whether marquee mode is set
; On Failure - Returns 0 and sets @ERROR = 1
; Author(s): Bob Anthony
;
;===============================================================================
;
Func _GUICtrlProgressSetMarquee($h_Progress, $f_Mode = 1, $i_Time = 100)

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

Local Const $WM_USER = 0x0400
Local Const $PBM_SETMARQUEE = ($WM_USER + 10)

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

Local $var = GUICtrlSendMsg($h_Progress, $PBM_SETMARQUEE, $f_Mode, Number($i_Time))
If $var = 0 Then
SetError(1)
Return 0
Else
SetError(0)
Return $var
EndIf

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

EndFunc ;==>_GUICtrlProgressSetMarquee

[/autoit]

und das Beispiel aus der Hilfe dabei den 2. auf endlos geändert

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

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

Opt('MustDeclareVars', 1)

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

Example()

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

Func Example()
Local $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m

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

GUICreate("My GUI Progressbar", 220, 100, 100, 200)
$progressbar1 = GUICtrlCreateProgress(10, 10, 200, 20)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
$progressbar2 = GUICtrlCreateProgress(10, 40, 200, 20, $PBS_MARQUEE);;Zeile ist gegenüber Original geändert
$button = GUICtrlCreateButton("Start", 75, 70, 70, 20)
GUISetState()

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

$wait = 20; wait 20ms for next progressstep
$s = 0; progressbar-saveposition
Do
$msg = GUIGetMsg()
If $msg = $button Then
GUICtrlSetData($button, "Stop")
For $i = $s To 100
If GUICtrlRead($progressbar1) = 50 Then MsgBox(0, "Info", "The half is done...", 1)
$m = GUIGetMsg()

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

If $m = -3 Then ExitLoop

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

If $m = $button Then
GUICtrlSetData($button, "Next")
$s = $i;save the current bar-position to $s
ExitLoop
Else
$s = 0
GUICtrlSetData($progressbar1, $i)
GUICtrlSetData($progressbar2, 1) ;Zeile ist nötig und gegenüber Original geändert
Sleep($wait)
EndIf
Next
If $i > 100 Then
; $s=0
GUICtrlSetData($button, "Start")
EndIf
EndIf
Until $msg = $GUI_EVENT_CLOSE
EndFunc ;==>Example

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo

Zitat von JuraX

wäre toll wenn jemand das machen könnte

in der Jobbörse sollte mn eientlich auch eine Gegenleistung anbieten,

mfg (Auto)Bert

**autoBert**

Hallo Freaky,

Zitat von Freaky

Danke, die UDF ist einfach klasse.
Nur meien Tabs sind leider rechts und nicht oben
Was jetz ?

Das war aber anhand deines Beispiel-Skriptes nicht zu erkennen.
Du könntest

die UDF selbst anpassen
warten bis sie jemand anderes ( funkey) anpasst
mit HilfsGuis arbeiten und diese bei Bedarf ein- und ausblenden (siehe Tab in Tab

mehr fällt mir hierzu im Moment nicht ein,

mfg (Auto)Bert

**autoBert**

Hallo Freaky,

du könntest dir auch einmal Eigenes Tab-Register (OwnTab-UDF) von funkey anschauen, damit sollte es einfacher zu lösen sein,

mfg (Auto)Bert

**autoBert**

Hallo Freaky,

ist doch logisch, dass ein disabled Control keine Aktion auslösen kann. Wird imho auch nicht benötigt, denn wenn der Anwender nichts eingeben darf, muss er auch nicht wissen was er hier eineben soll. Nichts, das erkennt er ja schon am Status. Wenn du es unbedingt möchtest musst du dir einen Workaround ala onHover
schreiben,

mfg (Auto)Bert

**autoBert**

Hallo Jautois,

nettes Proramm zum fit bleiben (evtl. noch Zeit vorgeben, danach ungelöst=falsch).
Allerdings gibt es ein Prob beim anzeigen der Erebnisse, dies kann aber auch mit meiner INet-Verbindung zusammenhängen (TMobile derzeit 8 KB/s down).
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Edit: weiterere Versuch hat geklappt, danach kam es aber noch einmal vor

mfg (Auto)Bert

**autoBert**

Hallo nuts,

muss mich nach einem weiteren Test korrigieren, bei MultiIcons wird nicht automatisch das 1. genommen sondern ist von der Grösse des aufnehmenden Controls abhängig:

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 600, 0, 0)
$iconpath = @ScriptDir &"\dll\Icons"
$Icon1 = GUICtrlCreateIcon($iconpath & "\Stop2.ico", -1, 128, 48, 256, 256, BitOR($SS_NOTIFY,$WS_GROUP)); 256 soll gezeigt werden
$Icon2 = GUICtrlCreateIcon($iconpath & "\Stop2.ico", -2, 128, 248, 128, 128, BitOR($SS_NOTIFY,$WS_GROUP)); 128 soll gezeigt werden
$Icon3 = GUICtrlCreateIcon($iconpath & "\Stop2.ico", -4, 128, 448, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP)); 32 soll gezeigt werden

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

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]

EndSwitch
WEnd

[/autoit]

mfg (Auto) Bert

**autoBert**

Hallo xp_fan,

auf dieser Seite findest du viele Links zu Java-Literatur,

mfg (Auto)Bert

**autoBert**

Hallo

Zitat von Mrx

Ich meine das von AutoBert

hier ist es:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>

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

$Form1 = GUICreate("Form1", 416, 236, 193, 125)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 402, 176,BitOr($ES_WANTRETURN,$ES_READONLY)); wenn readonly wegelassen wird kann der Benutzer noch nachträlich ändern
$Button1 = GUICtrlCreateButton("Button1", 111, 203, 75, 25, 0)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$TextToStrip = FileRead("t45.txt")
$StripedText = StringReplace($TextToStrip, '"', '')
GUICtrlSetData($Edit1, $StripedText)
EndSwitch
WEnd

[/autoit]

Edit: sehe gerade hat schon ein sehr anschauliches Beispiel gepostet, naja dafür liest meines eine TXT-Datei ein ud stript diese,

mfg (Auto)Bert

**autoBert**

Hallo nuts,

hier einmal ein Beispiel, wofür der 2. Parameter benutzt werden kann:

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 600, 0, 0)
$iconpath = @ScriptDir &"\dll\Icons"
$Icon1 = GUICtrlCreateIcon($iconpath & "\Stop.icl", -1, 128, 48, 128, 128, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon2 = GUICtrlCreateIcon($iconpath & "\Stop.icl", -2, 128, 248, 128, 128, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon3 = GUICtrlCreateIcon($iconpath & "\Stop.icl", -3, 128, 448, 128, 128, BitOR($SS_NOTIFY,$WS_GROUP))

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

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]

EndSwitch
WEnd

[/autoit]

bei Multiicons, wird meines Erachtens nach immer das 1. genommen und in AutoIt skaliert (hoffe Oscar oder ein anderer Mod korrigiert mich, falls ich unrecht habe). Bei Iconlibraries kann man den 2 Parameter verwenden,

mf (Auto)Bert

**autoBert**

Hallo mikexmagic,

du kannst doch einen Ping auf deinen DC machen, antwortet er nicht beendest du das Skript,

mfg (Auto)Bert

**autoBert**

Hallo

Zitat von Kijan

Ich hab nen Eigenes Gui gemacht und da will ich sachen hin und herziehen...

In deinem eigenen Skript kannst du doch mit GuiCtrlRead und GuiCtrlSetData die Daten direkt zuweisen, was unproblematischer ist.
Poste doch einml dein Skript und erkläre, welche Daten von wo nach wo sollen,

mfg (Auto)Bert

**autoBert**

Hallo Faweyr,

nimm doch einfach SQlite-Admin

mf (Auto)Bert

**autoBert**

Hallo MichaelKl,
hier noch ein Beispiel dazu.
Startproram mit AutoIt (da kein VB):

[autoit]

run(@ScriptDir & "\prog.exe test1 test2")

[/autoit]

eigentliches AutoIt-Prog:

[autoit]

If $CmdLine[0] = 0 Then
MsgBox(0, "Parameter", "ohne!", 5)
Exit
Else
For $i = 1 To $CmdLine[0]
MsgBox(0, "Parameter", $CmdLine[$i], 5)
Next
EndIf

[/autoit]

zm testen must du das 2. kompilieren,

mfg (Auto)Bert

**autoBert**

Hallo Styrx,

du solltest noch deine Kartensammlun anhängen. @BuFix hat im Forum folgendes Skriptbeispiel Spielkarten gepostet, allerdings einen ganz anderen Lösungsansatz mit GDI+,

mfg (Auto)Bert

**autoBert**

Hallo Styrx,

zu einem durch die Reihenfolge des createns, nachträlich mit

[autoit]

guictrlsetstate[$pic[$i],$GUI_ONTOP

[/autoit]

mf (Auto)Bert

**autoBert**

Hallo MrX,

GuiCtrlSetData Das EditControl mit den Styles: $ES_MULTILINE, $ES_WANTRETURN createn

mfg (Auto)Bert

**autoBert**

Hallo retrokid,

schau dir auch einmal Textdatei per WinHttp.au3 downloaden an,

mfg (Auto)Bert

**autoBert**

Halo TJF,

überprüfe doch einmal die ButtonID des Paste-Buttons (-3 ????) und schau dir einmal die Hilfe zu Enum an,

mf (Auto)Bert

**autoBert**

Hallo chip,

das Skript funktioniert einwandfrei. Habe ein anderes jpg-Bild genommen,

mfg (Auto)Bert

Beiträge von autoBert

Endloser Fortschrittsbalken

updater

Tab & Tabsheet Problem

Tab & Tabsheet Problem

GUICtrlSetTip macht Probleme

KopfrechenTrainer v.0.2

Icon in Gui einbauen - Wie funktioniert das genau?

Java-Tutorial

" Löschen

Icon in Gui einbauen - Wie funktioniert das genau?

ObjCreate("ADSystemInfo") Fehler ohne AD

Drag & Drop Background

Daten abspeichern!

.exe aufruf mit Parameter

Wie ordnet man überlappende Controls an?

Wie ordnet man überlappende Controls an?

" Löschen

bild aus dem internet in ein gui

Button - Paste führt zum Programmende

GUI Bild wird nicht angezeit