<%@ Page Language="VB" %> <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Imaging" %> <script runat="server"> Sub Page_Load(sender As Object, e As EventArgs) Dim intWidth,intHeight As Integer Dim FileName As String intWidth = 400 intHeight = 200 FileName = "MyImages/Images.jpg" Dim objBitmap As Bitmap = New Bitmap(intWidth, intHeight) Dim objGraphic As Graphics = Graphics.FromImage(objBitmap) objGraphic.FillRectangle(Brushes.Maroon, 0, 0, intWidth, intHeight) '*** Save As ***' objBitmap.Save(Server.MapPath(FileName), ImageFormat.jpeg) '*** Close ***' objGraphic.Dispose() '*** Nothing ***' objBitmap = Nothing objGraphic = Nothing '*** View Images ***' Me.imgPicture.ImageURL = FileName End Sub </script> <html> <head> <title>ThaiCreate.Com ASP.NET - Images (System.Drawing)</title> </head> <body> <form id="form1" runat="server"> <asp:Image id="imgPicture" runat="server" /> </form> </body> </html> </form>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 02
