參考來源
--
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 實例化 OpenFileDialog
Dim op As New OpenFileDialog()
' 設定檔案的類型
op.Filter = "JPG|*.jpg|GIF|*.gif"
' 使用者選擇圖片,使用者選擇正確圖片路徑時
If op.ShowDialog() = Windows.Forms.DialogResult.OK Then
' 實例化 FileStream
Dim fs As New FileStream(op.FileName, FileMode.Open)
Dim Data(fs.Length) As Byte
' 把檔案讀取到位元組陣列
fs.Read(Data, 0, fs.Length)
fs.Close()
' 實例化一個記憶體資料流 MemoryStream,將位元組陣列放入
Dim ms = New MemoryStream(Data)
' 將記憶體資料流的資料顯示於 PictureBox 中
Me.PictureBox1.Image = Image.FromStream(ms)
ms.Dispose()
End If
End Sub
End Class
沒有留言:
張貼留言