[VB.NET] การตรวจสอบรูปแบบไฟล์ภาพ อ่านขนาดไฟล์และแสดงสเกลของภาพ

thongkorn

เวลาที่เราให้ผู้ใช้เบราซ์ไฟล์ภาพ แม้ว่าจะมีฟิลเตอร์ หรือการกรองด้วยนามสกุลไฟล์ เช่น BMP, JPG หรือ PNG เอาไว้ แต่ในบางครั้งผู้ใช้งานกลับไปใช้ Wildcard *.* หรือการแสดงผลทุกๆไฟล์ออกมา แล้วเลือกไฟล์ที่ไม่ใช่ไฟล์ภาพ แม้ว่าเราจะใช้ Try Catch มาดักข้อผิดพลาดเอาไว้ มันจะแจ้ง Out of Memory ซึ่งตัวผู้ใช้เองก็ไม่รู้ว่ามันคืออะไร หรือแม้แต่ตัวเราก็อาจจะเข้าใจไปว่าเกิดการเลือกไฟล์ที่มีขนาดใหญ่เกินไป อย่ากระนั้นเลย เราควรจะทำตรวจสอบก่อนว่าไฟล์ที่ผู้ใช้เลือกนั้น มันเป็นไฟล์ภาพหรือไม่ น่าจะดีกว่าครับ ...


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

1. Public Class frmValidImage
   
2. 
   
3.     Private Sub frmValidImage_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Label1.Text = ""
   
5.         Label2.Text = ""
   
6.     End Sub
   
7. 
   
8.     ' / --------------------------------------------------------------------------
   
9.     Function IsValidImage(filename As String) As Boolean
   
10.         Try
    
11.             Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(filename)
    
12.         Catch generatedExceptionName As OutOfMemoryException
    
13.             Return False
    
14.         End Try
    
15.         Return True
    
16.     End Function
    
17. 
    
18.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
19.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
    
20.         '/ Open File Dialog
    
21.         With dlgImage
    
22.             .Title = "Select images"
    
23.             '/ Image types.
    
24.             .Filter = "Images types (*.jpg;*.png;*.gif;*.bmp)|*.jpg;*.png;*.gif;*.bmp"
    
25.             .FilterIndex = 1
    
26.             .RestoreDirectory = True
    
27.         End With
    
28.         '/ Select OK after Browse ...
    
29.         If dlgImage.ShowDialog() = DialogResult.OK Then
    
30.             '/ Valid Images.
    
31.             If Not IsValidImage(dlgImage.FileName) Then
    
32.                 MessageBox.Show("The file you selected is not an image file.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
33.                 Return
    
34.             End If
    
35.             '/ Get file size.
    
36.             Dim info As New System.IO.FileInfo(dlgImage.FileName)
    
37.             Label1.Text = "File Size: " & Format(info.Length / 1024, "#,##0.00") & " KB."
    
38.             '/ Get the scale.
    
39.             Dim img = Image.FromFile(dlgImage.FileName)
    
40.             Label2.Text = "Width x Height : " & (Format(Val(img.Width.ToString), "#,##0") & " x " & Format(Val(img.Height.ToString), "#,##0")) & " Pixels."
    
41.             '/
    
42.             picData.Image = Image.FromFile(dlgImage.FileName)
    
43.         End If
    
44. 
    
45.     End Sub
    
46. 
    
47. End Class

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

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

g2gsoftuser

ขอบคุณครับ