这种功能的实现首先我会认为需要显示的图片是有规律的，就是说通过当前图片我能知道要显示的下一张图片是什么，这需要你的功能设计要合理，接着就清楚怎么做了吧这样的功能实现我认为重要的是怎么设计的数据存储方式，至于。

var imgs=#391jpg#39，#392png#39，#393gif#39，#394jpg#39，#395png#39 var cur=0 var img=documentgetElementById#39img1#39 function change cur++ ifcur=imgslengthcur=0 img1。

先创建几个panel啊，放进CardLayout布局器，通过点上一张，下一张，切换显示的panel就行了，取到布局器的对象，应该可以直接访问的多看API。

程序集 窗口程序集1程序集变量 图片组， 字节集， ， quot0quot程序集变量 当前图片， 整数型程序集变量 图片张数， 整数型程序集变量 下一张， 整数型 子程序 __启动窗口_创建完毕 时钟1时钟周期 ＝ 1000当前图片。

点击事件相信你已经做好了我给你说下思路，你可以试验下在控件库里有一个Timer控件，当你点击“上一张”“下一张”后，在点击事件里启动Timer控件，让Timer的执行周期设置为5妙，在Timer的周期事件里写你的图片翻页。

var i=1function changeobj i++ifi10 i=1当图片大于10张时，让i=1 var newSrc=iobjsrc=quotimgquot+newSrc+quotjpgquot 要求图片是一种格式，简单的用数字表示，好理解，因为。

看这么久没人来最好用ListBox代替数组存贮图片地址，代码我写好了，能留下邮箱或者其他联系方式？先贴部分代码 Imports SystemIO Public Class Form1 Dim picCount As Integer #39记录图片总数 #39#39#39 #39#39#39 单击选择图片。

放一个PictureBox到窗体上，处理PictureBox的Click事件 private void pictureBox1_Clickobject sender， EventArgs e pictureBox1Load@quotC\xin_0jpgquot加载下一张图片。

MessageBoxShowquot已到最后一张图片quot 重置 private void button1_Clickobject sender， SystemEventArgs e pictureBox1Image=Picturename1。