用Print 方法在PictureBox 控件上显示文本，如何让其自动换行？

本人在图形（PictureBox）控件上用Print 方法显示文本，但字数太多，如何让其自动换行？请高手不吝赐教。

Private Sub Form_click()
Dim str1 As String, temp As String
Me.Show
temp = "本人在图形（PictureBox）控件上用Print 方法显示文本，但字数太多，如何让其自动换行？请高手不吝赐教"
For i = 1 To Len(temp)
str1 = str1 & Mid(temp, i, 1)
If Picture1.TextWidth(str1) + 200 >= Picture1.Width Then
Picture1.Print str1
str1 = ""
End If
Next
Picture1.Print str1
End Sub

另外用一个print语句，每个print重起一行

你打开inputbox录入数据后，用pint方法显示在picturebox控件上 你应该去调试他的代码 完后用代码进行rpt的无代码超做! 这样他才能自动换行! 你的代码好奇怪啊! for i=1 to 60 我觉得应该是for i=60 to 1 打错了或者是..... 把这一窜加代码录入就ok了!

你怎么显示文字的？ 那段代码看一下

大概给你一个思路： Dim AR As String, AR1() As String, B As Integer, A As Integer AR = "" '你需要输出的文本 A = Len(AR) If A / 20 = A \ 20 Then '需要换行的次数，每20个字符换一行 B = A \ 20 Else B = A \ 20 + 1 End If ReDim AR1(1 To B) For I = 1 To B AR1(I) = Right(Left(AR, I * 20), 20) Next I 下面输出到PictureBox即可