منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم من جديد
استخدم هذا الكود لعرض ملف 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

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mr_hso

بدري

mr_hso