Imports System.Text.RegularExpressions '正则表达式
Public Structure a
Shared x As Integer = 1300
Shared y As Integer = 700
End Structure
Public Class 图片播放器
Public 全局的文件名称() As String
Public 全局的文件数量 As Integer
Public 全局的计数器 As Integer = 0
'播放多张图片的解决方案
'1.遍历文件夹中所有可播放图片
'2.将所有图片数据保存或者一张张读取播放
'3.显示图片
Private Sub 图片播放器_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Label1.Visible = False
Label2.Visible = False
TextBox1.Visible = False
Label2.Text = "毫秒"
PictureBox1.AutoSize = True
Me.AutoSize = True
Dim a As Size
Me.MaximumSize = a
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'打开文件夹选项 使用的FolderBrowserDialog控件
Me.FolderBrowserDialog1.ShowDialog() '打开文件夹选项框
Dim 文件夹名称路径 As String = FolderBrowserDialog1.SelectedPath '获得文件夹路径
Dim 文件夹名称 As String = 文件夹名称路径.Substring(文件夹名称路径.LastIndexOf("\") + 1) '得到文件夹名称
Dim 全局的文件名称() As String = System.IO.Directory.GetFiles(文件夹名称路径)
Dim 文件数量 As Integer = 全局的文件名称.Length
If 文件数量 > 0 Then
Dim 计数器 As Integer = 0
While 计数器 < 文件数量
计数器 = 计数器 + 1
End While
Label1.Text = "图片数量:" & 文件数量 & "张 播放间隔:"
全局的文件数量 = 文件数量
Button3.Visible = True
Label1.Visible = True
Label2.Visible = True
TextBox1.Visible = True
Else
MsgBox("文件夹中不包含任何文件或只有文件夹存在!")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Height = 349
Me.Width = 558
'打开文件选项 使用的openfiledialog控件
OpenFileDialog1.ShowDialog() '打开文件选择框
'OpenFileDialog1.Filter = ""
OpenFileDialog1.Title = "打开文件" '设置对话框标题
OpenFileDialog1.FilterIndex = 1 ' 获取或设置文件对话框中当前选定筛选器的索引
OpenFileDialog1.RestoreDirectory = True
Dim 文件名称 As String = OpenFileDialog1.FileName '得到选择的文件
PictureBox1.Image = Image.FromFile(文件名称)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If IsNumeric(TextBox1.Text) = True Then '如果是数字则通过
'If InStr(1, 全局的文件名称(全局的计数器), ".bmp", 1) Or InStr(1, 全局的文件名称(全局的计数器), ".jpg", 1) _
'Or InStr(1, 全局的文件名称(全局的计数器), ".png", 1) Then
PictureBox1.Image = Image.FromFile(全局的文件名称(0))
Else
MsgBox("没有输入有效数字,请重新输入!")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If 全局的计数器 < 全局的文件数量 Then
'If InStr(1, 全局的文件名称(全局的计数器), ".bmp", 1) Or InStr(1, 全局的文件名称(全局的计数器), ".jpg", 1) _
'Or InStr(1, 全局的文件名称(全局的计数器), ".png", 1) Then
Dim pic As New Bitmap(全局的文件名称(全局的计数器))
PictureBox1.Image = pic
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
pic.Dispose()
全局的计数器 = 全局的计数器 + 1
End If
'End If
End Sub
End Class
