'*** Save to imageExif ***' UlFileName = "images/" & FileUpload1.FileName Me.FileUpload1.SaveAs(Server.MapPath("images/" & FileUpload1.FileName)) NewFileName = "images/New_" & FileUpload1.FileName Me.LblText1.Text = "File Name : " & FileUpload1.FileName Me.LblText2.Text = "File Size : " & FileUpload1.PostedFile.ContentLength Me.LblText3.Text = "File Type : " & FileUpload1.PostedFile.ContentType lblComplete.Text = " บันทึกไฟล์เสร็จสมบูรณ์ " Dim objBitmap As Bitmap = New System.Drawing.Bitmap(Server.MapPath(UlFileName)) Dim objGraphic As Graphics = Graphics.FromImage(objBitmap) '*** Text Align ***' Dim strFormat As New StringFormat strFormat.Alignment = StringAlignment.Far '*** .Near (Left) , .Far (Right) ***' strFormat.LineAlignment = StringAlignment.Far '*** .Near (Top) , .Far (Down) ***' '*** Save As ***' objBitmap.Save(Server.MapPath(NewFileName), ImageFormat.Jpeg) '*** Close ***' objGraphic.Dispose() '*** Nothing ***' objBitmap = Nothing objGraphic = Nothing '*** View Images ***' Me.imgPicture1.Visible = True Me.imgPicture1.ImageUrl = NewFileName
Quote:objBitmap.Save(Server.MapPath(NewFileName), ImageFormat.Jpeg)
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง