1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. BugFix

Beiträge von BugFix

  • Toollbox

    • BugFix
    • 28. August 2006 um 19:09

    Hi DJMANU,

    du mußt ja wirklich viel Zeit haben :)

    Dein Proggi ist nicht schlecht. Doch da ich sowieso bewegungsresistent (manche sagen faul dazu) bin, habe ich mein Windoof schon so eingerichtet, dass ich jeden Punkt der Systemsteuerung mit 2 Mausklicks öffnen kann:
    In der Taskleiste <Symbolleiste> <Neu> "Arbeitsplatz" . Dann hast du direkten Zugriff (auf alle Arbeitsplatzelemente).
    s. Screenshot

    Bilder

    • Taskbar.jpg
      • 8,99 kB
      • 330 × 49

    Dateien

    SysMenu.jpg 162,9 kB – 0 Downloads
  • Toollbox

    • BugFix
    • 27. August 2006 um 22:38

    muh_kuh

    Zum Thema CD-Laufwerke öffnen schau mal in den Thread.

    Da hast du eine recht komfortable Lösung.

  • Inputfeld als password

    • BugFix
    • 27. August 2006 um 17:32

    GtaSpider :

    Habs grad mal getestet, wenn du Passwordstyle so setzt (oder von Anfang an definierst mit Style $ES_PASSWORD):

    Code
    Const $EM_SETPASSWORDCHAR = 0xCC
    Const $PasswordChar = Asc("*")
    
    
    GUICtrlSendMsg($Input_1, $EM_SETPASSWORDCHAR, $PasswordChar, -1)

    dann kannst du den Inhalt des Inputfeldes auch nicht rauskopieren ( STRG+C und ClipGet() ). Da erhältst du nur Müll.

  • Wie arbeiten mit GUICtrlSendMsg ( ) ?

    • BugFix
    • 27. August 2006 um 15:54

    Oh Danke, du machst mich glücklich ;)

  • markieren mit einem klick

    • BugFix
    • 27. August 2006 um 15:00
    Zitat

    oder geht das, das ein feld von anfang an markiert ist

    Wenn es das zuerst definierte Control in der GUI ist, hat es automatisch den Fokus beim Start.
    Ist im Inputfeld Text enthalten, so ist er auch gleich komplett markiert.

    Edit:
    Oder du setzt den Fokus bei Programmstart:

    Code
    GUICtrlSetState($Input_1, $GUI_FOCUS)
  • Wie arbeiten mit GUICtrlSendMsg ( ) ?

    • BugFix
    • 27. August 2006 um 10:57

    Ja, Danke!
    Den API-Viewer hatte ich auch gefunden - aber z.Zt. kann ich grad nix downloaden (mein Fuchs spinnt) daher weiß ich noch nicht was schönes drin ist :) .


    Edit:

    Also den API Viewer hab ich nun. Aber wahrscheinlich bin ich zu blöd, das Teil zu bedienen.
    Ich kann mir zwar Typen, Konstanten, Deklarationen für 10 verschiedene Sprachen anschauen - wie finde ich aber hier den HEX-Wert.
    Geb ich im Suchfeld "EM_SETPASSWORDCHAR" findet er das nicht. (Geöffnet ist die Win32api)

    Also falls du meinen Horizont etwas erweitern könntest, wär ich dir dankbar.

  • Wie arbeiten mit GUICtrlSendMsg ( ) ?

    • BugFix
    • 26. August 2006 um 20:31

    Ich mach zu dem Thema jetzt mal nen separaten Thread auf.
    Wir hatten ja hier schon damit begonnen.

    Die allg. Syntax lautet ja: GUICtrlSendMsg ( controlID, msg , wParam, lParam )
    In allen Beispielen, die ich dazu gefunden habe wird die Funktion immer so verwendet:

    Global Const $NAME = HEX-Wert ; msg
    GUICtrlSendMsg( controlID, $NAME , 1, 0 )

    Hier mal ein Beispiel mit: Set ReadOnly (Ein/Aus)

    Code
    #include <GuiConstants.au3>
    Global Const $R_ONLY = 0xCF
    
    GuiCreate("MyGUI", 392, 323,-1, -1)
    $Input_1 = GuiCtrlCreateInput("", 110, 80, 190, 50)
    $b_ein = GUICtrlCreateButton("Read only ein", 20, 20)
    $b_aus = GUICtrlCreateButton("Read only aus", 120, 20)
    GuiSetState()
    While 1
    	$msg = GuiGetMsg()
    	Select
    	Case $msg = $GUI_EVENT_CLOSE
    		ExitLoop
    	Case $msg = $b_ein
    ; Read Only ein
        GUICtrlSendMsg($Input_1, $R_ONLY, 1, 0)
    	Case $msg = $b_aus
    ; Read Only aus
        GUICtrlSendMsg($Input_1, $R_ONLY, 0, 0)
    	EndSelect
    WEnd
    Exit
    Alles anzeigen

    Woher bekomme ich aber den notwendigen HEX-Wert ? Gibt es dafür irgendwo eine Übersicht ?

    Edit:

    So, ich habe nun mal stundenlang gegoogelt und mich durch Foren und Anleitungen gelesen.
    Fazit:
    In anderen Sprachen (VBA, Delphi) kann ich die Message-ID bei SendMessage( ) genauso senden, wie bei Microsoft deklariert (z.B. Edit-Control-Message: "EM_SETPASSWORDCHAR"). Aber in Autoit geht das leider nicht so. Da brauch ich diesen 'blöden' HEX-Wert. :weinen:

  • Inputfeld als password

    • BugFix
    • 26. August 2006 um 19:25

    Eine Möglichkeit ist wahrscheinlich noch:

    Zitat

    GUICtrlSendMsg ( controlID, msg , wParam, lParam )

    Gibt den Wert zurück, der von der SendMessage Windows API zurückgegeben wurde (siehe Microsoft-Dokumentation).

    In der MS-Doku habe ich dazu folgendes gefunden:

    Zitat

    lResult = SendMessage
    ( // returns LRESULT in lResult
    (HWND) // handle to destination
    hWndControl, control
    (UINT)
    EM_SETPASSWORDCHAR, // message ID
    (WPARAM) wParam, // = (WPARAM) () wParam;
    (LPARAM) lParam // = 0; not used, must be zero
    );

    Alles anzeigen


    Wie das auf die Funktion anzuwenden ist, ist mir (noch) nicht klar. Habe GUICtrlSendMsg noch nie genutzt. Die Hilfe ist dabei auch nicht sehr nützlich.

    Aber vielleicht hat ja jemand damit schon experimentiert.

    Edit:

    Hab jetzt mal ein paar Beispiele ausprobiert. Man benötigt in jedem Fall den Hex-wert der Message. Aber nirgendwo schreibt jemand, wie man die findet :(

  • Inputfeld als password

    • BugFix
    • 26. August 2006 um 18:10

    Die Frage von Analyzer ist natürlich berechtigt.

    Grundsätzlich ist es möglich (und manchmal auch sinnvoll) den Style eines Controls dynamisch zu ändern.
    Ich hab mal das englische Forum durchforstet. Die haben ebenfalls bemerkt, dass GUICtrlSetStyle() nur auf einige Contrlos angewendet werden kann.
    Leider habe ich noch keine Auflistung der möglichen Controls gefunden.

  • Inputfeld als password

    • BugFix
    • 26. August 2006 um 17:37

    Versuchs damit:

    Code
    GUICtrlSetStyle($kennwort, $ES_PASSWORD)

    oder

    Code
    GUICtrlSetStyle($kennwort, $ES_READONLY)

    Edit: Pee mal wieder schneller :)

    Edit #2:
    Tatsächlich - es geht nicht. Habs mal bei anderen Elementen (Liste) probiert. Auch dort ist SetStyle wirkungslos.

    Einzige, wenn auch etwas umständliche Alternative:

    Code
    GUICtrlDelete($kennwort)
    $kennwort = GUICtrlCreateInput("", 460, 20, 100, 20, $ES_PASSWORD)
    
    
    ; zurück auf DefaultStyle:
    
    
    GUICtrlDelete($kennwort)
    $kennwort = GUICtrlCreateInput("", 460, 20, 100, 20)


    Das funktioniert dann wenigstens.

  • Toollbox

    • BugFix
    • 26. August 2006 um 10:38

    @DJMANU

    Hi, nochmals eine Bitte:
    Nicht nur den Code als Datei anhängen, sondern auch im Thread zum Anschauen hinterlegen.
    Es gibt vieles, dass mich interessiert. Aber ich möchte nicht erst alles herunterladen um es mir anzuschauen. Einfacher ist es, wenn ich mir den Code im Thread ansehe und dann sagen kann: Yeah, das isses! - Das ist besser als die eigene Lösung oder so.
    Also sei doch in Zukunft so nett - ja? ;)

  • Simples Install programm :)

    • BugFix
    • 21. August 2006 um 20:49

    Hi,
    kleiner Tipp:
    Poste den Code mit. Ich persönlich bin viel zu faul erst downzuloaden. ;)

  • Handling Forum

    • BugFix
    • 20. August 2006 um 22:21

    Hi,
    ich hab folgende Probleme/ Wünsche.

    1. Ich würde gern dauerhaft in der Portalansicht die Anzahl der sichtbaren Beiträge ändern. Nach neuem Start sind es jedoch immer wieder 10. :)

    2. Beim Öffnen der Such-Funktion landet man bei den Suchoptionen ('Suche in allen Foren' markiert), Textmarke?
    Um den Suchbegriff einzugeben muß ich hochscrollen.
    Wenn ich aber die Suche in einem neuen Tab/Fenster öffne, startet die Suchseite völlig normal.

    Das wars erstmal ;)

  • Fenster maximieren

    • BugFix
    • 20. August 2006 um 21:56

    Warum soll eine Funktion innerhalb des Codes definiert werden?
    Nein, soweit ich weiß gehts nicht - wozu auch.

  • Fenster maximieren

    • BugFix
    • 20. August 2006 um 21:48

    Bischen unklar, was du willst. Poste mal etwas Code.
    Meinst du sowas:

    Code
    If <Bedingung> Then
        _Funktion()
    EndIf
  • FileWrite in Word

    • BugFix
    • 20. August 2006 um 21:39

    Hier zumindest die HEX-Code Farbtabelle. Verwendung, wie von Markus beschrieben.

  • SitzungsProtokolle "automatisch" schreiben?!

    • BugFix
    • 20. August 2006 um 21:32

    Ich hab eine Zeit lang betriebliche Abrechnungen, Bestandsverwaltung etc. ausschließlich mit Word realisiert. Ist zwar schon 'ne Weile her - aber an einiges kann ich mich noch erinnern.
    Textmakros sind das Einfachste. Kurze Texte lassen sich schon ganz simpel in der Autovervollständigen-Funktion einbringen. Für lange Sachen werden eigene Makros angelegt.
    Ich weiß nicht, ob du dich schon mal mit VBA beschäftigt hast. Damit kannst du dir z. B. Schaltflächen anlegen und bei Klick wird alle abgehakten Punkte deiner To-Do-Liste in die Erledigt-Liste verschoben.
    Da Word eh verwendet wird und dort VBA implementiert ist, würde ich die Arbeit damit ausführen.

  • ordner rekursiv auslesen?

    • BugFix
    • 20. August 2006 um 18:51

    Etwas schneller läßt sich das mit "_FileListToArray()" aus der Beta erledigen.

    Code
    #Include <File.au3>
    #Include <Array.au3>
    $FileList=_FileListToArray("C:\")
    If (Not IsArray($FileList)) and (@Error=1) Then
        MsgBox (0,"","No Files\Folders Found.")
        Exit
    EndIf
    _ArrayDisplay($FileList,"$FileList")
  • Cookies??? Existieren die auch wenn Sie abgelaufen sind?

    • BugFix
    • 20. August 2006 um 16:52

    Da ich den IE nicht verwende ( auch nicht testweise :muah: ), kann ich dir nur etwas theoretisch antworten.
    Da die Cookieverwaltung Bestandteil des Browsers ist, muß dieser natürlich erstmal starten um zu wissen, was er tun oder nicht tun soll. Denn ein Cookie, das beim letzten Betrieb des Browsers noch aktuell war kann ja inzwischen abgelaufen sein.
    Aber was willst du eigentlich machen? Cookieverwaltung brauchst du doch nun wirklich nicht selbst übernehmen.

  • FAQ

    • BugFix
    • 20. August 2006 um 16:33

    Voraussetzung: Beta

    Hallo,
    ich habe hier eine GUI erstellt, an der man die grundlegenden Operationen in einer Liste testen kann. Zu jedem Vorgang wird gleich der ausgeführte Code mit angezeigt.
    Ich denke, das ist verständlicher als die Programmierbeispiele in der Hilfe.
    Es sind noch längst nicht alle möglichen Funktionen eingebunden. Das werde ich mal bei Gelegenheit komplettieren.

    EDIT 09.02.2009 Da ich mal wieder zufällig hier reingeschaut habe, fällt mir auf, dass hier noch aktuell gedownloadet wird. Jedoch gibt es die GuiList.au3 und deren Befehle in der aktuellen Version nicht mehr. Jedoch ist das Prinzip auch auf die GuiListBox.au3 anwendbar.


    Spoiler anzeigen
    Code
    #include <GUIConstants.au3>
    #Include <GuiList.au3>
    
    
    Dim $anzahl, $currPosIndex, $inPos
    Global $i
    $Test_Listbox = GUICreate("Test Listbox-Funktionen", 629, 512, -1,-1)
    $List1 = GUICtrlCreateList("", 40, 40, 217, 240, -1, BitOR( $LBS_MULTIPLESEL, $WS_EX_CLIENTEDGE))
    $bPrev = GUICtrlCreateButton("Markiere Vorigen Eintrag", 280, 40, 320, 22, $BS_LEFT)
    $bNext = GUICtrlCreateButton("Markiere Nächsten Eintrag", 280, 70, 320, 22, $BS_LEFT)
    $bAdd = GUICtrlCreateButton("Addiere Eintrag aus <Eingabefeld>", 280, 100, 320, 22, $BS_LEFT)
    $bDel = GUICtrlCreateButton("Lösche Markierten Eintrag", 280, 130, 320, 22, $BS_LEFT)
    $bPosMark = GUICtrlCreateButton("Markiere Eintrag an <Pos.:>", 280, 160, 320, 22, $BS_LEFT)
    $bPosIns = GUICtrlCreateButton("Einfügen String aus <Eingabefeld> an <Pos.:>", 280, 190, 320, 22, $BS_LEFT)
    $bSelString = GUICtrlCreateButton("Sucht und Markiert String aus <Eingabefeld>", 280, 220, 320, 22, $BS_LEFT)
    $bReplString = GUICtrlCreateButton("Ersetzt Eintrag an <Pos.:> mit String aus <Eingabefeld>", 280, 250, 320, 22, $BS_LEFT)
    $lbEntry = GUICtrlCreateLabel( "Eingabefeld",200,286,77,17)
    $iEntry = GUICtrlCreateInput("", 280, 283, 245, 21, -1, $WS_EX_CLIENTEDGE)
    $lbPos = GUICtrlCreateLabel("Pos.:", 540, 286, 28, 17)
    $iPos = GUICtrlCreateInput("", 572, 283, 28, 21, -1, $WS_EX_CLIENTEDGE)
    $lDeclare = GUICtrlCreateList("",40,314,560,190)
    For $i = 1 To 5
    	GUICtrlSetData($List1, "Entry"&$i)
    Next
    _GUICtrlListSelectIndex($List1, 2)
    GUISetState(@SW_SHOW)
    
    
    While 1
    	$msg = GuiGetMsg()
    	Select
    	Case $msg = $GUI_EVENT_CLOSE
    		ExitLoop
    	Case $msg = $bPrev
    		_Text1()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		If $anzahl > 1  And $currPosIndex > 0 Then
    			_GUICtrlListSelectIndex($List1, $currPosIndex - 1) ; Markierung Element an Index
    			GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex - 1)) ; Abfragen Eintrag an Index
    			GUICtrlSetData($iPos, $currPosIndex)
    		EndIf
    	Case $msg = $bNext
    		_Text2()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		If $anzahl > 1  And $currPosIndex < $anzahl - 1 Then
    			_GUICtrlListSelectIndex($List1, $currPosIndex + 1) ; Markierung Element an Index
    			GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex + 1)) ; Abfragen Eintrag an Index
    			GUICtrlSetData($iPos, $currPosIndex + 2)
    		EndIf		
    	Case $msg = $bDel
    		_Text3()
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		_GUICtrlListDeleteItem($List1, $currPosIndex)          ; Löschen Eintrag an Index
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))  ; Abfragen Eintrag an Index
    		GUICtrlSetData($iPos, $currPosIndex + 1)
    		_GUICtrlListSelectIndex($List1, $currPosIndex)         ; Markierung Element an Index
    	Case $msg = $bAdd
    		_Text4()
    		If GUICtrlRead($iEntry) <> "" Then
    			_GUICtrlListAddItem($List1, GUICtrlRead($iEntry))  ; Eintrag addieren
    			$anzahl = _GUICtrlListCount($List1)                ; Anzahl Listenelemente
    			For $i = 0 To $anzahl - 1
    				If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then 
    					_GUICtrlListSelectIndex($List1, $i)            ; Markierung Element an Index
    					GUICtrlSetData($iPos, $i + 1)
    					ExitLoop
    				EndIf
    			Next
    			GUICtrlSetData($iEntry, "")
    		EndIf
    	Case $msg = $bPosIns
    		_Text5()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$inPos = GUICtrlRead($iPos)
    		If $anzahl > 2 And $inPos <= $anzahl +1  And GUICtrlRead($iEntry) <> "" Then
    			_GUICtrlListInsertItem($List1, GUICtrlRead($iEntry), $inPos - 1)  ; Einfügen Eintrag an Index
    			For $i = 0 To $anzahl ; $anzahl ist um 1 erhöht, daher jetzt $anzahl = Index-max
    				If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then
    					_GUICtrlListSelectIndex($List1, $i)            ; Markierung Element an Index
    					ExitLoop
    				EndIf
    			Next			
    			GUICtrlSetData($iEntry, "")
    		EndIf
    	Case $msg = $bPosMark
    		_Text6()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$inPos = GUICtrlRead($iPos)
    		If $inPos <= $anzahl Then
    			_GUICtrlListSelectIndex($List1, $inPos - 1)        ; Markierung Element an Index
    			$currPosIndex = _GUICtrlListGetCaretIndex($List1)  ; Index des markierten Elementes
    			GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))  ; Inhalt des markierten Elementes 
    		EndIf
    	Case $msg = $bSelString
    		_Text7()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		If GUICtrlRead($iEntry) <> "" Then
    			For $i = 0 To $anzahl - 1
    				If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then 
    					_GUICtrlListSelectIndex($List1, $i)            ; Markierung Element an Index
    					GUICtrlSetData($iPos, $i + 1)
    					ExitLoop
    				EndIf
    			Next			
    		EndIf
    	Case $msg = $bReplString
    		_Text8()
    		$inPos = GUICtrlRead($iPos)
    		If GUICtrlRead($iEntry) <> "" Then
    			_GUICtrlListReplaceString($List1, $inPos - 1, GUICtrlRead($iEntry))  ;Eintrag an Index mit anderem Eintrag ersetzen
    			_GUICtrlListSelectIndex($List1, $inPos - 1)            ; Markierung Element an Index
    			GUICtrlSetData($iEntry, "")
    		EndIf
    	EndSelect
    WEnd
    Exit
    #region
    Func _Text1()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                 ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                         ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"03: If $anzahl > 1  And $currPosIndex > 0 Then")
    	GUICtrlSetData($lDeclare,"04:     _GUICtrlListSelectIndex($List1, $currPosIndex - 1)                                      ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:     GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex - 1))     ; Inhalt Element an Index")
    	GUICtrlSetData($lDeclare,"06:     GUICtrlSetData($iPos, $currPosIndex)")
    	GUICtrlSetData($lDeclare,"07: EndIf")
    EndFunc	
    
    
    Func _Text2()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                 ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                         ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"03: If $anzahl > 1  And $currPosIndex < $anzahl - 1 Then")
    	GUICtrlSetData($lDeclare,"04:     _GUICtrlListSelectIndex($List1, $currPosIndex + 1)                                     ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:     GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex + 1))    ; Inhalt Element an Index")
    	GUICtrlSetData($lDeclare,"06:     GUICtrlSetData($iPos, $currPosIndex + 2)")
    	GUICtrlSetData($lDeclare,"07: EndIf")	
    EndFunc
    
    
    Func _Text3()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                    ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"02: _GUICtrlListDeleteItem($List1, $currPosIndex)                                            ; Löschen Eintrag an Index")
    	GUICtrlSetData($lDeclare,"03: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                    ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"04: GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))         ; Inhalt Element an Index")
    	GUICtrlSetData($lDeclare,"05: GUICtrlSetData($iPos, $currPosIndex + 1)")
    	GUICtrlSetData($lDeclare,"06: _GUICtrlListSelectIndex($List1, $currPosIndex)                                          ; Markierung Element an Index")
    EndFunc
    
    
    Func _Text4()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                    ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: If GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"03:    _GUICtrlListAddItem($List1, GUICtrlRead($iEntry))                           ; Eintrag addieren")    
    	GUICtrlSetData($lDeclare,"04:   For $i = 0 To $anzahl - 1")
    	GUICtrlSetData($lDeclare,"05:      If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then      ; Eintrag an Index ermitteln u. vergleichen")
    	GUICtrlSetData($lDeclare,"06:         _GUICtrlListSelectIndex($List1, $i)                                              ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"07:         GUICtrlSetData($iPos, $inPos + 1)")
    	GUICtrlSetData($lDeclare,"08:         ExitLoop")
    	GUICtrlSetData($lDeclare,"09:      EndIf")
    	GUICtrlSetData($lDeclare,"10:   Next")
    	GUICtrlSetData($lDeclare,"11:   GUICtrlSetData($iEntry, "")")    
    	GUICtrlSetData($lDeclare,"12: EndIf")
    EndFunc
    
    
    Func _Text5()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                        ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $inPos = GUICtrlRead($iPos)")
    	GUICtrlSetData($lDeclare,"03: If $anzahl > 2 And $inPos <= $anzahl +1  And GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"04:    _GUICtrlListInsertItem($List1, GUICtrlRead($iEntry), $inPos - 1)                           ; Einfügen Eintrag an Index")
    	GUICtrlSetData($lDeclare,"05:    For $i = 0 To $anzahl")
    	GUICtrlSetData($lDeclare,"06:       If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then                         ; Eintrag an Index ermitteln")
    	GUICtrlSetData($lDeclare,"07:          _GUICtrlListSelectIndex($List1, $i)                                                                 ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"08:          ExitLoop")
    	GUICtrlSetData($lDeclare,"09:       EndIf")
    	GUICtrlSetData($lDeclare,"10:    Next")	
    	GUICtrlSetData($lDeclare,"11:    GUICtrlSetData($iEntry, "")")
    	GUICtrlSetData($lDeclare,"12: EndIf")
    EndFunc
    
    
    Func _Text6()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                           ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $inPos = GUICtrlRead($iPos)")
    	GUICtrlSetData($lDeclare,"03: If $inPos <= $anzahl Then")
    	GUICtrlSetData($lDeclare,"04:    _GUICtrlListSelectIndex($List1, $inPos - 1)                                             ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:    $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"06:    GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))     ; Inhalt Elemente an Index")
    	GUICtrlSetData($lDeclare,"07: EndIf")
    EndFunc
    
    
    Func _Text7()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                   ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: If GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"03:    For $i = 0 To $anzahl")
    	GUICtrlSetData($lDeclare,"04:       If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then                    ; Eintrag an Index ermitteln")
    	GUICtrlSetData($lDeclare,"05:          _GUICtrlListSelectIndex($List1, $i)                                                            ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"06:          GUICtrlSetData($iPos, $i + 1)")
    	GUICtrlSetData($lDeclare,"06:          ExitLoop")
    	GUICtrlSetData($lDeclare,"07:       EndIf")
    	GUICtrlSetData($lDeclare,"08:    Next")	
    	GUICtrlSetData($lDeclare,"09: EndIf")
    EndFunc
    
    
    Func _Text8()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $inPos = GUICtrlRead($iPos)")
    	GUICtrlSetData($lDeclare,"02: If GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"03:    _GUICtrlListReplaceString($List1, $inPos - 1, GUICtrlRead($iEntry))        ; Element an Index mit Eintrag ersetzen")
    	GUICtrlSetData($lDeclare,"04:    _GUICtrlListSelectIndex($List1, $inPos - 1)                                              ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:    GUICtrlSetData($iEntry, "")")
    	GUICtrlSetData($lDeclare,"06: EndIf")
    EndFunc
    #endregion
    Alles anzeigen

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™