UC知道VB高手回答：对于显示到Picturebox控件上的数字问题！
来源：百度知道 编辑：UC知道 时间：2024/09/28 13:43:18
我设计了一个小程序：一个“数据输入”按键、一个“显示数据”按键、一个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
F
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
F
第二个问题好解决，只须将控件的autoredraw设为true就行。至于第一个问题，我还没有好的办法。
我认为第一个问题应该是VB的一个Bug，目前只有通过变通的办法来解决。比如变大的时候，就先cls，然后再打印一遍。
不要print
在pic上放label或Textbox,把内容显示在上面就好了
print方法真正的话没人用的
没看明白你的第一个问题。第二个是不是屏幕打印的数据缺胳膊少腿的呀。呵呵。只须将控件的autoredraw设为true就行 采用4楼的方法就可以了，能不能详细说下第一个问题
Picture1.AutoRedraw = True
用数组吗？当单击“显示数据”时，原本没有数据的图片就不见，有图片的就显示，这样就可以了。