VB.NET自动播放程序工作目录内的图片

简介

如果大家想要写一个程序制作属于自己的影集，这个影集不需要告诉程序路径就可以在任意电脑上播放，这篇文章将会对你有帮助。

想实现播放照片，VB.NET提供了PictureBox控件；为了使相邻的两张照片相隔一段时间显示，使用到了Timer控件（定时器）；实现在不输入照片路径就能在任意电脑上播放影集，可以采用相对路径的方法，即程序读取当前程序运行路径，我们将照片放在程序的运行路径下，读取到程序运行路径后再加入照片的文件名，从而得到照片的完整路径。

具体的实施方法如下：

1.添加PictrureBox控件

需要注意的是将尺寸模式调为StretchImage可以j较好地保证照片的比例和填满整个PictureBox

2.添加Timer控件

将Timer控件拖到窗体中即可

 在窗体下方显示时钟的样式

3.将照片文件拷贝到程序路径下并进行编号

对于VS，程序运行路径为Debug文件夹如:WindowsApplication5\WindowsApplication5\bin\Debug

本例中使用的照片存放在zp1文件中并已编号

4.代码实现

Public Class 自动播放照片
    Public a As Integer '定义照片序号
    Public STR1 As String '定义工作目录字符串
    Private Sub 自动播放照片_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        STR1 = System.IO.Directory.GetCurrentDirectory() '读取程序工作路径
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True '定时器启动
        Timer1.Interval = 1500 '每1.5s运行一次
        a = 0‘照片初始序号
    End Sub
    Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick '定时器子过程
        a = a + 1 '没运行一次播放下一张图片
        If a <= 105 Then '总共105张，判断是否读完
            Dim string1 As String = STR1 + "\zp1\1 (" + Str(a).Trim + ").jpg" '照片完整路径
            PictureBox1.Load(string1) '读取该路径下的照片
        End If
    End Sub


End Class