Danke
Hoffe mal, dass genauso viele Tipper beim Bundesliga-Tippspiel am Start sind
Danke
Hoffe mal, dass genauso viele Tipper beim Bundesliga-Tippspiel am Start sind
Ah ok, gar nicht gewusst, dass es das bei GUISetOnEvent gibt.
Wieder was dazugelernt
Ich habe eine GUI. Dort verstecke ich einen Button.
Wie kann man verhindern, dass man per Drag & Drop eine Datei auf den versteckten Button ziehen kann?
Klar könnte man abfragen, ob der button versteckt ist.
Dies würde allerdings nicht klappen, wenn ich 2 Button übereinander liegen habe und immer einen von beiden verstecke.
#Region ;************ Includes ************
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPISysWin.au3>
#EndRegion ;************ Includes ************
Opt("GUIOnEventMode", 1)
Global $hGui = GUICreate("test", 150, 200, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $idButton_1 = GUICtrlCreateButton("Button 1", 10, 10, 60, 30)
Global $idButton_2 = GUICtrlCreateButton("Button 2", 10, 60, 60, 30)
Global $idButton_beenden = GUICtrlCreateButton("Beenden", 10, 110, 60, 30)
Global $idLabel = GUICtrlCreateLabel("", 80, 35, 50, 35)
GUISetState(@SW_SHOW)
Sleep(2000)
GUICtrlSetState($idButton_1, $GUI_HIDE + $GUI_NODROPACCEPTED)
GUIRegisterMsg($WM_DROPFILES, "On_WM_DROPFILES")
GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")
GUICtrlSetOnEvent($idButton_beenden, "_beenden")
While 1
Sleep(10)
WEnd
Func On_WM_DROPFILES($hWnd, $msg, $wParam, $lParam)
Local $aFileList, $nSize, $pFileName, $tPoint, $hCtrl
$tPoint = _WinAPI_DragQueryPoint($wParam)
If Not DllStructGetSize($tPoint) Then Return ;window border
$hCtrl = _WinAPI_ChildWindowFromPointEx($hWnd, $tPoint)
If $hCtrl = ControlGetHandle($hGui, "", $idButton_1) Then
GUICtrlSetData($idLabel, "Button 1")
ElseIf $hCtrl = ControlGetHandle($hGui, "", $idButton_2) Then
GUICtrlSetData($idLabel, "Button 2")
EndIf
_WinAPI_DragFinish($wParam)
_WinAPI_MessageBeep(0) ;Ton erzeugen
Return
EndFunc ;==>On_WM_DROPFILES
Func _beenden()
Exit
EndFunc ;==>_beenden
Alles anzeigen
Hi,
es gibt eine neue Version der deutsch / englischen Hilfe für AutoIt 3.3.16.1.
Deutsche Offlinehilfe (Hilfe / au3.api / Beispiele)
Deutsche Onlinehilfe
Schaut euch die Hilfe bitte genau an.
Fehler könnt ihr dann hier melden.
Gibt es eine deutsche Funktionsbeschreibung, so wird diese direkt angezeigt und man kann man durch das Flaggen-Symbol rechts oben von deutsch auf englisch umstellen.
Gibt es noch keine deutsche Funktionsbeschreibung so wird direkt die englische Funktionsbeschreibung angezeigt.
In der offline-Version gibt es 2 Farbversionen. 1x normal und 1x DarkMode
Diese Dateien können hier übersetzt werden.
Danke an alle Übersetzer und Helfer.
Viel Spaß damit
---------------
Ich hoffe, Tweaky liest hier mit.
Nein mache ich nicht .
Aber schreibt einfach hier rein was ich genau wie ändern soll. Ich übernehms dann 1:1.
sollte passen
Mit _FileReadToArray() einlesen und dann mit StringLen() jede Zeile zählen.
Hast du zufällig eine Lösung gefunden?
Danke euch beiden.
Um zu prüfen, ob es Änderungen gibt verwende ich nun:
Dies funktioniert.
Um die Anzahl zu zählen verwende ich folgendes:
_SQLite_Query(..., "select count(*) from cookies", $hQuerys)
_SQLite_FetchData($hQuerys, $sOut)
Dies funktioniert soweit auch.
Allerdings kann ich anschließend den Ordner, in dem sich die sql-Datei befindet, nicht löschen.
_SQLite_Startup()
$hSqlite = _SQLite_Open(...)
_SQLite_Query($hSqlite, "select count(*) from moz_historyvisits", $hQuerys) ;hier liegt das Problem
_SQLite_FetchData($hQuerys, $sOut)
_SQLite_Close($hSqlite)
_SQLite_Shutdown()
DirRemove(..., 1) ;Dies funktioniert nicht
MsgBox(0,0,0)
Es liegt am Befehl "_SQLite_Query".
Erst wenn ich die MsgBox bestätige (also das Skript komplett beendet ist), kann ich den Ordner löschen.
Warum?
Ich habe SQLite doch korrekt beendet.
OK das ist wirklich übersichtlicher.
Kann ich es herausfinden, ob denn was gelöscht wurde?
Kann ich herausfinden, wie viele Einträge verhanden sind?
Hatte vergessen zu erwähnen, dass die Kriterien von 2 Spalten geprüft werden müssen.
Deshalb habe ich es so gemacht.
#include <Array.au3>
Global $aExceptions[4][2], $sAusnahme_func
$aExceptions[1][0] = 1
$aExceptions[1][1] = 2
$aExceptions[2][0] = 5
$aExceptions[2][1] = 50
$aExceptions[3][0] = 6
$aExceptions[3][1] = 9
;~ _ArrayDisplay($aExceptions)
For $w = 1 To UBound($aExceptions) - 1
If $w <> 1 Then $sAusnahme_func &= " AND "
$sAusnahme_func &= '(' & 'name <> ' & '"' & $aExceptions[$w][0] & '"' & " OR host_key <> " & '"' & $aExceptions[$w][1] & '"' & ')'
Next
Local $sSQL = '"DELETE FROM moz_historyvisits where ' & $sAusnahme_func & '"'
ConsoleWrite($sSQL & @CRLF)
Alles anzeigen
Oder habt ihr eine einfachere Lösung?
Ok daran habe ich auch schon gedacht.
Dachte es gibt vielleicht eine Möglichkeit: Zeilenweise durchlaufen und dann prüfen ob die Bedinungen erfüllt sind.