| 阳光百分百 |
 |
| 等级:社区游侠 |
| 权限:普通用户 |
| 积分:44 |
| 金钱:169 |
| 声望:75 |
| 经验:75 |
| 发帖数:75 |
| 注册:2008年10月4日 |
|
|
|
好了界面工作已经完成，接下来我们需要输入代码了。随后我们可以随意放入12张精美的图片。需要特别注意的是我们需要在程序根目录中建立一个存放图片文件的文件夹(在调试环境下，需要存放在\bin\Debug)，名字命名为：images。将放入的图片文件名重命名为数字进行编号（如1，2，3，4等，格式为jpg）否则无法显示出图片。
首先进行声明：
Public Class Form1
Inherits System.Windows.Forms.Form
Dim i As Integer = 1
进入Form1_Load事件
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Image = Image.FromFile("images//" + "1.jpg")
End Sub
进入幻灯片播放ToolStripMenuItem_Click事件
Private Sub 幻灯片播放ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 幻灯片播放ToolStripMenuItem.Click
Timer1.Enabled = True
End Sub
进入前一张ToolStripMenuItem_Click事件
Private Sub 前一张ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 前一张ToolStripMenuItem.Click
If i = 12 Then '设置默认图片为12张
i = 0
End If
i += 1 '每次加1，调用图片
PictureBox1.Image = Image.FromFile("images//" + i.ToString + ".jpg") '图片的路径
End Sub
进入后一张ToolStripMenuItem_Click事件
Private Sub 后一张ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 后一张ToolStripMenuItem.Click
i -= 1
If i = 0 Then
i = 12
End If
PictureBox1.Image = Image.FromFile("images//" + i.ToString + ".jpg")
End Sub
进入暂停ToolStripMenuItem_Click事件
Private Sub 暂停ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 暂停ToolStripMenuItem.Click
Timer1.Enabled = False
End Sub
进入Timer1_Tick事件
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If i <> 12 Then
i += 1
PictureBox1.Image = Image.FromFile("images//" + i.ToString + ".jpg")
Else
i = 0
End If
End Sub
|
|
|
|
|
|
所在位置：论坛首页 -> ┈┋电脑网络┋┈ -> Asp/Asp.Net教程 -> 用VB.net2008编写幻灯片程序
资料
短消息
