21-07-20, 07:09 PM
السلام عليكم
لدي مشكله ف التحقق
If Not IsDBNull(dr(11)) Then
'PictureBox1.image
Dim Pictur() As Byte = (CType(dr(11), Byte()))
Dim ms As New MemoryStream(Pictur)
PictureBox1.Image = Image.FromStream(ms)
Else
MsgBox("لاتوجد صورة ", MsgBoxStyle.Exclamation, "تنبيه")
End If
مشكله في IsDBNull يعطي ف خطا عند تنفيذ
لدي مشكله ف التحقق
If Not IsDBNull(dr(11)) Then
'PictureBox1.image
Dim Pictur() As Byte = (CType(dr(11), Byte()))
Dim ms As New MemoryStream(Pictur)
PictureBox1.Image = Image.FromStream(ms)
Else
MsgBox("لاتوجد صورة ", MsgBoxStyle.Exclamation, "تنبيه")
End If
مشكله في IsDBNull يعطي ف خطا عند تنفيذ
