VB按一下按钮就随机选中某个图片

效果：

一打开这个工具，上面就有个图片在变来变去，一按“选择”这个按钮，图片就会停止（不动的图片是随机选的），再按一下“选择”，图片又开始变来变去了，再按“选择”，图片又变成了另外一个

打开VB，建一个工程

窗口上画一个Image，名称为Image1，放在正中，把其Stretch属性设置为True。

下面画一个PictureBox，名为Picture1，放在不起眼的地方，把其AutoRedraw属性设置为True，Visible属性设置为False。

然后选择这个PictureBox，复制，粘贴，VB会提示是否创建控件数组，选择是，出现第二个Picture，如此反复，你想要几个图片就搞几个。

然后分别把这些PictureBox的Picture属性指定为不同的图片。

在窗口上放一个CommandButton，名为Command1。

再在上面放一个Timer，名为Timer1，其Interval属性设置为你想要的图像变换间隔时间（单位是毫秒）。

最后把以下代码加入窗体中：

Private Sub Command1_Click()
  Static IsStop1 As Boolean
  Me.Timer1.Enabled = IsStop1
  IsStop1 = Not IsStop1
End Sub

Private Sub Form_Load()
  Randomize Timer
End Sub

Private Sub Timer1_Timer()
  Dim n1 As Long
  n1 = Int(Rnd * 4)’这里的4是指4个图片，根据实际情况修改
  Me.Image1.Picture = Me.Picture1(n1).Picture
End Sub

ok了，按F5看看效果吧。

够详细了吧，你不给分真说不过去了～～

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/4p4s27f8.html