Userform textbox, account for Backspace and Delete

[Un-Do Re-Do]

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.

[AlphaFrog]

Trap it with the KeyDown event

Please Login or Register  to view this content.

[Un-Do Re-Do]

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

[Un-Do Re-Do]

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

[Un-Do Re-Do]

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.

[AlphaFrog]

With the KeyDown event, the textbox is not updated until after the event. So your transfertwoless procedure is not evaluating the most recent key press. It's evaluating the existing text that has not updated yet. I think you want you pass the KeyCode as an argument to transfertwoless and process the Backspace-Delete conditions. Alternatively, consider using the KeyUp event which the Textbox update before that event.

[Leith Ross]

Hello Un-Do Re-Do,

To prevent the KeyCode from being processed, set it to zero. Sub-Classing is a FIFO stack oriented process. What does not get processed by your class will be passed along to the original class.

Please Login or Register  to view this content.

[Un-Do Re-Do]

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

[Un-Do Re-Do]

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]

To easily associate a textbox with a cell, I put the cell address in the Textbox name. I then later extract the cell address from the name to reference the cell.

Please Login or Register  to view this content.

This seems to work though I didn't test it a lot.
clsTextBox

Please Login or Register  to view this content.

[Un-Do Re-Do]

@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"

[AlphaFrog]

Here's a better version FWIW

Please Login or Register  to view this content.