منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فتح ملف bdf داخل الاداة Adobe PDF Reader - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : فتح ملف bdf داخل الاداة Adobe PDF Reader (/showthread.php?tid=9041)

الصفحات: 1 2 3


فتح ملف bdf داخل الاداة Adobe PDF Reader - ali.alfoly - 30-05-13

المشكلة ان عدد الملفات كتير
طيب سؤال متى يتم حذف الملف من Temp


فتح ملف bdf داخل الاداة Adobe PDF Reader - @@أبورائد@@ - 30-05-13

ali.alfoly كتب :المشكلة ان عدد الملفات كتير
طيب سؤال متى يتم حذف الملف من Temp


السلام عليكم ورحمة الله وبركاته






هذا الأمر متروك لنظام التشغيل Windows أو إذا قمت بتنظيف الهارديسك عن طريق أداة خاصة بذلك في النظام.





السلام عليكم ورحمة الله وبركاته



فتح ملف bdf داخل الاداة Adobe PDF Reader - سعود - 30-05-13

انت ممكن تستخرج الملف الى مجلد انت تحدده وكذا تقدر تحذفه متى ماحبيت.
الطريقة
امسح امتداد الملف مثلا هكذا file.pdf
اجعله هكذا file
ثم اضف الملف الى الريسورس باختيار نوع other
وعند الاستخراج
كود :
My.Computer.FileSystem.WriteAllBytes("file.pdf", My.Resources.file, False)

وبعد ذلك تسند للاداة بشكل طبيعي


فتح ملف bdf داخل الاداة Adobe PDF Reader - سعود - 30-05-13

آمل ان تكون توصلت للمطلوب سواء من مشاركتي الاخيرة او من المشاركات السابقة للاخوة الفضلاء.


فتح ملف bdf داخل الاداة Adobe PDF Reader - @@أبورائد@@ - 30-05-13


السلام عليكم ورحمة الله وبركاته






على العموم....

نادراً تجد برنامج لا يضع ملفات مؤقتة في مجلد Temp مهما كان عددها ولا يكترث لذلك، وأقول لك ببساطة لا تكترث واترك الأمر لنظام التشغيل أسوة بجميع البرامج، واطمئن ستحذف بعد فترة أو حسب ما يراه النظام من الوقت المناسب.





السلام عليكم ورحمة الله وبركاته



فتح ملف bdf داخل الاداة Adobe PDF Reader - سعود - 30-05-13

اظن انه يريد حماية للملفات .. فالمجلد المؤقت (اظن) انه يناسب الملفات الغير مهمة للمبرمج.


فتح ملف bdf داخل الاداة Adobe PDF Reader - @@أبورائد@@ - 30-05-13

سعود كتب :اظن انه يريد حماية للملفات .. فالمجلد المؤقت (اظن) انه يناسب الملفات الغير مهمة للمبرمج.


السلام عليكم ورحمة الله وبركاته





عفواً... الحماية من ماذا؟! هل تقصد أخذ نسخة من الملف.

إذا كان كذلك، فالأداة تظهر زر الحفظ فطريقتين، وبهذه يمكن للمستخدم من حفظ نسخة من الملف.






السلام عليكم ورحمة الله وبركاته



فتح ملف bdf داخل الاداة Adobe PDF Reader - سعود - 30-05-13

طيب هل يمكن تعطيل ذلك الزر من الكود؟


فتح ملف bdf داخل الاداة Adobe PDF Reader - ali.alfoly - 30-05-13

اخوانى جزاكم الله خيرا وزادكم من علمه ونفعكم به فى الدنيا والاخرة
فعلا كان المقصود الحماية من البداية لذلك وضعت الملفات فى الريسورس وقررت عرضها فى البرنامج عن طريق هذه الاداة ولاكن فجائنا اخى ابو رائد بذلك الزر
وكما ذكر اخى سعود هل من حل لتعطيل هذا الزر

وللعلم عدد هذه الملفات يتعدى 1600 ملف
وحجمها يتعدى 1 جيجة


فتح ملف bdf داخل الاداة Adobe PDF Reader - @@أبورائد@@ - 30-05-13

سعود كتب :طيب هل يمكن تعطيل ذلك الزر من الكود؟

ali.alfoly كتب :اخوانى جزاكم الله خيرا وزادكم من علمه ونفعكم به فى الدنيا والاخرة
فعا كان المقصود الحماية من البداية لذلك وضعت الملفات فى الريسورس وقررت عرضها فى البرنامج عن طريق هذه الاداة ولاكن فجائنا اخى ابو رائد بذلك الزر
وكما ذكر اخى سعود هل من حل لتعطيل هذا الزر


السلام عليكم ورحمة الله وبركاته




الحمد لله...... وجدت هذا الكود (كود الحيلة) يقوم بغلق مربع حوار Save As عند بداية ظهوره... لعله يفيد.. ولكن يجب تجربته على ويندوز عربي أيضاً للإطمئنان

ضع تايمر Timer
Enabled=True
Interval=1

وضع هذا الكود

PHP كود :
Const WM_CLOSE As UInteger = &H10
    
<Runtime.InteropServices.DllImport("user32.dll"EntryPoint:="FindWindow"SetLastError:=True)> _
    
Private Shared Function FindWindow(ByVal lpClassName As StringByVal lpWindowName As String) As IntPtr
    End 
Function
    <
Runtime.InteropServices.DllImport("user32.dll"CharSet:=Runtime.InteropServices.CharSet.Auto)> _
    
Private Shared Function SendMessage(ByVal hWnd As IntPtrByVal Msg As UInt32ByVal wParam As IntPtrByVal lParam As IntPtr) As IntPtr
    End 
Function
    Private 
Sub Timer1_Tick(ByVal sender As ObjectByVal e As EventArgsHandles Timer1.Tick
        Dim dialogBoxText 
As String "Save As"
        
SendMessage(FindWindow(NothingdialogBoxText), WM_CLOSEIntPtr.ZeroIntPtr.Zero)
    
End Sub 





السلام عليكم ورحمة الله وبركاته