如何以编程方式删除 VBA 中的文本？
How to strikethrough text in VBA - Programmatically?
有没有办法以编程方式删除 VBA (Access) 中的文本？
例如；当我点击一个按钮时，我想将 Hello World! 更改为 H̶e̶l̶l̶o̶ ̶w̶o̶r̶l̶d̶!̶
编辑 #1: 刚刚意识到 VBA 中没有删除线的可能性（据我所知）所以这个问题得到了回答。对于那些想知道是否可能的人..很可能不会。
在 google 解决同样的问题时发现了这个：
- 创建 2 个名为
txtText 和 txtOverlay 的文本框。
- 通过代码或手动使这 2 个文本框的大小完全相同。
- 再次将
txtOverlay 放在 txtText 的正上方
手动。
运行 以下代码在适当的地方：
Const conTransparent = 0
'Should be a Fixed Width Font
Me![txtText].FontName = "Courier New"
Me![txtText].FontSize = 12
Me![txtText] = "Your text"
Me![txtOverlay].FontName = "Courier New"
Me![txtOverlay].FontSize = 12
Me![txtOverlay].BackStyle = conTransparent
Me![txtOverlay] = String(Len(Me![txtText]), "-")
感谢提出它的人：
https://bytes.com/topic/access/answers/722250-strikethrough-text
希望对您有所帮助！
有没有办法以编程方式删除 VBA (Access) 中的文本？
例如；当我点击一个按钮时，我想将 Hello World! 更改为 H̶e̶l̶l̶o̶ ̶w̶o̶r̶l̶d̶!̶
编辑 #1: 刚刚意识到 VBA 中没有删除线的可能性（据我所知）所以这个问题得到了回答。对于那些想知道是否可能的人..很可能不会。
在 google 解决同样的问题时发现了这个：
- 创建 2 个名为
txtText和txtOverlay的文本框。 - 通过代码或手动使这 2 个文本框的大小完全相同。
- 再次将
txtOverlay放在txtText的正上方 手动。 运行 以下代码在适当的地方：
Const conTransparent = 0 'Should be a Fixed Width Font Me![txtText].FontName = "Courier New" Me![txtText].FontSize = 12 Me![txtText] = "Your text" Me![txtOverlay].FontName = "Courier New" Me![txtOverlay].FontSize = 12 Me![txtOverlay].BackStyle = conTransparent Me![txtOverlay] = String(Len(Me![txtText]), "-")
感谢提出它的人： https://bytes.com/topic/access/answers/722250-strikethrough-text
希望对您有所帮助！