Zeichen-Eingabe in Echtzeit zählen.

windowstyle %windowstyle | $200 // Dialogfensterstil
cls


var handle hMEdit = create("MultiEdit", %hWnd, "", 10, 10, 200, 200)
var handle hAnzahl = create("Text", %hWnd, "0", 10, 220, 50, 14)
var integer ende = 0


subclass hMEdit, 1 // Subclassing für das Multiedit einschalten


subclassproc
  if subclassmessage(hMEdit, $0101, 0, 0) // Wenn im Multiedit eine Taste losgelassen wird (WM_KEYUP)
    setmenuitem 3000                      // Den Befel 3000 auslösen, der das Waitinput unerbricht
  endif 
endproc


whilenot ende
  waitinput
  if %key = 2
    ende = 1
  elseif menuitem(3000)  // Im Multiedit wurde eine Taste losgelassen  
    setText hAnzahl, str$(len(getText$(hMEdit)))
  endif
endwhile  
end

CLS
Def %MaxLen 20
Declare Handle Edit
Declare Handle Anzeige
Declare Int Rest
Edit = Create("MultiEdit", %HWnd, "", 4, 4, 320, -96)
Anzeige = Create("Text", %HWnd, "", 4, 108, 164, 20)
SendMessage(Edit,$00C5,%MaxLen,0)


While 1
  Rest = %MaxLen - Len(GetText$(Edit))
  Case Rest = 0 : Beep
  SetText Anzeige, Str$(Rest) + " Zeichen verbleiben"
  WaitInput
  Case %Key = 2 : Break
EndWhile