asp.net ½«×Ö·û´®Éú³ÉͼƬ - .NET¼¼Êõ / ASP.NET

ÎÒÏ뽫×Ö·û´®Éú³ÉÒ»ÕÅͼƬ£¬ÈçºÎд£¿

---

×Ö·û´®Éú³ÉͼƬ?

---

ÒýÓÃ

×Ö·û´®Éú³ÉͼƬ?

˵¼òµ¥µã¾ÍÊÇÉú³ÉÑéÖ¤ÂëµÄ·½·¨¡£

---

Private Sub Paint(ByVal strCode As String)
  Dim strImgPath As String = Server.MapPath("myCodeImg.jpg")
  Dim strTempPath As String = strImgPath
  System.IO.File.Delete(strImgPath)

  Const intWidth As Int16 = 400
  Const intHeight As Int16 = 150

  Dim myBimap As System.Drawing.Image = New System.Drawing.Bitmap(intWidth, intHeight)

  Dim myG As System.Drawing.Graphics = System.Drawing.Graphics.fromImage(myBimap)

  Dim myFont As System.Drawing.Font = New System.Drawing.Font("Ó×Ô²", 16, FontStyle.Bold)

  Dim myRect As System.Drawing.RectangleF = New System.Drawing.RectangleF(2, 2, intWidth, intHeight)

  Dim myBrush As System.Drawing.SolidBrush = New System.Drawing.SolidBrush(Color.White)

  myG.Clear(Color.Blue)

  myG.DrawString(strCode, myFont, myBrush, myRect)

  myBimap.Save(strTempPath, System.Drawing.Imaging.ImageFormat.Jpeg)
  Image1.ImageUrl = strTempPath
  myG.Dispose()
  myBimap.Dispose()
  End Sub