منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الصورة في سكول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
هل افضل نوع للصورة
image
وسؤالي مثلا البحث في id
وعند الضغط 1
تظهر الصورة الخاصة ب1 التي تم حفظها من قبل في PictureBox
ماهو الكود عند الضغط على الرقم مثلا1 يظهر الصورة الخاصة به في PictureBox
السلام عليكم

انظر الى هذا الموضوع

http://www.vb4arb.com/vb/thread-1075.html

تحياتي
شكرا للرد ولكن انا لاستخدم linq
طيب

انظر الى الموضوع التالي:

http://www.vb4arb.com/vb/thread-336.html

تحياتي
شوف المثال هذا استخدمت نوع بيناري
السلام عليكم
هذا هو كود عرض الصورة حسب البحث ولكن المشكلة اذا كان حقل الصورة imm
لايحتوي صورة يعطي خطا ولكن اذا كان يحتوي صورة لايعطي خطا مالحل
والخطا يظهر
[b] imgByteArray = ds2.Tables(0).Rows(0).Item(0)[/b]
[Try
Dim ds2 As New DataSet
Dim add As New addshed
ds2 = add.dayByNumcture(Val(TXTBiD.Text))
If ds2.Tables(0).Rows.Count > 0 Then

Dim imgByteArray() As Byte
[b] imgByteArray = ds2.Tables(0).Rows(0).Item(0)[/b]

Dim Stream As New MemoryStream(imgByteArray, True)
Dim Img As System.Drawing.Image = New Bitmap(Stream)
imgSave.Image = Img
End If


Catch ex As Exception
addpicture2()
End Try/code]
مع العلم ان داتا sql server2008r2
typ image
محتاج مساعدة للجواب لو سمحتم
هذا هو كود عرض الصورة حسب البحث ولكن المشكلة اذا كان حقل الصورة imm
لايحتوي صورة يعطي خطا ولكن اذا كان يحتوي صورة لايعطي خطا مالحل
والخطا يظهر
imgByteArray = ds2.Tables(0).Rows(0).Item(0)
[Try
Dim ds2 As New DataSet
Dim add As New addshed
ds2 = add.dayByNumcture(Val(TXTBiD.Text))
If ds2.Tables(0).Rows.Count > 0 Then

Dim imgByteArray() As Byte
imgByteArray = ds2.Tables(0).Rows(0).Item(0)

Dim Stream As New MemoryStream(imgByteArray, True)
Dim Img As System.Drawing.Image = New Bitmap(Stream)
imgSave.Image = Img
End If


Catch ex As Exception
addpicture2()
End Try/code]
تعمل شرط للتأكد من وجود الصورة اولاً كالتالي :

كود :
if not ds2.Tables(0).Rows(0).Item(0).isnull then

Dim imgByteArray() As Byte
imgByteArray = ds2.Tables(0).Rows(0).Item(0)

Dim Stream As New MemoryStream(imgByteArray, True)
Dim Img As System.Drawing.Image = New Bitmap(Stream)
imgSave.Image = Img

end if
شكرا للرد
لدي سؤال لو سمحتم
select mm from tab1
كتابة كود الاستعلام الخاص بعرض mm
وهو نوع image
اريد عرض كلmm عندما تكون تحتوي صورة
اي الذي يحتوي صور فقط
كيفية تصحيح الاستعلام لو سمحتم