你好！我还有个问题想向您请教一下！

2024-12-24 22:30:22

推荐回答（1个）

回答1：

这个得根据字号来做，因为我这里没有 VB6，所以暂时没法测试，说下另一种简单的思路：

我们假设在 Width（宽度）为 100 的窗体上可以在一行上显示 20 个词，假设这一行词的高度是 40，那么如果有一行词的话窗体就是 100*40 ，两行就是 100*80 ，三行就是 100*120 以此类推。

那么说到这里题主应该明白一些了吧？就是根据 Print 的字符量除以20，得到行数，然后设置 Form 的 Height 属性为行数*40就可以了。

参考如下：
Dim n As Integer
n = Int(Len(Text1.Text) / 20) + 1
Form1.Height = n * 40

注意：这里的 20、40 是我们假设的，具体的需要根据 Font 的 Size 属性来做。