[mr_hso]

السلام عليكم من جديد
استخدم هذا الكود لعرض ملف pdf 

كود :

AxAcroPDF1.LoadFile(Application.StartupPath & "\pdf_db\" & DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim)

لكن هناك مشكلة وهي 
فى السجلات التى ليس بها ملفات pdf  يظل يعرض الملف السابق
وهذا ما اريد تعديله بحيث اذا توقفت على صف فى الـــ  DataGridView ولا يوجد به ملفات pdf  لا يعرض شي او حتى يغير الـــ   Visible   الخاص بملفات الــ  pdf  الى   False 
اتمنى ان اجد الحل 
وجزاكم الله خيرا

[بدري]

الحل ان تقرا الخليه ثم تنظر الى نهايه اسم الملف
اذا وجد في نهايه اسم الملف pdf. يقوم باظهار اداه AxAcroPDF1 مع فتحها
والا يخفي اداه AxAcroPDF1

يعني تقرا مثل
Dim a = DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim
 فاذا كانت نهايه الاسم pdf. 
If a.EndsWith(".pdf") Then
...
Else
...
End If

[mr_hso]

(31-03-19, 07:44 PM)بدري كتب : الحل ان تقرا الخليه ثم تنظر الى نهايه اسم الملف
اذا وجد في نهايه اسم الملف pdf. يقوم باظهار اداه AxAcroPDF1 مع فتحها
والا يخفي اداه AxAcroPDF1

يعني تقرا مثل
Dim a = DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim
 فاذا كانت نهايه الاسم pdf. 
If a.EndsWith(".pdf") Then
...
Else
...
End If

شكرا اخي العزيز بكري
وفقق الله وذادك علما

---

الكود كامل حتى تعم الفائدة

كود :

Dim a = DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim
       If a.EndsWith(".pdf") Then
           AxAcroPDF1.Visible = True
           AxAcroPDF1.LoadFile(Application.StartupPath & "\pdf_db\" & DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim)
       Else
           AxAcroPDF1.Visible = False
       End If