如何使用vb.net和SQL Server來裁剪和調整圖像大小

Question

我正在使用vb.net和sql server 2008和一個picturebox上傳照片。 這就是我想要做的。

1.圖片可以是任何東西。它可以是位圖，JPG，PNG，任何東西 2.從我的電腦上傳圖像 3.裁剪圖像並調整大小以適合我的圖片框。 4.將它保存到SQL Server數據庫

這是我的工作代碼，用於上載和保存圖像到數據庫中。

Public Class Form1 
    Dim a As New OpenFileDialog 

Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick 
     Dim picl as string 
     a.filter = nothing 
     picl = a.filename 
     a.showdialog() 
     picturebox1.image = image.fromfile(a.filename) 
End Sub 

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click 
cn.Open() 
    Using cmd As New SqlClient.SqlCommand("dbo.uspAdd", cn) 
       cmd.CommandType = CommandType.StoredProcedure 
       cmd.Parameters.Add(New SqlClient.SqlParameter("@customerPic", SqlDbType.Image)).Value = IO.File.ReadAllBytes(a.FileName) 
       cmd.ExecuteNonQuery() 
       MsgBox("Save Record New record Successfully") 
      End Using 
cn.close 
End Sub 

我已經閱讀了一些參考資料，但它不適用於我，現在我堅持了將近一個小時。 這是我試過的。

Imports System.Drawing.Drawing2D 
    Public Class Form1 
    Dim a As New OpenFileDialog 
    Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick 
     Dim picl As String 
     a.Filter = Nothing 
     picl = a.FileName 
     a.ShowDialog() 
     PictureBox1.Image = Image.FromFile(a.FileName) 
     Dim OriginalImage = Image.FromFile(a.FileName) 
     Dim CropRect As New Rectangle(100, 0, 100, 100) 
     Dim CropImage = New Bitmap(CropRect.Width, CropRect.Height) 
     Using grp = Graphics.FromImage(CropImage) 
      grp.DrawImage(OriginalImage, New Rectangle(0, 0, CropRect.Width, CropRect.Height), CropRect, GraphicsUnit.Pixel) 
      OriginalImage.Dispose() 
     End Using 
    End Sub 

有人可以幫我解決我的代碼。任何幫助將非常感激。由於

Answer 1

可以裁剪圖像並指定路徑和裁剪後的圖像與下面的代碼示例的名字，反正烏爾SQL溫控功能需要映像文件的路徑

Dim LocX = 100 'x cord. of where crop starts 
    Dim LocY = 0 'y cord. of where crop starts 
    Dim CropW = 100 'Crop width 
    Dim CropH = 100 'Crop height 
    Dim CropRect As New Rectangle(LocX, LocY, CropW, CropH) 
    Dim OriginalImage = PictureBox1.Image 
    Dim CropImage = New Bitmap(CropRect.Width, CropRect.Height) 
    Using grp = Graphics.FromImage(CropImage) 
     grp.DrawImage(OriginalImage, New Rectangle(0, 0, CropRect.Width, CropRect.Height), CropRect, GraphicsUnit.Pixel) 
     CropImage.Save("cropped file path and name here") 
    End Using