VB问题:如何用Print方法显示在PictureBox控件上的内容自动换行???

我用inputbox录入数据后,用pint方法显示在PictureBox控件上,但它只能横排显示,由于控件宽度有限,后面的无法在第二排出现。请帮忙解决如何能自动换行显示!... 我用inputbox录入数据后,用pint方法显示在PictureBox控件上,但它只能横排显示,由于控件宽度有限,后面的无法在第二排出现。请帮忙解决如何能自动换行显示!我用的代码是:
Private Sub Command1_Click()

ff:

a(i) = InputBox("请录数据!", "", " ")
If a(i) = "" Then Exit Sub
If a(i) = " " Then MsgBox "还没输入!": GoTo ff

If a(i) > 100 Then a34003 = MsgBox("数据为空或越界,请重新输入", vbOKOnly): GoTo ff
If Not IsNumeric(a(i)) Then MsgBox "请录入数字!": GoTo ff
Picture1.Print a(i) + "\";
Next i

End Sub
前面少写了一句代码:
for i=1 to 60

对于一楼的回答,那样只能一行显示一个数字啊!不好不好!
展开
 我来答
赵扶风
2008-06-09 · TA获得超过846个赞
知道小有建树答主
回答量:367
采纳率:100%
帮助的人:625万
展开全部
试下这个
(你的for循环不知是放在哪里的)
-------
调试了下你的程序 发现不少问题
改成这样了 应该没什么Bug了
使用数据时 可用b(60)数组
a(60)只为测试是否符合要求
其中调整处你体会下:

Private Sub Command1_Click()
Dim a(60) As String
Dim b(60) As Double
For i = 1 To 60
ff:

a(i) = InputBox("请录数据!", "", " ")
If a(i) = "" Then Exit Sub
If a(i) = " " Then MsgBox "还没输入!": GoTo ff

If Not IsNumeric(a(i)) Then MsgBox "请录入数字!": GoTo ff
If CDbl(a(i)) > 100 Then a34003 = MsgBox("数据为空或越界,请重新输入", vbOKOnly): GoTo ff

Picture1.Print a(i) + "\";

If i Mod 10 = 0 Then '每行显示十个数后 ,换行
Picture1.Print
End If '

Next i

For i = 1 To 60
b(i) = CDbl(a(i))
Next
End Sub
来自状元楼纯洁无暇的网纹草
2008-06-09 · TA获得超过6589个赞
知道小有建树答主
回答量:2666
采纳率:0%
帮助的人:1431万
展开全部
你打开inputbox录入数据后,用pint方法显示在PictureBox控件上

你应该去调试他的代码
完后用代码进行RPT的无代码超做!
这样他才能自动换行!

你的代码好奇怪啊!
for i=1 to 60
我觉得应该是FOR I=60 TO 1
打错了或者是.....

把这一窜加代码录入就OK了!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lzh741206
2008-06-09 · TA获得超过1192个赞
知道大有可为答主
回答量:1929
采纳率:100%
帮助的人:2794万
展开全部
Picture1.Print a(i) + "\";
改成
Picture1.Print a(i) + "\"
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式