Dim x, y, i1, i2 As Integer
e.Form.StopRedraw()
e.Form.Controls(Me.PanelName).ClearControl()
e.Form.Controls(Me.PanelName).BackColor = Color.WhiteSmoke
i2 = FileSys.GetFiles(Me.GetPath).Count
Dim Values As New List(Of String)
For Each File As String In FileSys.GetFiles(Me.GetPath)
If File.Contains(".jpg") Then
Values.Add(File)
End If
Next
Dim ls_img As New List(Of Object)
Dim Top As Integer = 0
Dim phx As WinForm.PictureBox
Dim lbl As WinForm.Label
For y = 0 To Math.Ceiling(i2 / 5) - 1
For x = 0 To 4
If Values.Count > i1 Then
phx = e.Form.CreateControl(Values(i1).Replace(".jpg", ".mp4"), ControlTypeEnum.PictureBox)
phx.Width = 200
phx.Height = 200
phx.Font = New Font("微软雅黑", 10)
phx.Left = 30 + (210 * x) + 30
phx.Top = 2 + (210 * y) + 30
phx.BackColor = Color.Transparent
phx.Image = GetImage(Values(i1))
phx.AutoScroll = False
e.Form.Controls(Me.PanelName).AddControl(phx)
i1 += 1
lbl = e.Form.CreateControl(Values(i1).Replace(".jpg", ".mp4") & "Text", ControlTypeEnum.Label)
lbl.Text = FileSys.GetName(Values(i1)).Split(".")(0)
lbl.Font = New Font("微软雅黑", 9)
lbl.Width = 200
lbl.Height = 42
lbl.Left = 30 + (210 * x) + 30
lbl.Top = (2 + (210 * y) + 30) + (210 * y) + 30
lbl.AutoSize = False
i1 += 1
e.Form.Controls("Panel1").AddControl(lbl)
End If
Next
Next
e.Form.ResumeRedraw()
End Sub
加好友 
发短信
Post By：2017/4/13 14:30:00 [只看该作者]
