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 展开
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 展开
5个回答
展开全部
不要print
在pic上放label或Textbox,把内容显示在上面就好了
print方法真正的话没人用的
在pic上放label或Textbox,把内容显示在上面就好了
print方法真正的话没人用的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
没看明白你的第一个问题。第二个是不是屏幕打印的数据缺胳膊少腿的呀。呵呵。只须将控件的autoredraw设为true就行 采用4楼的方法就可以了,能不能详细说下第一个问题
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Picture1.AutoRedraw = True
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用数组吗?当单击“显示数据”时,原本没有数据的图片就不见,有图片的就显示,这样就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询