[VB.NET] การใช้ ListView Control เพื่อทำการแสดงผลไฟล์ภาพ

thongkorn

การใช้ ListView Control เพื่อทำการแสดงผลไฟล์ภาพ (JPG, BMP, PNG, GIF)



มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports System.IO
   
2. 
   
3. Public Class frmListViewImage
   
4. 
   
5.     Dim strPath As String = Application.StartupPath.ToLower.Replace("bin\debug", "").Replace("bin\release", "") & "Images"
   
6. 
   
7.     Private Sub btnFolderBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnFolderBrowse.Click
   
8.         Dim dlgFolderBrowse As New FolderBrowserDialog
   
9.         dlgFolderBrowse.SelectedPath = strPath
   
10.         If dlgFolderBrowse.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
    
11.         '//
    
12.         If Microsoft.VisualBasic.Right(dlgFolderBrowse.SelectedPath, 1) <> "" Then _
    
13.             dlgFolderBrowse.SelectedPath = dlgFolderBrowse.SelectedPath & ""
    
14.         strPath = dlgFolderBrowse.SelectedPath
    
15.         '// Create ImageList dynamically.
    
16.         Dim img As New ImageList
    
17.         With img
    
18.             .ImageSize = New Point(128, 128)
    
19.             .ColorDepth = ColorDepth.Depth32Bit
    
20.         End With
    
21.         '//
    
22.         Dim itemFolder As New List(Of ListViewItem)
    
23.         For Each imgFile In Directory.GetFiles(dlgFolderBrowse.SelectedPath.ToString())
    
24.             If imgFile.Contains(".png") Or imgFile.Contains(".jpg") Or imgFile.Contains(".bmp") Or imgFile.Contains(".gif") Then
    
25.                 img.Images.Add(Image.FromFile(imgFile))
    
26.                 itemFolder.Add(New ListViewItem(Path.GetFileName(imgFile)) With {.ImageIndex = img.Images.Count - 1})
    
27.             End If
    
28.         Next
    
29.         With ListView1
    
30.             .Items.Clear()
    
31.             .View = View.LargeIcon
    
32.             .LargeImageList = img
    
33.             .Items.AddRange(itemFolder.ToArray())
    
34.         End With
    
35.     End Sub
    
36. 
    
37.     Private Sub frmListViewImage_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
38.         Label1.Text = ""
    
39.         With PictureBox1
    
40.             .SizeMode = PictureBoxSizeMode.StretchImage
    
41.             .Image = Image.FromFile(strPath & "people.png") '\\ Initialize to show sample image.
    
42.         End With
    
43.     End Sub
    
44. 
    
45.     Private Sub ListView1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
    
46.         Dim item As ListViewItem = ListView1.HitTest(e.Location).Item
    
47.         If item IsNot Nothing Then
    
48.             Me.PictureBox1.Image = Image.FromFile(strPath & item.Text)
    
49.             Label1.Text = "Image : " & strPath & item.Text
    
50.         End If
    
51.     End Sub
    
52. 
    
53.     Private Sub ListView1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged
    
54.         'For Each item As ListViewItem In ListView1.SelectedItems
    
55.         'MessageBox.Show(item.Text)
    
56.         'Next
    
57.     End Sub
    
58. 
    
59.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
60.         Me.Close()
    
61.     End Sub
    
62. 
    
63.     Private Sub frmListViewImage_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
64.         Me.Dispose()
    
65.         GC.SuppressFinalize(Me)
    
66.         Application.Exit()
    
67.     End Sub
    
68. 
    
69. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...