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 SystemWindowsFormsForm
Dim i As Integer =
进入Form_Load事件
Private Sub Form_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
PictureBoxImage = ImageFromFile(images// + jpg)
End Sub
进入幻灯片播放ToolStripMenuItem_Click事件
Private Sub 幻灯片播放ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 幻灯片播放ToolStripMenuItemClick
TimerEnabled = True
End Sub
进入前一张ToolStripMenuItem_Click事件
Private Sub 前一张ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 前一张ToolStripMenuItemClick
If i = Then 设置默认图片为张
i =
End If
i += 每次加调用图片
PictureBoxImage = ImageFromFile(images// + iToString + jpg) 图片的路径
End Sub
进入后一张ToolStripMenuItem_Click事件
Private Sub 后一张ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 后一张ToolStripMenuItemClick
i =
If i = Then
i =
End If
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
End Sub
进入暂停ToolStripMenuItem_Click事件
Private Sub 暂停ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 暂停ToolStripMenuItemClick
TimerEnabled = False
End Sub
进入Timer_Tick事件
Private Sub Timer_Tick(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles TimerTick
If i <> Then
i +=
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
Else
i =
End If
End Sub
进入PictureBox_MouseDown事件
If eButton = WindowsFormsMouseButtonsRight Then
i =
If i = Then
i =
End If
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
End If
If eButton = WindowsFormsMouseButtonsLeft Then
If i = Then
i =
End If
i +=
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
End If
End Sub
代码输入完毕我们运行程序进行测试如图
程序运行正常能够进行幻灯片式播放图片如果有感兴趣的朋友还可以对程序进行修改如自定义添加图片等功能使得程序功能更多
