16-07-14, 05:13 PM
السلام عليكم ورحمة الله وبركاته
بما أن مسار الصورة في الــ Textbox الأخير اللي اسمو (TextBox7) ، إضغط عليه بالماوس (دبل كليك) ستفتح نافذة الكود وضع الكود التالي :
بما أن مسار الصورة في الــ 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

