28-12-18, 08:38 PM
السلام عليكم ورحمة اللـه وبركاته ... اخوتى الاعزاء
استعمل وظيفة OpenFileDialog حتى اتيح للمستخدم اختيار الصورة لارفاقها مع السجل ولكن بكل اسف تعمل مرة واحدة فقط وعند اضافة سجل جديد يتوقف البرنامج ويشير الى هذه الوظيفة بحدوث خطا ... وفيما يلى النص البرمجى لتشغيل وظيفة ادراج الصورة :
Dim ofd As New OpenFileDialog()
Dim filename As String
ofd.Title = "ارفق الصورة من هنا"
ofd.Filter = "jpg |*.jpg |gif |*.gif |bmp |*.bmp |JPG |*jpg"
If ofd.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
filename = ofd.FileName
Try
txtPath.Text = filename
Photo1.Image = Image.FromFile(filename)
Catch ex As Exception
MessageBox.Show("You have Selected Something Wrong")
End Try
End If
مع التفضل بالعلم بانى اعمل على نسخة فيجوال ستديو 2010
مع خالص احترامى وتقديرى،،
استعمل وظيفة OpenFileDialog حتى اتيح للمستخدم اختيار الصورة لارفاقها مع السجل ولكن بكل اسف تعمل مرة واحدة فقط وعند اضافة سجل جديد يتوقف البرنامج ويشير الى هذه الوظيفة بحدوث خطا ... وفيما يلى النص البرمجى لتشغيل وظيفة ادراج الصورة :
Dim ofd As New OpenFileDialog()
Dim filename As String
ofd.Title = "ارفق الصورة من هنا"
ofd.Filter = "jpg |*.jpg |gif |*.gif |bmp |*.bmp |JPG |*jpg"
If ofd.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
filename = ofd.FileName
Try
txtPath.Text = filename
Photo1.Image = Image.FromFile(filename)
Catch ex As Exception
MessageBox.Show("You have Selected Something Wrong")
End Try
End If
مع التفضل بالعلم بانى اعمل على نسخة فيجوال ستديو 2010
مع خالص احترامى وتقديرى،،