Question

我的项目有一个小问题。我有一个从输入文件（png或jpeg）获得的图像。

我想剪切此图像以使宽度等于高度，以便稍后将此图像上传到服务器（裁剪图像）。我设法调整了图像大小，但没有剪切。

我希望你能帮助我。

PS 1：对不起我的英文。

PS 2：如果您需要我的基本代码：

'OBTAIN IMAGE OF INPUT
Dim Imagen_Original As System.Drawing.Image = System.Drawing.Image.FromStream(Elegir_Avatar.PostedFile.InputStream)

Dim Ruta_Avatar As String
Dim Nombre_Imagen As String

Dim Ancho As Integer = Imagen_Original.Width
Dim Alto As Integer = Imagen_Original.Height
Dim Nueva_Medida As Integer
Dim Recortar As Integer = 0

If Ancho > Alto Then
    'LEAVE WIDTH (ANCHO)
    Recortar = Ancho - Alto
    Nueva_Medida = Ancho - Recortar      

    'CODE FOR HEIGHT = WIDTH

    Ruta_Avatar = "~\Avatar_Comunidad\"
    Nombre_Imagen = "" & Session("usuario") & "_" & Nombre_Comunidad.Value & ".jpg"
    Nueva_Imagen.Save(Server.MapPath(Ruta_Avatar & Nombre_Imagen), ImageFormat.Jpeg)

ElseIf Ancho < Alto Then
    'LEAVE HEIGHT (ALTO)
    Recortar = Alto - Ancho
    Nueva_Medida = Alto - Recortar

    'CODE FOR HEIGHT = WIDTH

    Ruta_Avatar = "~\Avatar_Comunidad\"
    Nombre_Imagen = "" & Session("usuario") & "_" & Nombre_Comunidad.Value & ".jpg"
    Nueva_Imagen.Save(Server.MapPath(Ruta_Avatar & Nombre_Imagen), ImageFormat.Jpeg)

ElseIf Ancho = Alto Then   

    'HEIGHT AND WIDTH ARE EQUALS
    Ruta_Avatar = "~\Avatar_Comunidad\"
    Nombre_Imagen = "" & Session("usuario") & "_" & Nombre_Comunidad.Value & ".jpg"
    Imagen_Original.Save(Server.MapPath(Ruta_Avatar & Nombre_Imagen), ImageFormat.Jpeg)
End If

裁剪图像并将其上传到服务器

0 个答案: