okidoki, danke für die Tips, aber war ja auch nen Denkfehler von mir, wenn der Pfad ziemlich lang is, kann er ja nicht wissen wo er trennen soll, Oscar das werde ich auch mal probieren
Danke und schönen Abend noch
chris
okidoki, danke für die Tips, aber war ja auch nen Denkfehler von mir, wenn der Pfad ziemlich lang is, kann er ja nicht wissen wo er trennen soll, Oscar das werde ich auch mal probieren
Danke und schönen Abend noch
chris
okidoki, wie gesagt ist 21:9
HJab das ganze Problem jetzt noch mal isoliert und die Variable $file gefakt. So sieht man das Problem deutlicher
#include <WinAPI.au3>
$file = "C:\Users\Administrator\Downloads\Aufgaben\Datei"
$TwipsX = _WinAPI_TwipsPerPixelX()
$FontHight = 14
;Korrekturfaktor damit der Text ins Fenster passt (experimentell ermitteln...)
$CF = 25
; Fenster z.B.: im 16:9 Kinoformat ;)
$SpW= 16 * $CF / $TwipsX * $FontHight
$SpH= 9 * $CF / $TwipsX * $FontHight
SplashTextOn("Bitte warten", "" & $file & " wurde geschieben ",$SpW,$SpH, -1, -1, 21, "", $FontHight)
sleep(5000)
Alles anzeigen
Ja klar, gibbet überhaupt noch 4:3 Monitore
sag ja das es nicht funktioniert, zumnidest mit Variable
Wie gesagt, wenn ich einen reinen langen Text reinhänge ohne &file dann macht er es, schaut natürlich nen bisl blöd aus
Hallo , und danke erst einmal
Moombas, das siehht auf den ersten Blick gut aus, handelt es sich um einen statischen text, sobald da aber eine Pfad Varible mit verwurstet wird, ist das Problem wieder da
local $TwipsX = _WinAPI_TwipsPerPixelX()
local $FontHight = 10
;Korrekturfaktor damit der Text ins Fenster passt (experimentell ermitteln...)
local $CF = 25
; Fenster z.B.: im 16:9 Kinoformat ;)
local $SpW= 16 * $CF / $TwipsX * $FontHight
local $SpH= 9 * $CF / $TwipsX * $FontHight
SplashTextOn("", "Fertig" & $file_ & "wurde gespeichert! ",$SpW,$SpH, -1, -1, 21, "", $FontHight)
Sleep(4000)
SplashOff()
Hallo allerseit,
ich habe mal eine Frage zu Splashtext Boxen. Ist es möglich die Fontgrösse des angezeigten Textes so anzupassen, dass der Text in jedem Falle hineinpasst. Problem, sofern hier vriable Texte, zB Pfade angezeigt werden, wird immer abgeschnitten.
SplashTextOn('', '"Fertig!,"' & $file_ & '"wurde gespeichert!"', 370, 65, -1, -1, $DLG_NOTITLE)
Sleep(4000)
SplashOff()
Leider konnte ich nichts finden, würde mich über einen Tip sehr freuen
lg
Chris
Ok war jetz doch simpler als ich dachte, auch wenn ich meine hatte das auch schon ohne Erfolg probiert. Jedoch sehe ich nicht so ganz den Sinn dahinter, wenn ich doch schon Adlib Register nehme, dass ich sämtliche Variablen noch mal neu setzen muss. Ich nehme es jetzt mal so hin;)
Func CheckAcState()
global $col
_IfWinActivated()
if _IfWinActivated() = "True" Then
$ac = "Der PC ist dauerhaft aktiviert"
global $col = "0xFFFFFF"
GUICtrlSetData($acLabel, $ac)
GUICtrlSetColor($acLabel, $col)
Else
$ac = "Der PC ist nicht aktiviert !!!"
global $col = "0xF00404"
GUICtrlSetData($acLabel, $ac)
GUICtrlSetColor($acLabel, $col)
EndIf
EndFunc;==> $ac
Alles anzeigen
Also Danke noch mal und ein wunderschönes Wochenende
also ich weiss jetzt nicht so ganz worauf du hinauswillst, oder magst du mir sagen das ich $col auch jeweils mir GUICtrlSetData setzen muss?
lg und schönen Abend
Danke erstmal,
ok dann schau ich mal, wegebn der Variablen, die hatte ich erst lokal, und erst testweise geändert.
lg
chris
Hallo liebe Scripter,
heute mal ein hoffe ich doch eher kleineres Problem. Ich bekomme es irgendwie, trotz Adlib Registering nicht hin, einen Farbwechsel des Labels zu realisieren. Grundsätzlich geht es ja, aber nur wenn ich das Script neu starte, also er soll bei nicht Aktivierung rot sein, ansonsten weiss. Den Farbwert scheint er nicht zu aktualisieren. was mache ich falsch?
Schaut so aus:
; includes ---------------------------------------------------------------------
#include-once
#include "Services.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <Constants.au3>
; opt --------------------------------------------------------------------------
Opt('MustDeclareVars', 1)
;declaration ------------------------------------------------------------------
;GUI Variables
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
;System Variables
Global $acLabel
Global $ac = ""
;AdLibRegistering;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AdlibRegister('CheckAcState', 3000)
; processing --------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Test", 840, 610)
;FunctionCalls---------------------------------------------------------------------------------------------------------------------------------------------------
CheckAcState()
_createLabels()
;Main Logic--------------------------------------------------------------------------------------------------------------------------------------------------
While True
CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
local $gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
GUIDelete($hGui)
AdlibUnRegister('CheckAcState')
Exit
EndSwitch
WEnd
;-------------------------------------------------------------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------------------------------------------------------------
Func _createLabels()
$ACLabel = GUICtrlCreateLabel($ac, 600, 560, 250, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 800) ; bold
GUICtrlSetColor(-1, $col) ; red
EndFunc
;-------------------------------------------------------------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------------------------------------------------------------
; AktivierungsStatus----------------------------------------------------------------------------------------------------------------------------------------------
Func CheckAcState()
global $col
_IfWinActivated()
if _IfWinActivated() = "True" Then
$ac = "Der PC ist dauerhaft aktiviert"
global $col = "0xFFFFFF"
GUICtrlSetData($acLabel, $ac)
Else
$ac = "Der PC ist nicht aktiviert !!!"
global $col = "0xF00404"
GUICtrlSetData($acLabel, $ac)
EndIf
EndFunc;==> $ac
Func _IfWinActivated()
Local $sCommand, $iPID, $sData
$sCommand = @ComSpec & ' /c WMIC /NAMESPACE:\\root\CIMV2 PATH SoftwareLicensingProduct WHERE LicenseStatus=1 GET Description, LicenseStatus|findstr "Operating System"'
$iPID = Run($sCommand, @ScriptDir, @SW_HIDE, 0x2)
ProcessWaitClose($iPID)
$sData = StringStripWS(StdoutRead($iPID), $STR_STRIPTRAILING)
Return StringRight($sData, 1) == '1'
EndFunc ;==>_IfWinActivated
;-------------------------------------------------------------------------------------------------------------------------------------------------
;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
;GUICtrlCreatePic('C:\Windows\Temp\hg.jpg', 0, 25, 920, 660)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor($GUIBKCOLOR, $GUI)
;_GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
$RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
$Title &= " "
Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
GUICtrlSetBkColor($hTitle, -2)
Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
GUICtrlSetState($Graphic, $Gui_DISABLE)
;GradientFill($Graphic, 0, 0, $width, 25, $ARRAY_COLOR_TOP_MIN, $ARRAY_COLOR_TOP_MAX)
If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
Return $GUI
EndFunc
Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
Local $cGui = GUIGetCursorInfo($hGui)
If Not IsArray($cGui) Then
Return 0
EndIf
If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
EndFunc
;-------------------------------------------------------------------------------------------------------------------------------------------------
Alles anzeigen
Was mache ich falsch, Danke schon mal
lg
Chris
ok habs gefunden
Local $rFree = Round($free, 2)
Vielen DXank noch Mal
okay, dann hatte ich wohl gedacht er aktualisiert das automatisch wenn ich AdlibRegister nehme, war wohl ein Denkfehler, die Funktion soieht nun so aus:
Func _Testspace()
global $fslabel = ""
Global $free = DriveSpaceFree($drive) / 1024
if $free < 15 Then
;$fslabel = "Drive Space auf System-Laufwerk wird knapp !!!"
GUICtrlSetData($LabelSpace, "freier Speicher auf System wird knapp: " & $free)
else
GUICtrlSetData($LabelSpace, "")
endif
;MsgBox(0, "Drive Free Space For " & $drive, $free)
EndFunc
Alles anzeigen
Nur noch eins kurz, wie kann ich $freeIP auf 2 Nachkommastellen beschneiden
einen schönen Sonnstag noch und Danke
lg
chris
Hey, danke erst mal für Eure Mithilfe,
das mit AdLib Register CreateLabvels war natürlich blödsinn, ist wohl beim isolieren des Teilcodes entstanden, klar dass dann das Label in einer Dauerschleife läuft, also der Code sieht so aus. Dann sollte doch nur noch ein entsprechendes GuiCtrlSetData() fehlen , oder?
Der Code
; includes ---------------------------------------------------------------------
#include-once
#include "Services.au3"
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; opt --------------------------------------------------------------------------
Opt('MustDeclareVars', 1)
;declaration ------------------------------------------------------------------
;GUI Variables
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
global $var_system_drive = StringLeft(@WindowsDir, 2); SystemDrive auslesen
Global Const $drive = StringLeft( $var_system_drive, 3)
global $iFreeSpace = ""
global $fslabel = ""
global $LabelSpace
;AdLibRegistering----------------------------------------------------------------------------------------------
AdlibRegister('_Testspace', 5000)
;--------------------------------------------------------------------------------------------------------------
; processing --------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Test", 840, 610)
;FunctionCalls-------------------------------------------------------------------------------------------------
_Testspace()
_createLabels()
;--------------------------------------------------------------------------------------------------------------
;Main Logic;--------------------------------------------------------------------------------------------------------------
While True
CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
local $gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
GUIDelete($hGui)
AdlibUnRegister('_Testspace')
Exit
Case $labelSpace
global $iFreeSpace = DriveSpaceFree(@HomeDrive & "\")
MsgBox($MB_SYSTEMMODAL, "", "Free Space: " & $Free & " GB")
EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------
Func _createLabels()
$labelSpace = GUICtrlCreateLabel($FSlabel, 150, 340, 350, 150)
GUICtrlSetColor(-1, 0xF00404) ; red
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
EndFunc
;-----------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------
Func _Testspace()
global $fslabel = ""
Global $free = DriveSpaceFree($drive) / 1024
if $free < 21 Then; Schwellwert in GB
$fslabel = "Drive Space auf System-Laufwerk wird knapp !!!"
else
$fslabel = ""
endif
;MsgBox(0, "Drive Free Space For " & $drive, $free)
EndFunc
;----------------------------------------------------------------------------------------------------------------------
;GUI STYLE;--------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
;GUICtrlCreatePic('C:\Windows\Temp\hg.jpg', 0, 25, 920, 660)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor($GUIBKCOLOR, $GUI)
;_GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
$RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
$Title &= " "
Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
GUICtrlSetBkColor($hTitle, -2)
Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
GUICtrlSetState($Graphic, $Gui_DISABLE)
;GradientFill($Graphic, 0, 0, $width, 25, $ARRAY_COLOR_TOP_MIN, $ARRAY_COLOR_TOP_MAX)
If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
Return $GUI
EndFunc
Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
Local $cGui = GUIGetCursorInfo($hGui)
If Not IsArray($cGui) Then
Return 0
EndIf
If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
EndFunc
;-----------------------------------------------------------------------------------------------------------------------
Alles anzeigen
Hallo allerseits,
habe schon wieder mal ein Problem mit der adlibRegister Funktion, keine Ahnung was ich dabei immer vergesse. Ich habe folgendes Problem, ich habe in einem Scipt eine Funktion die ein Label einblenden soll, sobald ein bestimmter Speicherstand erreicht ist auf dem System Laufwerk. Das funktioniert auch, aber er aktualisiert es anscheinend nicht, sieht jemand den Fehler?
; includes ---------------------------------------------------------------------
#include-once
#include "Services.au3"
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; opt ----------------------------------------------------------------------
Opt('MustDeclareVars', 1)
;declaration ------------------------------------------------------------------
;GUI Variables
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
global $var_system_drive = StringLeft(@WindowsDir, 2); SystemDrive auslesen
Global Const $drive = StringLeft( $var_system_drive, 3)
global $iFreeSpace = ""
global $fslabel = ""
global $LabelSpace
;AdLibRegisterg;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AdlibRegister('_createLabels', 5000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; processing --------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Test", 840, 610)
;FunctionCalls---------------------------------------------------------------------------------------------------------------------------------------------------
_Testspace()
_createLabels()
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;Main Logic-------------------------------------------------------------------------------------------------------------------------------------------------------
While True
CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
local $gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
GUIDelete($hGui)
AdlibUnRegister('_createLabels')
Exit
Case $labelSpace
global $iFreeSpace = DriveSpaceFree(@HomeDrive & "\")
MsgBox($MB_SYSTEMMODAL, "", "Free Space: " & $Free & " GB")
EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _createLabels()
$labelSpace = GUICtrlCreateLabel($FSlabel, 150, 340, 350, 150)
GUICtrlSetColor(-1, 0xF00404) ; red
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _Testspace()
global $fslabel = ""
Global $free = DriveSpaceFree($drive) / 1024
if $free < 21 Then; Schwellwert in GB
$fslabel = "Drive Space auf System-Laufwerk wird knapp !!!"
else
$fslabel = ""
endif
;MsgBox(0, "Drive Free Space For " & $drive, $free)
EndFunc
;----------------------------------------------------------------------------------------------------------------------------------------------------------------
;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
;GUICtrlCreatePic('C:\Windows\Temp\hg.jpg', 0, 25, 920, 660)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor($GUIBKCOLOR, $GUI)
;_GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
$RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
$Title &= " "
Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
GUICtrlSetBkColor($hTitle, -2)
Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
GUICtrlSetState($Graphic, $Gui_DISABLE)
;GradientFill($Graphic, 0, 0, $width, 25, $ARRAY_COLOR_TOP_MIN, $ARRAY_COLOR_TOP_MAX)
If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
Return $GUI
EndFunc
Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
Local $cGui = GUIGetCursorInfo($hGui)
If Not IsArray($cGui) Then
Return 0
EndIf
If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Alles anzeigen
Vielen Dank i.V. und
ein schönes Wochenende
Ja richtig, dass meinte ich so Mombi, @MO, doch es funktioniert tatsächlich, das war keinesfalls von mir arrogant gemeint gwesen, ich sehe durchaus den Wert Deines Beitrages mit den Array GUIS, zuächst wirkt es kurz unübersichtlich, aber das relativierts sich dann. Der wesentliche Hauptvorteil scheint auch zusein, dass die Elemente der HauptGUI unterschiedlich benutzbar sind.
Noch mals vielen Dank an alle Helfer
Ok dann bedank ich mich noch mal abschliessend, und wo findet man nun solche essentiellen Erkenntnisse wie, das FileOpen nur Readonly liest?
schönen Abend noch
lf
Chris
Hey cool MOombas dass Du noch dran gedacht hast, irgend wie hatte ich ja schon son Berrechtigungsding befürchtet, aber jetzt funktioniert es.
Recht herzlichen Dank, tut mir echt leid dass ich immer mit so Hammerdingern komme, dachte erst ist bestimmt eher ne simplere Geschichte, wünsche allen Helfern noch eine
angenehme Woche
Oh moment, wurde vorhin aufgehalten, check ich gleich aus;)
2min later...
so jetzt gibbet zumindest nen Lebenszeichen, Datei konnte nicht gespeichert werden...Is doch wie verhext
Dachte doppelt hält besser :)) ne Spaß bei Seite, war beim rumprobieren reingekommen, aber auch einfach gehts nicht
guten Morgen und lg
Chris
So um noch mal auf meine Version zurückzukommen, hier ist eine mit SimpelGUI, warum funktioniert FileWrite nicht, ChexX und sone Scherze können nun ausgeschlossen werden?
; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include "Services.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#include <EditConstants.au3>
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
Global $nMSG
;MAINLOGIC
global $Form1 = GUICreate("TEST GUI", 173, 126, 192, 124)
global $Button1 = GUICtrlCreateButton("Button1", 16, 24, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_form3()
EndSwitch
WEnd
;Form3 Config1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _Form3()
;local $file = FileOpen("C:\Program Files\Mozilla Firefox\confs\firefox_ext.cfg")
local $file = FileOpen("C:\test.txt")
local $Form3 = GUICreate("Subform", 450, 425, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_SIZEBOX,$WS_THICKFRAME)) ;Creates the GUI window
; local $iEdit = GUICtrlCreateEdit(FileRead($file) & @CRLF & "Another Line", 0, 0, 500, 400, $ES_WANTRETURN + $WS_VSCROLL + $ES_AUTOVSCROLL + $ES_MULTILINE + $WS_TABSTOP)
global $iEdit = GUICtrlCreateEdit(FileRead($file), 0, 0, 500, 400, $ES_WANTRETURN + $WS_VSCROLL + $ES_AUTOVSCROLL + $ES_MULTILINE + $WS_TABSTOP)
local $hButton = GUICtrlCreateButton("Speichern", 160, 400, 107, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, $SubBack)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUICtrlSetLimit(-1, 0xFFFFFF)
ControlClick($Form3, "", $iEdit)
GUISetState(@SW_SHOW) ;Shows the GUI window
FileClose($file)
While 2
local $mMsg = GUIGetMsg()
Switch $mMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form3)
GUISetState(@SW_ENABLE, $Form3)
Return
Case $hButton
Filewrite($file, GUICtrlRead($iEdit))
FileWrite($file, GuiCtrlRead($IEdit))
MsgBox(0,"Fertig!","wurde gespeichert!.")
FileClose($file)
EndSwitch
WEnd
EndFunc
Alles anzeigen