VB一个输出到picture的问题。急！

来源：百度知道 编辑：UC知道 时间：2024/06/06 20:38:10
我用一个Timer每隔一秒产生一个随机数，并显示在一个图片上。要每隔一秒都能在图片上显示出新产生的数并擦去上一次的数。形成不断显示数的现象。谢谢各位了！

先在窗体上放上PictureBox和Timer这两个控件，然后在代码窗口中，输入以下代码：
Private Sub Timer1_Timer()
Picture1.Cls
Randomize
x = Int(Rnd * 1000000 + 1)
Picture1.Print x
End Sub
有什么不知道的发消息给我

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Picture1.Cls
Dim x
Randomize
x = Rnd
Picture1.Print x
End Sub

sub timer1.timer
dim x
x=rnd
picture1.picture=""
picture1.print x
end sub

先建个背景图区，把Label控件置于其上，然后用timer控件直接产生随机数即可。不用擦除，上个数会自动消失的。你也可以这样实现，反正条条大路通罗马：

Private Sub Timer1_Timer()
Picture1.Cls
Randomize
x = Int(Rnd * 1000000 + 1)
Picture1.Print x
End Sub