raravaice
شنبه 08 اردیبهشت 1386, 20:07 عصر
دوستان عزیز خسته نباشید
من توی برنامه سورسی نوشتم که با اون text را به فرمت jpeg برمیگردونه ولی کیفیت مطلوبی نداره برای استفاده حذاکثر از کیفیت نیاز به سورس یا توابع جدید دارم با تشکر از راهنمایی شما
این هم یک نمونه سورس کوچکی که نوشته شده :
Dim objBitmap As Bitmap
Dim objGraphics As Graphics
Dim objBGColor AsObject
Dim objBorderColor AsObject
Dim objPBColor AsObject
Dim objBrush As SolidBrush
Dim objPen As Pen
Dim objFont As Font
objFont = New Font("tahoma", 12, FontStyle.Bold)
objBorderColor = Pens.Blue
objBGColor = Color.Red
objPen = New Pen(Color.Blue)
objBrush = New SolidBrush(Color.Red)
objBitmap = New Bitmap(410, 30)
objGraphics = Graphics.FromImage(objBitmap)
objGraphics.Clear(objBGColor)
objGraphics.DrawRectangle(objPen, 5, 5, 400, 20)
Response.ClearContent()
objGraphics.FillRectangle(objBrush, 5, 5, CInt(100 + 5), 20)
objGraphics.DrawString(CStr("100") & " %", objFont, Brushes.Black, 200, 5)
objBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
در ضمن من فقط نیاز دارم که عکس با فرمت jpeg برگرده
من توی برنامه سورسی نوشتم که با اون text را به فرمت jpeg برمیگردونه ولی کیفیت مطلوبی نداره برای استفاده حذاکثر از کیفیت نیاز به سورس یا توابع جدید دارم با تشکر از راهنمایی شما
این هم یک نمونه سورس کوچکی که نوشته شده :
Dim objBitmap As Bitmap
Dim objGraphics As Graphics
Dim objBGColor AsObject
Dim objBorderColor AsObject
Dim objPBColor AsObject
Dim objBrush As SolidBrush
Dim objPen As Pen
Dim objFont As Font
objFont = New Font("tahoma", 12, FontStyle.Bold)
objBorderColor = Pens.Blue
objBGColor = Color.Red
objPen = New Pen(Color.Blue)
objBrush = New SolidBrush(Color.Red)
objBitmap = New Bitmap(410, 30)
objGraphics = Graphics.FromImage(objBitmap)
objGraphics.Clear(objBGColor)
objGraphics.DrawRectangle(objPen, 5, 5, 400, 20)
Response.ClearContent()
objGraphics.FillRectangle(objBrush, 5, 5, CInt(100 + 5), 20)
objGraphics.DrawString(CStr("100") & " %", objFont, Brushes.Black, 200, 5)
objBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
در ضمن من فقط نیاز دارم که عکس با فرمت jpeg برگرده