[kslawy]

السلام عليكم ورحمة الله وبركاته

أضيف للـ Form أداة الصور PictureBox ومعها زري أمر للإضافة والحذف

الآن إذهب إلي مصدر البيانات تبعك وقم بسحب حقل الصورة منه بالماوس وألقه علي أدة الصور كالتالي :

[ATTACH=CONFIG]2252[/ATTACH]


لإضافة صورة في أداة الصور كود :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ofd As New OpenFileDialog
        ofd.Filter = "Images files|*.jpg;*.gif;*.png;*.bmp|All files|*.*"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.PictureBox1.Image = Image.FromFile(ofd.FileName)
        End If
    End Sub

لحذف الصورة قبل حفظها كود :

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.PictureBox1.Image IsNot Nothing Then
   Me.PictureBox1.Image = Nothing
End If
    End Sub

بعد إدخال بياناتك واختيار الصورة المناسبة اضغط علي زر الحفظ لتظهر الصورة والبيانات مباشرة في أداة الـ Datagidview

[ATTACH=CONFIG]2253[/ATTACH]

****
***
**
*