Установите высоту и ширину изображения

Question

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

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

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 

Answer 1

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

Answer 2

 If btnBrowse.HasFile Then 
     Dim fileName As String = "" 

тусклый imgHeight целочисленный = 25 тусклый 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