Question

vb随机显示图片

让六张图片在窗体上随机显示，五秒一张，图片上边也要加个显示数字的东西，也是随机的。麻烦大师们做个给我。给源码加点说明也可以…谢谢
详细点

Answer 1

VB.NET代码
Public Class Form1
Dim a As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'该过按钮用来启动、停止换图图片
If a = False Then
a = True
Timer1.Enabled = True
Else
a = False
Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim b As Integer
b = CInt(Int((5 * Rnd()) + 1)) '产生一个1到5的随机整数
Label1.Text = "这是第" & b & "张图片"
PictureBox1.Image = Image.FromFile(ListBox1.Items.Item(b - 1)) 'ListBox的index是从0开始的，所以要-1
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'这里使用了listbox用来存图片路径
For Each foundFile As String In My.Computer.FileSystem.GetFiles("F:\图片") '将指定目录下的所有文件名及路径添加到ListBox控件
ListBox1.Items.Add(foundFile)
Next
End Sub
End Class
Timer控件的interval设太小的话会有点卡，因为是直接从硬盘读取数据，对硬盘缓存、读取速度都有较高要求，如果要每秒换10张或更多的话，建议在程序启动时，或启动后换图片前一次性把所有图片加载到内存。

Answer 2

在你的根目录下建一个文件夹PIC，在PIC下存放5张图片，名称分虽是1，2，3，4，5
然后添加一个timer1控件，一个image1控件，它的interval设5000（即5秒）写如下代码
Private Sub Form_Load()
Dim i As Integer
Image1.Picture = LoadPicture(App.Path & "pic\1.bmp")
End Sub

Private Sub Timer1_Timer()
i = Int(Rnd * 5 + 1)
Image1.Picture = LoadPicture(App.Path & "\pic\" & i & ".bmp")
End Sub

Answer 3

把jpg图片按数字顺序命名放在同目录下。
然后
用timer控件
五秒之后
randomize
Picture1.picture=loadpicture(app.path & int(rnd()*目录下图片数) & ".jpg")

Answer 4

这个其实很简单啊，用VB里面的图片控件就好了啊，代码也不用太多。