21-12-24, 02:49 PM
لإغلاق ملف PDF أو برنامج Adobe Acrobat بالكامل باستخدام الكود في Visual Basic.NET، يمكنك استخدام Process.Kill لإغلاق العملية المرتبطة بالملف أو البرنامج.
إغلاق الملف المحدد فقط (باستخدام المسار):
لا يمكن إغلاق ملف PDF مباشرة عن طريق المسار فقط، لأنه يعمل ضمن برنامج (مثل Adobe Acrobat). لذا، يجب أن تقوم بإغلاق العملية المرتبطة ببرنامج Acrobat إذا كان يفتح الملف المحدد.
إغلاق برنامج Acrobat بالكامل:
إذا كنت تريد إغلاق جميع عمليات Adobe Acrobat المفتوحة (بما في ذلك الملف المطلوب)، يمكنك استخدام الكود التالي:
الكود:
vb
نسخ الكود
إغلاق ملف PDF محدد فقط:
لإغلاق ملف PDF معين، يمكنك التأكد من إغلاق جميع العمليات المفتوحة لـ Adobe Acrobat أو التحقق إذا كان الملف قيد الاستخدام.
vb
نسخ الكود
استدعاء الكود:
vb
نسخ الكود
ملاحظات:
إغلاق الملف المحدد فقط (باستخدام المسار):
لا يمكن إغلاق ملف PDF مباشرة عن طريق المسار فقط، لأنه يعمل ضمن برنامج (مثل Adobe Acrobat). لذا، يجب أن تقوم بإغلاق العملية المرتبطة ببرنامج Acrobat إذا كان يفتح الملف المحدد.
إغلاق برنامج Acrobat بالكامل:
إذا كنت تريد إغلاق جميع عمليات Adobe Acrobat المفتوحة (بما في ذلك الملف المطلوب)، يمكنك استخدام الكود التالي:
الكود:
vb
نسخ الكود
كود :
Imports System.Diagnostics
Private Sub CloseAcrobatProcess()
Try
' الحصول على جميع العمليات المرتبطة ببرنامج Acrobat
For Each proc As Process In Process.GetProcessesByName("Acrobat")
proc.Kill() ' إغلاق العملية
Next
Catch ex As Exception
MessageBox.Show("تعذر إغلاق برنامج Acrobat: " & ex.Message)
End Try
End Subإغلاق ملف PDF محدد فقط:
لإغلاق ملف PDF معين، يمكنك التأكد من إغلاق جميع العمليات المفتوحة لـ Adobe Acrobat أو التحقق إذا كان الملف قيد الاستخدام.
vb
نسخ الكود
كود :
Imports System.Diagnostics
Private Sub CloseSpecificPdf(pdfPath As String)
Try
' التحقق من العمليات المرتبطة بـ Adobe Acrobat
For Each proc As Process In Process.GetProcessesByName("Acrobat")
' التحقق من سطر الأوامر إذا كان يشير إلى الملف المحدد
If proc.MainWindowTitle.Contains(pdfPath) Then
proc.Kill() ' إغلاق العملية
End If
Next
Catch ex As Exception
MessageBox.Show("تعذر إغلاق الملف المحدد: " & ex.Message)
End Try
End Subvb
نسخ الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CloseSpecificPdf("D:\myGoal\Goal1.Pdf")
End Subملاحظات:
- اسم العملية: اسم العملية الافتراضي لبرنامج Adobe Acrobat Reader هو
Acrobat - . في حالة استخدام برامج أخرى، قد تحتاج إلى التحقق من اسم العملية الفعلي باستخدام Task Manager.
- الأذونات: قد تحتاج إلى تشغيل البرنامج كمسؤول لإغلاق العمليات.
- Kill(): قد يؤدي إلى فقدان أي تغييرات غير محفوظة

