30-06-16, 02:32 AM
مع أن هذا الكود صحيح 100 % ولكن يعطيني أنه في مشكلة 
مع انه يوجد مثل هذا الاداة في فورم اخر ولا يعطي مشكلة ؟؟
مع انه يوجد مثل هذا الاداة في فورم اخر ولا يعطي مشكلة ؟؟
30-06-16, 02:41 AM
(30-06-16, 02:32 AM)Deya R Ataya كتب : [ -> ]مع أن هذا الكود صحيح 100 % ولكن يعطيني أنه في مشكلةجرب استخدام هذه الطريقة
مع انه يوجد مثل هذا الاداة في فورم اخر ولا يعطي مشكلة ؟؟
كود :
Dim OpenFileDialog1 As New OpenFileDialog
Try
OpenFileDialog1.FileName = String.Empty
OpenFileDialog1.Filter = "Image File (*.jpg;*bmp;*.gif;*.png;*.jpeg;)|*.jpg;*bmp;*.gif;*.png;*.jpeg;"
OpenFileDialog1.ShowDialog()
If Not OpenFileDialog1.FileName = String.Empty Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
Catch ex As Exception
End Try30-06-16, 03:11 PM
الاخوة الكرام الطرق جميعها لم تنجح للاسف
اكتشفت ان المشكلة من هذا الكود بعد ازالته ولكن لا ادري ما مشكلة فيه
Try
Dim SQLStr As String = "SELECT * from skin"
Dim DataAdapter1 As New OleDbDataAdapter(SQLStr, Conn)
Conn.Open()
DataSet1 = New DataSet
DataAdapter1.Fill(DataSet1, "skin")
Conn.Close()
PictureBox3.DataBindings.Clear()
PictureBox3.DataBindings.Add("image", DataSet1, "skin.papic", True)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "خطأ")
End Try
اكتشفت ان المشكلة من هذا الكود بعد ازالته ولكن لا ادري ما مشكلة فيه
Try
Dim SQLStr As String = "SELECT * from skin"
Dim DataAdapter1 As New OleDbDataAdapter(SQLStr, Conn)
Conn.Open()
DataSet1 = New DataSet
DataAdapter1.Fill(DataSet1, "skin")
Conn.Close()
PictureBox3.DataBindings.Clear()
PictureBox3.DataBindings.Add("image", DataSet1, "skin.papic", True)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "خطأ")
End Try
30-06-16, 06:01 PM
30-06-16, 09:12 PM
01-07-16, 02:21 AM
01-07-16, 02:37 AM
رمية من غير رامي 