[kslawy]

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

بما أن مسار الصورة في الــ Textbox الأخير اللي اسمو (TextBox7) ، إضغط عليه بالماوس (دبل كليك) ستفتح نافذة الكود وضع الكود التالي :

PHP كود :

Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

       If TextBox7.Text <> "" Then

            ' التحقق من وجود مسار الملف بالجهاز
            If IO.File.Exists(TextBox7.Text) = True Then

                ' حفظ امتداد الملف في متغير نصي للمقارنة
                Dim Ext As String = IO.Path.GetExtension(TextBox7.Text)

                ' التحقق من أن مسار الملف المعروض ملف صور وليس ملفا آخر
                If Ext = ".jpg" OrElse Ext = ".gif" OrElse Ext = ".png" Then
                    ' عرض الصورة
                    PictureBox1.Image = Image.FromFile(TextBox7.Text)

                Else
                    ' تفريغ أداة الصور
                    PictureBox1.Image = Nothing

                End If

            End If

        End If

    End Sub