试试这个图片幻灯片
成都地区优秀IDC服务器托管提供商(创新互联).为客户提供专业的香港机房服务器托管,四川各地服务器托管,香港机房服务器托管、多线服务器托管.托管咨询专线:13518219792
有12345数字一起切换
有小图大图一起切换
里面有教程和源码
可能的原因是图片路径问题,路径用的相对路径,不要用绝对路径.
'先建立一个bitmap对象,指向图像文件
Dim pic As Bitmap = New Bitmap("e:\1.jpg")
'定义一个图片框的graphics对象
Dim g As Graphics = PictureBox1.CreateGraphics()
'在图片框上绘图
g.DrawImage(pic, 0, 0, pic.Width, pic.Height)
'释放bitmap对象
pic.Dispose()
'现在即可对文件进行操作
Dim fn As String = "D:\test.jpg"
'方法1
Me.PictureBox1.ImageLocation = fn
'方法2
Me.PictureBox1.Image = Image.FromFile(fn)