Hallo Leute,
in meinem Code soll durch eine Funktion erst überprüft werden, ob Label vorhanden sind. Wenn ja, soll er alle löschen und wenn nicht mit dem Code weiter machen. Aber wenn ich per MsgBox prüfe, ob das funktioniert, ist irrgendwo ein Fehler.
Vielen Dank ihm vorraus
C
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <AutoItConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Nummer suchen", 300, 300, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Ueberschrift = GUICtrlCreateLabel("Name", 16, 16, 48, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
$Input = GUICtrlCreateInput("", 16, 40, 249, 28)
GUICtrlSetFont(-1, 12, 800, 0, "Arial Narrow")
$Button1 = GUICtrlCreateButton("Suchen", 16, 72, 81, 33)
GUICtrlSetFont(-1, 12, 800, 2, "Arial Narrow")
GUICtrlSetOnEvent($Button1, "SuchenButton")
GUISetState(@SW_SHOW)
GUICtrlSetState(-1, 512)
While 1
Sleep(100)
WEnd
Func Form1Close()
exit
EndFunc
Func SuchenButton()
If IsDeclared("Label1") Then
MsgBox(0, "test", "test")
Else
MsgBox(0, "test2", "test2")
EndIf
$Pfad = "callers.inf"
$z = 0
$i = 0
$y = 0
$Ergebnis = 1
$eingabe = GUICtrlRead($Input)
Dim $Name[10000]
Dim $Number[10000]
; führe Schleife solange durch bis Rückgabewert von $Ergebnis = IniRead($Pfad, "#" & $i, "Name", "0") gleich 0 (0 bedeutet es gibt keine Sektionen mehr)
While $Ergebnis <> "0"
$Ergebnis = IniRead($Pfad, "#" & $i, "Name", "0")
If(StringInStr($Ergebnis, $eingabe) <> 0) Then
$Name[$y] = IniRead($Pfad, "#" & $i, "Name", "0")
$Number[$y] = IniRead($Pfad, "#" & $i, "Number", "0")
$y = $y + 1
$i = $i + 1
Else
$i = $i + 1
EndIf
WEnd
; Variable für Position Label, später nach jedem Durchlauf + 20 Pixel
$p = 0
; Variable für Anzahl Durchgänge (als Vergleichsoperator zu $y), $y = wieviele Durchgänge gibts überhaupt (bzw. stellen im array)
$o = 0
While $o < $y
Assign("Label" & $o, GUICtrlCreateLabel($o & " - " & $Name[$o] & ", Telefon: " & $Number[$o], 10, 120 + $p, 250 ,80))
$o = $o + 1
$p = $p + 20
WEnd
EndFunc
Alles anzeigen