[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