Beiträge von RR04

Hallo, das Control erst in einer Funktion erstellen ist ungünstig.

Func AddListview()
GUICtrlCreateLabel("test", 400,400,100,25)
EndFunc

; schon erstelltes LabelControl in der GUI
$myLabel = GUICtrlCreateLabel("", 400,400,100,25)

Func AddListview()
GUICtrlSetData($myLabel, "test")
EndFunc

Wer Adobe Photoshop CS2 kostenlos bekommen möchte, sollte hier zugreifen!

Creative Suite 2
Photoshop CS2
InDesign CS2
Illustrator CS2
Acrobat Pro 8.0
Acrobat Pro 7.0
Acrobat Standard 7.0

http://www.adobe.com/de/downloads/cs2_downloads/index.html

Zitat:
"Nachdem die Creative Suite 2 für mehr als einen Monat ohne Einschränkung inklusive Seriennummer zum Download stand, hat Adobe auf der entsprechenden Seite nun doch einen Hinweistext eingefügt, der in deutlichen Signalfarben die Nutzung einschränkt, und außerdem das offizielle Statement dazu geändert; allerdings ohne auf die Änderung hinzuweisen." Zitat Ende
Quelle:
http://www.heise.de/newsticker/mel…in-1794761.html

Hi, hier mal eine andere Möglichkeit.
Schöne Feiertage !

Opt("GUIOnEventMode", 1)
Global $c = 580
#region ### START Main GUI section ###
$hGUI = GUICreate("Haupt-Fenster", 405, 150, $c, 322)
GUISetOnEvent(-3, "CLOSEClicked")
$Button = GUICtrlCreateButton("Button", 72, 24, 233, 81)
GUICtrlSetOnEvent(-1, "OKButton")
GUISetState(@SW_SHOW, $hGUI)
#endregion ### START Main GUI section ###

#region ### START Dialog GUI section ###
$hGuiDlg = GUICreate("Dialog-Fenster", 200, 77, $c + 10, 91)
GUISetOnEvent(-3, "CLOSEClicked")
$Label1 = GUICtrlCreateLabel("Hello", 32, 8, 100, 56)
GUICtrlSetFont(-1, 35, 400, 0, "MS Sans Serif")
#endregion ### START Dialog GUI section ###

While Sleep(1000)
WEnd

Func OKButton()
GUISetState(@SW_SHOW, $hGuiDlg)
EndFunc ;==>OKButton

Func CLOSEClicked()
Switch @GUI_WinHandle
Case $hGUI
Exit
Case $hGuiDlg
GUISetState(@SW_HIDE, $hGuiDlg)
EndSwitch
EndFunc ;==>CLOSEClicked
; Ende

Hi,
sehr schöne Idee, guter Ansatz.
Hier darf man auf die Folgeversionen gespannt sein !

Schöne Feiertage !

Hi, hier ein weiteres Beispiel.

$title = "TabSwitch - Tut"
Global $tate = 0, $TabSheet[2]
GUICreate($title, 600, 450)
$button = GUICtrlCreateButton($title, 10, 10, 200, 25)
$bnClose = GUICtrlCreateButton($title & " Beenden", 390, 10, 200, 25)
$Tab = GUICtrlCreateTab(10, 50, 580, 390)
$TabSheet[0] = GUICtrlCreateTabItem("TabItem 1")
GUICtrlCreateButton("Button 1", 72, 168, 121, 22)
$TabSheet[1] = GUICtrlCreateTabItem("TabItem 2")
GUICtrlCreateLabel("Label 1", 40, 88, 36, 17)
GUICtrlCreateInput("Input 1", 96, 80, 73, 21)
GUICtrlCreateLabel("Label 2", 40, 112, 36, 17)
GUICtrlCreateInput("Input 2", 96, 112, 73, 21)
GUISetState(@SW_SHOW)

While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3, $bnClose
MsgBox(64, $title, "Viel Spaß wünscht RR04 !" & @TAB, 3)
ExitLoop
Case $button
$tate = BitXOR($tate, 0, 1)
For $k = 0 To 1 ;i statisch kein Ubound
GUICtrlSetState($TabSheet[$tate], 16)
GUICtrlSetData($button, "Wechseln zu TabItem " & BitXOR($tate, 0, 1) + 1)
Next
EndSwitch
WEnd
; Ende

Hier mal ein Link und bis in 22 Tagen !
http://www.informit.de/books/c++21/data/start.htm

Hi!
Warum nicht verodern?

#include <GuiComboBoxEx.au3>
#include <WinAPI.au3>

Global $tate = @SW_SHOW

$hGUI = GUICreate("ComboBoxEx: Setzen der Imagelist", 400, 300)
$hCombo = _GUICtrlComboBoxEx_Create($hGUI, "", 2, 2, 394, 100)
$how = GUICtrlCreateButton("Show / Hide", 10, 50, 80, 22)
GUISetState()

While True
$msg = GUIGetMsg()
Switch $msg
Case -3; = $GUI_EVENT_CLOSE
ExitLoop
Case $how
$tate = BitXOR($tate, @SW_HIDE, @SW_SHOW)
_WinAPI_ShowWindow($hCombo, $tate)
EndSwitch
WEnd
; Ende

Hi!

Soll der Wert nur angezeigt werden, dann ist vielleicht auch StringFormat eine Möglichkeit.

Hi, vielleicht ist hier was für Dich bei?
Zum Thema:
The Stick
The Stick

Hi,
das ist soweit auch richtig. Nun kommt es auf Deine jeweilige Funktion an, also die Eingaben EINLESEN, SCHREIBEN oder VERGLEICHEN.

IniRead-IniWrite - Tut

Hier eine Lösung mit Array.

Willkommen und viel Spaß hier!
Hi, hier mal ein Vorschlag.
Tipp:
Versuche Deinen Variablen einen sprechenden Namen zugeben, dann ist das Script für Dich übersichtlicher ($Button1 umbenenen in $btnScan sprich: $ Button Scan).

#region ### START Koda GUI section ###
$StartForm = GUICreate("Fast Open Sec", 293, 96, 284, 328)
GUISetBkColor(0xA6CAF0)
$Button1 = GUICtrlCreateButton("Scan", 128, 8, 75, 25)
GUICtrlSetState(-1, 128);$GUI_DISABLE
$Radio1 = GUICtrlCreateRadio("Kurz", 8, 24, 113, 17)
GUICtrlSetState(-1, 128);$GUI_DISABLE
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio2 = GUICtrlCreateRadio("Vollständig", 8, 48, 113, 17)
GUICtrlSetState(-1, 128);$GUI_DISABLE
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Progress1 = GUICtrlCreateProgress(8, 72, 150, 17)
$Button2 = GUICtrlCreateButton("Back To FO", 128, 32, 75, 25)
$Button3 = GUICtrlCreateButton("Close", 200, 8, 75, 25)
$Button4 = GUICtrlCreateButton("Homepage", 200, 32, 75, 25)
GUICtrlSetState(-1, 128);$GUI_DISABLE

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

#region ### START SwitchLoop section ###
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button3, -3 ;$GUI_EVENT_CLOSE
ExitLoop
Case $Button2
Run("C:\Users\Nico\Desktop\Start\FO.exe")
;Run("C:\Benutzer\Nico\Desktop\Start\FO.exe")
EndSwitch
WEnd
#endregion ### START SwitchLoop section ###
; Ende

#include <ComboConstants.au3>
;~ #include <GUIConstantsEx.au3> ;$GUI_EVENT_CLOSE

#region ### START Koda GUI section ###
$Form1_1 = GUICreate("Form1", 615, 438, 193, 122)
$GO = GUICtrlCreateButton("GO", 528, 384, 81, 49)
$Combo1 = GUICtrlCreateCombo("1", 160, 40, 137, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "1|2|3")
$Combo2 = GUICtrlCreateCombo("Auswahl 1", 8, 40, 137, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData($Combo2, "Auswahl 1|Auswahl 2")
$input1 = GUICtrlCreateInput("", 8, 104, 289, 21)
$Name = GUICtrlCreateLabel("designed by Kassi", 480, 8, 108, 17)
$Label1 = GUICtrlCreateLabel("Auswahl", 8, 16, 107, 17)
$Label2 = GUICtrlCreateLabel("Produktart", 160, 16, 53, 17)
$Label3 = GUICtrlCreateLabel("Eingabefeld für Auswahl 1", 8, 80, 365, 17)
$input2 = GUICtrlCreateInput("", 8, 176, 121, 21)
$Label4 = GUICtrlCreateLabel("Eeingabefeld für Auswahl 2", 8, 144, 434, 17)

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;$GUI_EVENT_CLOSE
ExitLoop
Case $GO ;hier bestimmst du welcher button in diesem fall eben button1
$auswahlvar2 = GUICtrlRead($Combo2)
Switch $auswahlvar2
Case "Auswahl 1"
;~ Run("CMD", "C:\temp\") ; ist "C:\temp" oder "C:\tmp" vorhanden !?

Case "Auswahl 2"
Run("CMD", "C:\")

EndSwitch
ExitLoop
EndSwitch
WEnd
; Ende

Hi, hier noch eine weitere Lösung.

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
;#include <GUIConstantsEx.au3> ;$GUI_EVENT_CLOSE

#region ### START Koda GUI section ### Form
GUICreate("Test", 250, 200)
$Label1 = GUICtrlCreateLabel("Label 1", 24, 16, 36, 17)
$Label2 = GUICtrlCreateLabel("Label 2", 24, 40, 36, 17)
$Label3 = GUICtrlCreateLabel("Label 3", 24, 64, 36, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("Label 4", 24, 96, 36, 17)
$Label5 = GUICtrlCreateLabel("Label 5", 24, 128, 36, 17)
$Label6 = GUICtrlCreateLabel("Label 6", 24, 160, 36, 17)
$Button = GUICtrlCreateButton("Button", 104, 96, 75, 25)
$Input = GUICtrlCreateInput("Input", 96, 40, 121, 21)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;$GUI_EVENT_CLOSE
ExitLoop
Case $Button
$string = GUICtrlRead($Input)
Switch $string
Case "Farbe"
GUICtrlSetBkColor($Label3, 0x00FF00)
Case Else
GUICtrlSetBkColor($Label3, 0xFF0000)
EndSwitch
EndSwitch
WEnd
; Ende

Chris
1. Wie schreibt man etwas in einen Button, was nicht von den Button des TRechners kommt ?
Siehe in Post #12 Zeile 41, Kickass verwendet einen Button als Display (Inputfeld) !!

$Result = GUICtrlCreateButton($textresult, 56, 8, 281, 25)

Hi !
1. Wie schreibt man etwas in einen Button, was nicht von den Button des TRechners kommt ?
Siehe in Post #12 Zeile 41, Kickass verwendet einen Button als Display (Inputfeld) !!

$Result = GUICtrlCreateButton($textresult, 56, 8, 281, 25)

2. besser so:

;i besser so:
$Eingabe = InputBox('Eingabe','Rechnung:')
;i bei error und cancel beenden
If @error Then Exit
;i den Punkt beachten (2.5*2 =5 und nicht 50 !!)
$Ergebnis = Execute(StringRegExpReplace($Eingabe,'[^\.\*\/\-\+\d]',''))
If $Ergebnis == "1.#INF" Or $Ergebnis == "-1.#IND" Then $Ergebnis = "Error"
MsgBox(0,'',$Ergebnis)
Exit
; Ende

#region - GUI Create
GUICreate("Division durch 0 !")
$ipt = GUICtrlCreateInput("345/0", 10, 10)
$btn = GUICtrlCreateButton("rechnen", 10, 40, 75, 22)
#endregion - GUI Create

GUISetState(@SW_SHOW)

#region - Switchloop
While True
$msg = GUIGetMsg()
Switch $msg
Case -3
ExitLoop
Case $btn
;i hier wird das Eingabefeld ausgelesen und gerechnet
$result = Execute(GUICtrlRead($ipt))
;i ist das Resultat 1.#INF oder "-1.#IND
;i dann den Variableninhalt mit Error überschreiben
If $result == "1.#INF" Or $result == "-1.#IND" Then $result = "Error"
;i den Variableninhalt in das Inputfeld einsetzen
GUICtrlSetData($ipt, $result)
EndSwitch
WEnd
#endregion - Switchloop
; Ende

Kein Problem, immer wieder gern.

So wird jede Datei einzeln im Fehlerfall ausgegeben. Der Nutzer bekommt auch eine Info, wo die Datei fehlt (Pfadangabe) . Weiterhin sind die Bilder schon deklariert und können im weiteren Verlauf angesprochen werden !

;i Die Existenz der notwendigen Basisdateien abfragen
Dim $data = @ScriptDir & "/patchskin/"
Dim $array[3] = ["main.bmp", "btn_startgame_up.bmp", "btn_startgame_fs.bmp"]
For $i = 0 To 2 ;i statisch kein Ubound
If Not FileExists($data & $array[$i]) Then Exit _
MsgBox(262144 + 16, 'Error ', $data & $array[$i] & @CRLF & @CRLF & "File Not Found ! ")
Next
; Ende

Hi,
Version und Datum in
Post #5 Zeile 25