نسبت دادن این کد به خاصیت ImageUrl در image

[karim orooji]

با سلام
بچه ها من چطوری این کد به به یک image نسبت بدم که کد درش اجرا بشه




Try

Dim RandChar As New Random()
Dim objBitmap As Bitmap
Dim objGraphics As Graphics
objBitmap = New Bitmap(Server.MapPath("~/images/" & RandChar.Next(1, 11).ToString() & ".jpg"))
objGraphics = Graphics.FromImage(objBitmap)
Dim font As New Font("Times New Roman", 25)
Dim brush As New SolidBrush(Color.Black)
Dim password As String = CreatString(5)
Session("PHIRKING") = password.ToLower()
objGraphics.DrawString(password, font, brush, 2, 1)
objBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
objBitmap.Dispose()
objGraphics.Dispose()
Catch e1 As Exception
Response.Write("//")
End Try

[pedram_ns]

دقیقا کدوم متغیر رو می خواهید نسبت بدید.
به هر حال با این کد می تونید یک مقدار رو به ایمیج نسبت بدبد.
image1 نام کنترل image است.


image1.ImageUrl = your code

[karim orooji]

با سلام
این دستورات میاد یک کد رندوم ایجاد میکنه همون تصاویر امنیتیه
در پوشه ای که ضمیمه کردم حاوی 10 عدد عکسه ضمیمیه هم شده
این پس زمینه با کدی رندومی که ایجاد میشه رو به صورت یک عکس درمیاره و نمایش میده
حالا من میخوام این کد رو کنترولش کنم بیاد برام بریزه توی یک image
اگه این کد رو در برنامه استفاده کنی دیگه هیچ کنترولی برای برای شما نشان نمیدهد فقط عکسی از همان کد تولید شده نشان داده میدهد.
اینم نمونه :http://barnamenevis.org/forum/attachment.php?attachmentid=58326&stc=1&d=1286980054




Try

Dim RandChar As New Random()
Dim objBitmap As Bitmap
Dim objGraphics As Graphics
objBitmap = New Bitmap(Server.MapPath("~/images/" & RandChar.Next(1, 11).ToString() & ".jpg"))
objGraphics = Graphics.FromImage(objBitmap)
Dim font As New Font("Times New Roman", 25)
Dim brush As New SolidBrush(Color.Black)
Dim password As String = CreatString(5)
Session("PHIRKING") = password.ToLower()
objGraphics.DrawString(password, font, brush, 2, 1)
objBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
objBitmap.Dispose()
objGraphics.Dispose()
Catch ex As Exception
End Try





Public Function CreatString(ByVal _I As Int32) As String

Dim RandChar As New Random()
Dim j As Int32 = 0, i As Int32 = 0
Dim st As String = Nothing

Do While i < _I
j = (RandChar.Next(65, 122))
If j < 91 OrElse j > 96 Then

st &= ChrW(j)
i += 1
End If

Loop

Return st
End Function

[karim orooji]

نه دوست عزیز منظور منو هنوز نگرفته اید
پروژه رو ضمیمیه کردم
1- اگه در برنامه در فرممون کنترولی وجود داشته باشید نمایش نمیده
2- من میخوام اون عکس یا همون تصویر امنیتی در داخل جدول در قسمت تصویر امنیتی نمایش داده بشه