strikethrough text

[questionit]

Hi Everyone

Is there a way to display in a textbox a strikethrough text ?

Thanks
Qi

[nico5038]

No. Certainly not for a part of the text.
For this you'll need to use a .rtf control that supports strike-through, or an embedded .doc document.

Nic;o)

[ADezii]

Hi Everyone

Is there a way to display in a textbox a strikethrough text ?

Thanks
Qi

Here is one of my closest guarded secrets which I will gladly share with you. You can display 'pseudo' StrikeThrough Text in Access, although not directly. Follow these simple steps

1. Create 2 Text Boxes named txtText and txtOverlay.
2. Make these 2 Text Boxes exactly the same size, either by code or manually.
3. Place txtOverlay exactly on top of txtText, again, either by code or manually.
4. Run the following code wherever appropriate:
   

   Const conTransparent = 0
    
   'Should be a Fixed Width Font
   Me![txtText].FontName = "Courier New"
   Me![txtText].FontSize = 12
   Me![txtText] = "Philadelphia"
    
   Me![txtOverlay].FontName = "Courier New"
   Me![txtOverlay].FontSize = 12
   Me![txtOverlay].BackStyle = conTransparent
   Me![txtOverlay] = String(Len(Me![txtText]), "-")
    

5. Any questions or comments, feel free to reply.

NOTE: It ain't perfect, but it ain't bad also.

[Jim Doherty]

Here is one of my closest guarded secrets which I will gladly share with you. You can display 'pseudo' StrikeThrough Text in Access, although not directly. Follow these simple steps

1. Create 2 Text Boxes named txtText and txtOverlay.
2. Make these 2 Text Boxes exactly the same size, either by code or manually.
3. Place txtOverlay exactly on top of txtText, again, either by code or manually.
4. Run the following code wherever appropriate:
   

   Const conTransparent = 0
    
   'Should be a Fixed Width Font
   Me![txtText].FontName = "Courier New"
   Me![txtText].FontSize = 12
   Me![txtText] = "Philadelphia"
    
   Me![txtOverlay].FontName = "Courier New"
   Me![txtOverlay].FontSize = 12
   Me![txtOverlay].BackStyle = conTransparent
   Me![txtOverlay] = String(Len(Me![txtText]), "-")
    

5. Any questions or comments, feel free to reply.

NOTE: It ain't perfect, but it ain't bad also.

Oh I don't know? ardent residents of 'Philadelphia' might say it was pretty much perfect Dez? :)

Jim

[ADezii]

Oh I don't know? ardent residents of 'Philadelphia' might say it was pretty much perfect Dez? :)

Jim

As you probably guessed, I'm from Philadelphia - not that I'm bragging about that. (LOL).

[questionit]

Adezzi

Thats good.

But ofcourse if you click on the textbox, the txtText will disappear.
Also, if there are so many textboxes , it probably wouldn't be feasible to make many extra textOverLay textboxes

Thanks for a solution

Qi

Here is one of my closest guarded secrets which I will gladly share with you. You can display 'pseudo' StrikeThrough Text in Access, although not directly. Follow these simple steps

1. Create 2 Text Boxes named txtText and txtOverlay.
2. Make these 2 Text Boxes exactly the same size, either by code or manually.
3. Place txtOverlay exactly on top of txtText, again, either by code or manually.
4. Run the following code wherever appropriate:
   

   Const conTransparent = 0
    
   'Should be a Fixed Width Font
   Me![txtText].FontName = "Courier New"
   Me![txtText].FontSize = 12
   Me![txtText] = "Philadelphia"
    
   Me![txtOverlay].FontName = "Courier New"
   Me![txtOverlay].FontSize = 12
   Me![txtOverlay].BackStyle = conTransparent
   Me![txtOverlay] = String(Len(Me![txtText]), "-")
    

5. Any questions or comments, feel free to reply.

NOTE: It ain't perfect, but it ain't bad also.

[ADezii]

Adezzi

Thats good.

But ofcourse if you click on the textbox, the txtText will disappear.
Also, if there are so many textboxes , it probably wouldn't be feasible to make many extra textOverLay textboxes

Thanks for a solution

Qi

You are right on both counts. It was just meant to be icing on the cake, and the disappearing Text can be worked around.