Userform textbox, account for Backspace and Delete

This userform edits cell contents as you type, while preserving the font.

The initiation starts at the class module "clsTextBox". There are two methods. (1) "MyTextBox_Change" is used when the cursor is placed somewhere before typing begins. (2) "MyTextBox_KeyPress" is used if part of the text is highlighted before typing.

There is an issue if the BACKSPACE or DELETE key is used, it throws out the fonts.

Is there a way to capture the BACKSPACE and DELETE event? So I can write a separate module for this.



CLASS MODULE clsTextBox

Please Login or Register  to view this content.

FORM CODE

Please Login or Register  to view this content.

This is creating an event, which is a good step forward.

Is it possible to relay the "character typed" information to the Sub in the form code?

I've tried to delete a selected portion of text with "KeyDown". It doesn't work.
There seems to be a lag of one event. Pressing the second time shows the result for the first time, pressing for the third time shows the result for the second time, and so on.
When I say it doesn't work, the selected string characters are not deleted, but the fonts are changed though.

Please Login or Register  to view this content.

I've tried the suggestion at post #6 by passing the argument into the Sub (with "KeyDown"). I can't make it update in the Sub though.
I did try "KeyUp" yesterday but this does not store the value of the SelectionCount, the number of selected characters. This was one of the other requirements which allowed the ability to type over a selected number of characters.
"KeyPress" (when combined with MyTextBox_Change()) did update and restore fonts but unfortunately does not handle Delete.
A summary is shown below.

With the suggestion at post #7, the intention is to actually to implement the BackSpace and Delete, not prevent it.

See attached workbook for latest working.

Attachment 643760

I've progressed this somewhat over a lengthy period.
It's getting closer but still baffles.

First, to explain the theme:
The order of events is "KeyDown", "Change" of textbox, then "KeyUp". Public declarations are used to relay information between the three.

KeyDown is required to capture the instance where a selection is made (highlight a number of characters and type over them). "Change" of textbox is used to transfer contents to cell, from which a new array of characters is manipulated. "KeyUp" is required since it handles Backspace and Delete and captures the event after the textbox change. This took me days to figure out ... using Debug.Print window.

The code still does not work in instances such as Backspace and Delete. I can understand the details of what's happening however it still baffles me why the fonts are not restored correctly. The algorithm formulas look correct.

Any further suggestions?

CLASS MODULE (Part)

Please Login or Register  to view this content.

FORM CODE (Part)

Please Login or Register  to view this content.

@AlphaFrog
The code is much simpler and intuitive. I've tested with no selection (cursor only) and this works. It will need a tweak when there is a selection in the text box. It also accounts for Navigation keys (non text), which was another part I had to add to stop errors.
Thanks for assisting.

Incidentally with the code at post #9, the error for Backspace or Delete was due to the following:
"SelectionCount" should have been "SelectionCountHold"