用 VB.NET 2008 编写幻灯片程序

Visual Studio2008与Visual Studio2005的区别并不是非常大，但是不得不说Visual Studio2008确实要比之前的Visual Studio2005更加人性化和实用化了，但是唯一的缺点是Visual Studio2008需要配置比较高的PC才能发挥出真正的效率。对于使用.net开发平台的人们来说，使用Visual Studio2008进行开发是更好的一种选择，也是一种趋势。Visual Studio所有系列的产品都附带了大量的控件，这些控件都拥有非常强大的功能。利用这些控件我们完全可以编写出一款好的软件。本文将通过一个完整的程序实例来让读者了解到编写一个基本的幻灯片应用程序所需要用到的控件和界面的布局等，希望这篇文章对VB.net初学者还是拥有一定经验的编程人员会有所帮助。

　　打开 Visual Studio 2008在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序(Windows Application)。单击确定 (OK)如图1。

 

选择Form1窗体进行如下属性的修改：

　　WindowState： Maximized

　　AutoScaleMode： Inherit

　　在Form1窗体中添加MenuStrip1、 Timer1和PictureBox1控件。

选中MenuStrip1控件输入以下文字(作为菜单选项)如图2：

　　<播放幻灯片>

　　<前一张>

　　<后一张>

　　<暂停>

 

接下来我们需要选择Timer1控件，将Interval设置为: 1000

　　随后我们需要选择PictureBox1控件适当的填充到窗体中，选择Dock=Fill即可。

　　热门推荐：

　　驱动精灵2008助您轻松装驱动

　　WinXP任务管理器的几个另类用法

　　好了界面工作已经完成，接下来我们需要输入代码了。随后我们可以随意放入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

　　热门推荐：

　　驱动精灵2008助您轻松装驱动

　　WinXP任务管理器的几个另类用法

　　进入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。