知识大全用VB.net2008编写幻灯片程序

Posted 2022-07-14 知

篇首语：有学问和有知识的人是不同的。记忆造成了前者，哲学造成了后者。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB.net2008编写幻灯片程序相关的知识，希望对你有一定的参考价值。

用VB.net2008编写幻灯片程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

Visual Studio 与Visual Studio 的区别并不是非常大但是不得不说Visual Studio 确实要比之前的Visual Studio 更加人性化和实用化了但是唯一的缺点是Visual Studio 需要配置比较高的PC才能发挥出真正的效率对于使开发平台的人们来说使用Visual Studio 进行开发是更好的一种选择也是一种趋势 Visual Studio所有系列的产品都附带了大量的控件这些控件都拥有非常强大的功能利用这些控件我们完全可以编写出一款好的软件本文将通过一个完整的程序实例来让读者了解到编写一个基本的幻灯片应用程序所需要用到的控件和界面的布局等希望这篇文章对初学者还是拥有一定经验的编程人员会有所帮助　　打开 Visual Studio 在文件 (File) 菜单上单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中单击 Windows 应用程序(Windows Application) 单击确定 (OK)如图 >　　选择Form 窗体进行如下属性的修改　　WindowState Maximized 　　AutoScaleMode Inherit　　　　在Form 窗体中添加MenuStrip Timer 和PictureBox 控件　　选中MenuStrip 控件输入以下文字(作为菜单选项)如图　　<播放幻灯片> 　　<前一张> 　　<后一张> 　　<暂停> 　　 >

　　接下来我们需要选择Timer 控件将Interval设置为: 　　　　随后我们需要选择PictureBox 控件适当的填充到窗体中选择Dock=Fill即可

　　好了界面工作已经完成接下来我们需要输入代码了随后我们可以随意放入张精美的图片需要特别注意的是我们需要在程序根目录中建立一个存放图片文件的文件夹(在调试环境下需要存放在\\bin\\Debug) 名字命名为 images 将放入的图片文件名重命名为数字进行编号（如等格式为jpg）否则无法显示出图片　　首先进行声明　　Public Class Form 　　Inherits System Windows Forms Form 　　Dim i As Integer = 　　　　进入Form _Load事件　　　 Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load 　　PictureBox Image = Image FromFile( images// + jpg ) 　　End Sub　　　　进入幻灯片播放ToolStripMenuItem_Click事件　　Private Sub 幻灯片播放ToolStripMenuItem_Click(ByVal sender As System Object ByVal e As System EventArgs) Handles 幻灯片播放ToolStripMenuItem Click 　　Timer 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 = Then 设置默认图片为张　　 i = 　　 End If 　　 i += 每次加调用图片　　 PictureBox 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 = 　　 If i = Then 　　 i = 　　 End If 　　 PictureBox 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 　　 Timer Enabled = False 　　 End Sub　　　　进入Timer _Tick事件　　　　Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick 　　 If i <> Then 　　 i += 　　 PictureBox Image = Image FromFile( images// + i ToString + jpg ) 　　 Else 　　 i = 　　 End If 　　 End Sub

　　进入PictureBox _MouseDown事件　　　　 If e Button = Windows Forms MouseButtons Right Then 　　 i = 　　 If i = Then 　　 i = 　　 End If 　　 PictureBox Image = Image FromFile( images// + i ToString + jpg ) 　　 End If 　　 If e Button = Windows Forms MouseButtons Left Then 　　 If i = Then 　　 i = 　　 End If 　　 i += 　　 PictureBox Image = Image FromFile( images// + i ToString + jpg ) 　　 End If 　　End Sub　　　　代码输入完毕我们运行程序进行测试如图

> cha138/Article/program/net/201311/13286

知识大全 用VB.net2008编写幻灯片程序

知识大全用VB.net2008编写幻灯片程序