+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد لغات الويب (http://vb4arb.com/vb/forumdisplay.php?fid=119)
+---- الموضوع : انشاء صور تلقائياً في صفحة ويب من خلاص ASP.net (/showthread.php?tid=6387)
انشاء صور تلقائياً في صفحة ويب من خلاص ASP.net - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
الصفحة الأساسية تتم كتابتها بالشكل التالي :كود :
[color=#000080]<html>[/color]
[color=#000080]<head>[/color][color=#000080]<title>[/color]DisplayCircle.aspx[color=#000080]</title>[/color][color=#000080]</head>[/color]
[color=#000080]<body>[/color]
[color=#000080]<h1>[/color]Here is an image:[color=#000080]</h1>[/color]
[color=#800080]<img src=[COLOR=#0000ff]"Circle.aspx"[/color]>[/COLOR]
[color=#000080]<h1>[/color]The image appears above![color=#000080]<h1>[/color]
[color=#000080]</body>[/color]
[color=#000080]</html>[/color]كود :
<%@ Page ContentType="image/gif" %>
<%@ Import namespace="System.Drawing" %>
<%@ Import namespace="System.Drawing.Imaging" %>
<Script Runat="Server">
Sub Page_Load
Dim objBitmap As Bitmap
Dim objGraphics As Graphics
' Create Bitmap
objBitmap = New Bitmap( 200, 200 )
' Initialize Graphics Class
objGraphics = Graphics.FromImage( objBitmap )
objGraphics.FillEllipse( Brushes.Red, 0, 0, 200, 200 )
' Display Bitmap
objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
End Sub
</Script>