Stay Signed In
Do you want to access your site more quickly on this computer? Check this box, and your username and password will be remembered for two weeks. Click logout to turn this off.
Stay Safe
Do not check this box if you are using a public computer. You don't want anyone seeing your personal info or messing with your site.
'عرض عداد الزوار باسلوب صورة مرسومه بشكل مميز Dim imgNew As System.Drawing.Image = New Bitmap(1, 1) Dim gc As Graphics = Graphics.FromImage(imgNew) Dim font As Font = New Font("Verdana", 12, FontStyle.Underline) Dim size As SizeF = gc.MeasureString(HitCounter, font) Dim width As Integer = CType(size.Width, Integer) + 1 Dim height As Integer = CType(size.Height, Integer) + 1 imgNew = New Bitmap(width, height) gc = Graphics.FromImage(imgNew) gc.FillRectangle(Brushes.White, 0, 0, width, height) gc.DrawString(HitCounter, font, Brushes.Black, 0, 0) imgNew.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)
.png)
.jpg)
.jpg)
