有没有办法在VB6中缩放Rich Textbox的内容？

Question

我正在尝试缩放（调整大小）VB6中富文本框的内容，以便所有内容都可见。 （我缩小直到滚动条消失）。

Answer 1

不，但您可以通过以下方式对其进行模拟。

• 创建一个大表格和位置，如果在屏幕外的某个地方
• 将您的RichEdit（或其副本）放在此表单上
• 调整RichEdit的大小，以便它可以容纳所有没有滚动条的内容
• 创建一个内存直流（CreateDC）并在其中选择一个足够大的位图来保存RichEdit的内容（CreateDIBSection）
• 向屏幕外的RichEdit发送包含内存DC的WM_PRINTCLIENT消息

• StretchBlt从Memory DC到您想要缩放视图的屏幕。

  （噢！）