+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عرض ملفات PDF فى الفورم (/showthread.php?tid=29210)
عرض ملفات PDF فى الفورم - mr_hso - 31-03-19
السلام عليكم من جديد
استخدم هذا الكود لعرض ملف pdf
كود :
AxAcroPDF1.LoadFile(Application.StartupPath & "\pdf_db\" & DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim)فى السجلات التى ليس بها ملفات pdf يظل يعرض الملف السابق
وهذا ما اريد تعديله بحيث اذا توقفت على صف فى الـــ DataGridView ولا يوجد به ملفات pdf لا يعرض شي او حتى يغير الـــ Visible الخاص بملفات الــ pdf الى False
اتمنى ان اجد الحل
وجزاكم الله خيرا
RE: عرض ملفات PDF فى الفورم - بدري - 31-03-19
الحل ان تقرا الخليه ثم تنظر الى نهايه اسم الملف
اذا وجد في نهايه اسم الملف pdf. يقوم باظهار اداه AxAcroPDF1 مع فتحها
والا يخفي اداه AxAcroPDF1
يعني تقرا مثل
Dim a = DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim
فاذا كانت نهايه الاسم pdf.
If a.EndsWith(".pdf") Then
...
Else
...
End If
RE: عرض ملفات PDF فى الفورم - mr_hso - 31-03-19
(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