Question

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

效果：

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

Answer 1

打开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看看效果吧。

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

Answer 2

'需控件：Command1、File1、Timer1、Image1
'控件可任意放置
Private Sub Form_Load()
File1.Path = "C:\WINDOWS" '设定图片目录
File1.Pattern = "*.ico;*.gif;*.jpg;*.bmp"
File1.Visible = False
Command1.Caption = "选择"
Command1.Move 300, 90: Image1.Move 0, 0
Image1.Move 300, Command1.Top + Command1.Height + 90
Timer1.Enabled = True: Timer1.Interval = 200
End Sub
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Timer1_Timer()
Static I As Long
If I > File1.ListCount - 1 Then I = 0
If File1.ListCount < 1 Then Exit Sub
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(I))

I = I + 1
End Sub

Answer 3

用timer时钟控制器控制图片的变化,第一次按下按钮时将timer的enabled值设为flase,当再点一次按钮时就将timer的enabled值设为true.

Answer 4

通用time事件控制随机变化
再通过image控件使其某图片停止