VB高手回答:对于显示到Picturebox控件上的数字问题!

我设计了一个小程序:一个“数据输入”按键、一个“显示数据”按键、一个PictureBox控件。我试了很久,只有在PictureBox控件初始状态能完全(用print方法完... 我设计了一个小程序:一个“数据输入”按键、一个“显示数据”按键、一个PictureBox控件。我试了很久,只有在PictureBox控件初始状态能完全(用print方法完成)在控件上时,就能看见。但如果PictureBox控件的初状态设计得很小(即:让PictureBox.ScaleHeight=15时,此时再单击“显示数据”按键,将PictureBox控件放大后,控件上并不能正常显示数据。而在这种放大状态下输入数据,却能正常显示数据。一旦缩小并再次放大后就又看不到数据了!请哪位高手帮忙解决!
Private Sub Command1_Click()
a(i) = InputBox("请录入数据!", vbOKOnly)
If Not IsNumeric(a(i)) Then MsgBox "请输入数字!": GoTo ff
Picture1.Print a(i) + "\";
End Sub

***************************************************************

Private Sub Command2_Click()"以下是窗体及图片框动态变化代码
If sc = 1 Then GoTo there

Form2.Height = 9295
Form2.Width = 9345

Picture1.ScaleHeight = 4455
Picture1.ScaleWidth = 9345
Picture1.ScaleLeft = 0
Picture1.ScaleTop = 0
Picture1.Height = 3000
Picture1.Top = 5640
Picture1.Width = 9345
Picture1.Left = 0

sc = 1
Exit Sub

there:

Form2.Height = 6495
Form2.Left = 6120
Form2.ScaleLeft = 0
Form2.ScaleTop = 0
Form2.ScaleWidth = 9345
Form2.Top = 3105
Form2.Width = 9345

Picture1.ScaleHeight = 15
Picture1.ScaleWidth = 9345
Picture1.ScaleTop = 0
Picture1.Top = 5640
Picture1.ScaleLeft = 0
Picture1.Width = 9345
Picture1.Left = 0
Picture1.Height = 75

sc = 0
End Sub
展开
 我来答
lxz1969
2008-06-08 · TA获得超过1.1万个赞
知道大有可为答主
回答量:8524
采纳率:33%
帮助的人:1.1亿
展开全部
第二个问题好解决,只须将控件的autoredraw设为true就行。至于第一个问题,我还没有好的办法。
我认为第一个问题应该是VB的一个Bug,目前只有通过变通的办法来解决。比如变大的时候,就先cls,然后再打印一遍。
lzh741206
2008-06-08 · TA获得超过1192个赞
知道大有可为答主
回答量:1929
采纳率:100%
帮助的人:2803万
展开全部
不要print
在pic上放label或Textbox,把内容显示在上面就好了
print方法真正的话没人用的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
HBpcbar
2008-06-08 · TA获得超过251个赞
知道小有建树答主
回答量:732
采纳率:0%
帮助的人:290万
展开全部
没看明白你的第一个问题。第二个是不是屏幕打印的数据缺胳膊少腿的呀。呵呵。只须将控件的autoredraw设为true就行 采用4楼的方法就可以了,能不能详细说下第一个问题
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Scitin
2008-06-08 · TA获得超过2052个赞
知道小有建树答主
回答量:1487
采纳率:0%
帮助的人:868万
展开全部
Picture1.AutoRedraw = True
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
夕枫沉影
2008-06-08 · TA获得超过2930个赞
知道大有可为答主
回答量:2521
采纳率:0%
帮助的人:1144万
展开全部
用数组吗?当单击“显示数据”时,原本没有数据的图片就不见,有图片的就显示,这样就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式