VB问题：如何使输出数据在picture上print的时候适应框体大小，自动换行？

Question

如题所述

Answer 1

简单，可以利用currentX属性来了解picture1的打印位置，示例如下：

Private Sub Command1_Click()
Dim S As String

'随机产生一个字母用于示例
Randomize
S = Chr(Int(26 * Rnd) + 65)

'打印出字母
Picture1.Print S;

'检查如果picture1的打印位置举例边界不足200的时候实施换行，数值大小根据字体大小更改
If Picture1.Width - Picture1.CurrentX < 200 Then Picture1.Print
End Sub

以上代码执行后按一次按钮打印一个字母 到达边界后换行