|
进入PictureBox1_MouseDown事件
If e.Button = Windows.Forms.MouseButtons.Right Then i -= 1 If i = 0 Then i = 12 End If PictureBox1.Image = Image.FromFile("images//" + i.ToString + ".jpg") End If If e.Button = Windows.Forms.MouseButtons.Left Then If i = 12 Then i = 0 End If i += 1 PictureBox1.Image = Image.FromFile("images//" + i.ToString + ".jpg") End If End Sub 代码输入完毕,我们运行程序进行测试如图3。 ![]() 程序运行正常,能够进行幻灯片式播放图片,如果有感兴趣的朋友还可以对程序进行修改如自定义添加图片等功能,使得程序功能更多。 |






骆驼户外男 真皮磨砂日常休闲鞋 低帮 2011秋冬新款 专柜正品特价