منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة فى كود عرض الصورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة فى كود عرض الصورة (/showthread.php?tid=19875)

الصفحات: 1 2


RE: مشكلة فى كود عرض الصورة - مصطفى_ظيمة - 04-04-17

تفضل اخى الكريم


RE: مشكلة فى كود عرض الصورة - abdualla - 04-04-17

المعذرة... المعذرة محتاج إعادة ترتيب وخصوصا أنه لا يحتوي شرح للأسطر في الكود.

اضع التصحيح لاحقا لتأخر الوقت.


RE: مشكلة فى كود عرض الصورة - مصطفى_ظيمة - 04-04-17

مافيش مشكلة خذ وقتك


RE: مشكلة فى كود عرض الصورة - abdualla - 04-04-17

هذا التعديل، اعتذر عن التاخير
PHP كود :
Private Sub ListView1_ItemSelectionChanged(sender As ObjectAs System.Windows.Forms.ListViewItemSelectionChangedEventArgsHandles ListView1.ItemSelectionChanged
        TextBox1
.Text e.Item.Tag
        Using ad 
As New OleDbDataAdapter("select * from Tab2 where id=@id"con)
            
ad.SelectCommand.Parameters.AddWithValue("@id"e.Item.Tag)
            
Dim t As New DataTable
            ad
.Fill(t)
            If 
t.Rows.Count 0 Then

                Dim bytes
() As Byte CType(t.Rows(0)("Picture"), Byte())
                
Dim memStream As MemoryStream = New MemoryStream(bytes)
                
PictureBox1.Image Image.FromStream(memStream)

            
End If
        
End Using
    End Sub 



RE: مشكلة فى كود عرض الصورة - مصطفى_ظيمة - 05-04-17

(04-04-17, 05:37 PM)abdualla كتب : هذا التعديل، اعتذر عن التاخير
PHP كود :
   Private Sub ListView1_ItemSelectionChanged(sender As ObjectAs System.Windows.Forms.ListViewItemSelectionChangedEventArgsHandles ListView1.ItemSelectionChanged
        TextBox1
.Text e.Item.Tag
        Using ad 
As New OleDbDataAdapter("select * from Tab2 where id=@id"con)
 
           ad.SelectCommand.Parameters.AddWithValue("@id"e.Item.Tag)
 
           Dim t As New DataTable
            ad
.Fill(t)
 
           If t.Rows.Count 0 Then

                Dim bytes
() As Byte CType(t.Rows(0)("Picture"), Byte())
 
               Dim memStream As MemoryStream = New MemoryStream(bytes)
 
               PictureBox1.Image Image.FromStream(memStream)

 
           End If
 
       End Using
    End Sub 

اعتذر لك أخى على التأخير فى متابعة ردك
ساقوم بتنفيذ التعديل وتجربته وأخبرك بالنتيجة وإن شاء الله يكون فيه الخير
أعذرنى أن تأخرت عليك فى اخبارك بالنتيجة حتى الغد
لك منى أجمل تحية , وإلى الملتقى فى الغد إن شاء الله


RE: مشكلة فى كود عرض الصورة - مصطفى_ظيمة - 05-04-17

أخى العزيز abdualla
الحمد لله الذى تتم بنعمته الصالحات
جزاك الله خيرا كثيراً انت ومن تحب
الكود يعمل بكفاءة
شكرا على تواصلك معى ومساعدتى فى مشكلتى
جزاك الله خيرا مرة أخرى