richtextbox als zähler für tastenanwendung

[Dan1eL]

*topic* kompliziert ich weis
Also schaut
ich will wenn ich Strg+V drücke das in der richtextbox automatisch die zahl 1 steht
und wenn ich es widerhole soll die zahl 2 stehn[aber unter die 1ns
also es soll regelrecht ein zähler werden.


mfg

 

[Alex F.]

Private sub RtfBox.KeyDown ( keycode as Integer, Shift as Integer) 
static counter  as integer
if shift = vbmaskshift then
  if keycode = vbkeyV then
   counter = counter +1 
   RtfBox.text = RtfBox & vbcrlf + counter 
  end if 

end if 
end sub

ungetestet da ich keine Vb-Umgebung habe aber prinzipiel sollte es so gehen

Grüsse bb