Установите высоту и ширину изображения - PullRequest
1 голос
/ 09 февраля 2012

Я использую приведенный ниже код для добавления изображений и хотел бы установить ширину и высоту изображения.

Как добавить существующий код:

 Dim urls As New List(Of String)
 urls.Add("~/DownloadedImages/" & Session("tempDir").ToString & "/" & filename
 For Each imageURL As String In urls
 Me.FinalPreview.Controls.Add(New System.Web.UI.WebControls.Image() With {.ImageUrl = imageURL})
 Next imageURL

Ответы [ 2 ]

1 голос
/ 04 апреля 2013
     If btnBrowse.HasFile Then
        Dim fileName As String = ""

dim imgHeight как целое число = 25 dim imgWeight как целое число = 25

        fileName = Path.GetRandomFileName.Replace(".", " ") & ".png"
        lblImagePath.Text = ConfigurationManager.AppSettings("imgPath").ToString() & fileName
        If File.Exists(Server.MapPath("objectimages") & "/" & btnBrowse.FileName) Then
            File.Delete(Server.MapPath("objectimages") & "/" & btnBrowse.FileName)
        End If
        btnBrowse.SaveAs(Server.MapPath("objectimages") & "/" & btnBrowse.FileName)

        Dim image As Image = image.FromFile(Server.MapPath("objectimages") & "/" & btnBrowse.FileName)
        Dim thumbnailImage As Image = image.GetThumbnailImage(imgHeight , imgWeight , Nothing, IntPtr.Zero)
        '  Response.ContentType = "image/Jpeg/png/jpg"
        'thumbnailImage.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        '  btnBrowse.SaveAs(Server.MapPath("objectimages") & "/" & btnBrowse.FileName)
        Dim bmp As Bitmap = CType(thumbnailImage, Bitmap)

        bmp.Save(Server.MapPath("objectimages") & "/" & fileName)

        bmp.Dispose()



    End If
1 голос
/ 09 февраля 2012

Я не уверен насчет синтаксиса VB, но элемент управления изображением имеет свойства высоты и ширины, которые, я думаю, будут отображаться как атрибуты height и width самого тега изображения. Поэтому попробуйте передать их так же, как вы указали свойство ImageUrl при создании элемента управления.

...