Beiträge von autoBert

**autoBert**

Hallo Acanis,

mach es so:

Spoiler anzeigen

[autoit]

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

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

Opt('MustDeclareVars', 1)

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

Example()

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

Func Example()
Local $tab, $tab0, $tab0OK, $tab0input
Local $tab1, $tab1combo, $tab1OK
Local $tab2, $tab2OK, $msg

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

GUICreate("My GUI Tab") ; will create a dialog box that when displayed is centered

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

GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)

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

$tab = GUICtrlCreateTab(10, 10, 200, 100)

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

$tab0 = GUICtrlCreateTabItem("tab0")
GUICtrlCreatePic("123Test.jpg", 10, 30, 200, 70, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GuiCtrlSetState(-1, BitOR($GUI_ONTOP,$GUI_DISABLE))
GUICtrlCreateLabel("label0", 30, 80, 50, 20)
$tab0OK = GUICtrlCreateButton("OK0", 20, 50, 50, 20)
$tab0input = GUICtrlCreateInput("default", 80, 50, 70, 20)

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

$tab1 = GUICtrlCreateTabItem("tab----1")
GUICtrlCreateLabel("label1", 30, 80, 50, 20)
$tab1combo = GUICtrlCreateCombo("", 20, 50, 60, 120)
GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
$tab1OK = GUICtrlCreateButton("OK1", 80, 50, 50, 20)

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

$tab2 = GUICtrlCreateTabItem("tab2")
GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
GUICtrlCreateLabel("label2", 30, 80, 50, 20)
$tab2OK = GUICtrlCreateButton("OK2", 140, 50, 50)

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

GUICtrlCreateTabItem("") ; end tabitem definition

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

GUICtrlCreateLabel("label3", 20, 130, 50, 20)

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

GUISetState()

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

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()

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

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
EndFunc ;==>Example

[/autoit]

wie Raupi schon sagte ist $GUI_DISABLE notwendig, damit du die nderen Controlls ansprechen kannst,

mfg (Auto)Bert

**autoBert**

Hallo Aquaplant,

schau dir einmal Style Problem an,

mfg (Auto)Bert

**autoBert**

Hallo Aquaplant,

ändere einmal wie folgt ab:

[autoit]

;Zeile 9
$iOK1 = DirRemove($Path, 1)
$iOK2 = DirRemove($Pfad, 1)
if ($iOK1 = 1) and ($iOK2) = 1 then MsgBox(0, "Uninstall", "Successful")

[/autoit]

dann erhälts du keine falsche Erfolgsmeldung. Zum eigentlichen Problem: kann es sein dass du (oder ein Programm) eine Datei in einem dieser Pfade sperrst????

mfg Auto)Bert

**autoBert**

Hallo JuraX,

such einmal im Forum Skripte nach Starplayer von Oscar , er benutzt darin Drag' and Drop in einer Listview

mfg (Auto)Bert

**autoBert**

Hallo pete_gzome,

hier mal ein Beispiel zum Einsatz vom _ArraySort (auf deinem Code aus #1 aufbauend)

Spoiler anzeigen

[autoit]

#include <GuiComboBox.au3>
#include <Array.au3>

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

$hGui = GUICreate("Sortieren ....", 300, 250, 10, 10)
$combobox = GUICtrlCreateCombo("", 10, 10, 150, 100)
$hbtnSort = GUICtrlCreateButton("&Sortieren", 200, 10, 80, 20)
$hbtnExit = GUICtrlCreateButton("Be&enden", 200, 50, 80, 20)
For $I = 5 To 1 Step -1
_GUICtrlComboBox_AddString($combobox, " " & $I)
Next
For $I = 6 To 9
_GUICtrlComboBox_AddString($combobox, " " & $I)
Next
For $I = 20 To 10 Step -1
_GUICtrlComboBox_AddString($combobox, $I)
Next

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

GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $hbtnSort Then
$filesArray = _GUICtrlComboBox_GetListArray($combobox)
_ArrayDisplay($filesArray)
$uBound = UBound($filesArray)
_ArraySort($filesArray, 0, 1)
_ArrayDisplay($filesArray)
_GUICtrlComboBox_BeginUpdate($combobox)
_GUICtrlComboBox_ResetContent($combobox)
For $I = 1 To $uBound - 1
_GUICtrlComboBox_AddString($combobox, $filesArray[$I])
Next
_GUICtrlComboBox_EndUpdate($combobox)
EndIf
If $msg = $hbtnExit Then Exit
WEnd

[/autoit]

mfg Auto)Bert

**autoBert**

Hallo

Zitat von Acanis

Weiss jemand warum? (Script kann ich nicht posten, weil ich da sau viele spez. Includes und auch Bilder und sowas drin habe...)

Dann mache ein allgemein gehaltenes Beispiel-Skript, in dem der/die Fehler/Effekte auch vorkommen,

mfg (Auto)Bert

**autoBert**

Zitat von L3viathan2142

Wozu?

Damit die Funktion ordnungsgemäss deregistriert wird,

mfg (Auto)Bert

**autoBert**

Hallo Aquaplant,

Zitat von Aquaplant

Achso, dachte das Gui anzuzeigen gibt schon einen Fehler.
Damit das immer aktualisiert wird musst du es mit in die While-Schleife schreiben Das sieht aber nicht so schön aus, weil der Wert dann immer flackert, deshalb würde ich die Adlibfunktion nehmen:

Spoiler anzeigen

[autoit]
AdLibRegister("Aktualisieren", 100)
[/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]
Func Aktualisieren()
$Sliderstatus = GUICtrlRead($Slider1)
GUICtrlSetData($slots, $Sliderstatus)
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]

So gehts
EDIT: Adlibregister findest du so (noch) nicht in der Hilfe, sondern Adlibenable

Alles anzeigen

wenn schon mit AdLibRegister dann aber auch AdLibUnregister also die Schleife so:

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
AdLibUnRegister("Aktualisieren")
Exit
EndSwitch
WEnd

[/autoit]

Geht aber auch ohne Adlib und ohne flackern:

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Slider1
GUICtrlSetData($slots, GUICtrlRead($Slider1))
EndSwitch
WEnd

[/autoit]

Zitat

EDIT: Adlibregister findest du so (noch) nicht in der Hilfe, sondern Adlibenable

In der aktuellen Original- (Englisch) Fassung sehr wohl,

mfg (Auto)Bert

**autoBert**

Hallo Aquaplant,

schau mal auf den 2. Parameter:

Zitat

aus der dt. Hilfe: function [optional] Der Name der aufzurufenden Funktion. Wird der Parameter nicht angegeben, wird der vorher gesetzte HotKey gelöscht.

mfg (Auto)Bert

**autoBert**

Zitat von Oscar

@All: Ich danke euch für die vielen Glückwünsche. Und wieder ein Jahr älter, aber mit AutoIt zu programmieren macht mir immer noch Spaß, was natürlich auch an diesem tollen Forum und seinen Usern liegt. Auf ins nächste Jahr...

Noch dazu habe ich jetzt 2 Wochen Urlaub. Einfach mal ausruhen...

Nanu? Was habe ich denn besonderes getan?

Sehr tolle Skripte eingestellt vor allem zu TreeView und ListView konnte ich darin viel lernen, danke

mfg (Auto)Bert

**autoBert**

Hallo Xenobiologist,

du solltest nach Zeile 39 noch abfragen ob $a_Buf ein Array ist

[autoit]

$a_Buf = StringRegExp($s_Buf, "\\\\([0-9a-zA-Z-]*)", 3) ;Zeile 39
if not IsArray($a_Buf) then Return ;Skript steigt sonst in der nächsten Zeikle aus wenn $a_Buf kein Array ist
ReDim $n_IP[UBound($a_Buf) ]

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Oscar,

wie immer ein tolles Script . Benötigt bei mir ca. 9 s zum einlesen von c:\ bis ich eine Auswagl machen darf, im Vergleich dazu beim Aufruf von _GUICtrlTreeView_CreateDirectory($hTreeView, "c:\") vergehen ca 410 s. Toller Zeitgewinn,

mfg (Auto)Bert

**autoBert**

Hallo Conan10,

siehe meinen Post (#8) zeitgleich mit deinem letzten,

mfg (Auto)Bert

**autoBert**

Hallo Conan10,

hier mal ein kleines Skript mit 2 verschiedenen Ansätzen, der 1. ist aus dem Link den @Leon gepostet hat und ist im 1. Label , der zweite von mir im 2. Label zu sehen,

Spoiler anzeigen

[autoit]

AdlibRegister('_MoveMarquee', 100)
AdlibRegister('_Laufschrift', 100)

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

Global $iPos = 0, $sText = 'Das ist der Text, der immer wieder durchläuft! Viel Spass damit!'

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

Global $mygui = GUICreate('my gui', 200, 100)
Global $myl = GUICtrlCreateLabel($sText, 0, 10, 150, 30)
Global $myl2 = GUICtrlCreateLabel($sText, 10, 50, 180, 15)
GUISetState()
While GUIGetMsg() <> -3
WEnd
AdlibUnRegister('_MoveMarquee')
AdlibRegister('_Laufschrift')

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

Func _MoveMarquee()
Local $aCpos = ControlGetPos($mygui, '', $myl)
If $aCpos[0] >= 200 Then $aCpos[0] = 0
ControlMove($mygui, '', $myl, $aCpos[0] + 10, $aCpos[1])
EndFunc

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

Func _Laufschrift()
GUICtrlSetData($myl2,StringMid($sText,$iPos) & " " & $sText)
$iPos = $iPos +1
if $iPos > StringLen($sText) Then $iPos = 0
EndFunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Halo qixx,

schau dir einmal die Hilfe zu _GUICtrlListView_FindText an,

mfg (Auto)Bert

**autoBert**

Hallo Kleiner27,

ich habe mir dein Tool kurz angeschaut, gelungen .
Du könntest aber die Func WMI_Display wie folgt ändern:

[autoit]

Func WMI_Display()
If $b <> 0 Then
_GUICtrlListView_DeleteAllItems($hLVHandle)
For $i = $b To 0 Step -1
_GUICtrlListView_DeleteColumn($hLVHandle, $i)
Next
EndIf
$a = WMI_Comand(GUICtrlRead($comB))
$b = UBound($a, 2)
For $i = 0 To UBound($a, 2) - 1
_GUICtrlListView_AddColumn($hLVHandle, $a[0][$i], 100)
Next
_ArrayDelete($a, 0)
_GUICtrlListView_AddArray($SYS, $a)
For $i = 0 To UBound($a, 2) - 1 ;<=== ab hier
_GUICtrlListView_SetColumnWidth($SYS, $i, $LVSCW_AUTOSIZE)
Next ;<=== bis hier eingefügt
EndFunc ;==>WMI_Display

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Conan10,

nein für Laufschrift gibt es keinen Style, du kannst dies aber über eine Func (zusammen mit AdLib und GuiCtrlSetData) realisieren,

mfg (Auto)Bert

**autoBert**

Hallo Conan10,

Zitat

ein Freund von mir hat sich gefragt, ob es möglich wäre, den $PBS_Marquee-Style der Progressbar für Label mit zu langen Text nutzen kann. Halt, dass es irgendeine Style gibt, der das ermöglicht.

Dann frage ihn bitte wie soetwas aussehen soll (übersteigt meine Vostellungskraft)
Danach kannst du es ja uns erklären,

mfg (Auto)Bert

**autoBert**

Hallo Baron1977,

schau dir mal das Skript in diesem Post oder diesesan.

Rdit: 2. Link ausgewechselt
mfg (Auto)Bert

**autoBert**

Hallo Zero2q,

schau dir einmal die Chatbox-UDF von unserem heutigen (18.01.2009) Geburtstagskind ( Oscar ) an,

mfg (Auto)Bert

Beiträge von autoBert

Button legt sich über TAB-Sheet

Gui lässt sich nicht scrollen

Ordner löschen klappt nicht ganz

playliste erstellen

Sortieren ist VERBUGGT!

Button legt sich über TAB-Sheet

Slider mit Prozent/Zahlenangabe

Slider mit Prozent/Zahlenangabe

Hotkeyset Tastenkombi durchlassen

Oscar hat Geburtstag.

Alle Netzwerk Pcs anzeigen

Treeview FileExplorer

Label $PBS_Marquee

Label $PBS_Marquee

ListView - 2 Fragen

WMI.au3 - WMI-Display.au3

Label $PBS_Marquee

Label $PBS_Marquee

Hilfe eine einfache Progressbar erstellt mit Koda

ICQ nachbildung