seaprince46

مشكور أخوي محمد سعد رشاد على الهديه بس ياريت تركز شوووووووووووووووي

3- Loading TGA Files.rar

2- OpenGl2.rar

جزاك الله خيرا أخي hishamnasr وهذه أمثله أخرى على نفس الموضوع 1- OpenGl1.rar

أخي العزيز athen25 المثال مرفق في المشاركه الأولى

يعطيك الف عافيه أخوي RJD73_59 فعلا أفكار جميله جدا

في البداية يجب اضافة reference وذلك من: Project--> References ومن ثم تختار Microsoft Access10.0 Object Library أو Microsoft Access11.0 Object Library قم بكتابة التالي في التصريحات Private AppAccess As New Access.Application والتالي عند زر الأمر AppAccess.OpenC…

قم بكتابة التالي في التصريحات Private AppAccess As New Access.Application والتالي عند زر الأمر AppAccess.OpenCurrentDatabase App.Path & "\db1.mdb" AppAccess.Visible = True AppAccess.DoCmd.OpenReport "Report Name", acViewPreview AppAccess.DoCmd.PrintOut acPages…

شكرا لك أخي boooo7 على الكود الجميل

شكرا لك أخي boooo7 على البرنامج الجميل

مشكور أخي لنبهاني على الرابط

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

Dim a a = Shell(App.Path & "\notepad.exe", 1) مكان notepad.exe تستطيع وضع إسم البرنامج المراد تشغيله بشرط أن يكون في نفس مجلد البرنامج بتاعك أرجو أن أكون أفدت

شكرا لك أخي boooo7

شكرا لك أخي boooo7

مشكور أخي boooo7 على البرنامج لكن عندي ملاحظه بسيطه بعد إذنك وهو عند عملية إسترجاع الملف كما كان قبل التشفير يجيب على المستخدم كتابة الإسم القديم وإمتداده حتى يعمل الملف بشكل صحيج وفي هذه الحاله قد يكون الشخص غير متذكر للإسم والإمتداد القديم فأعتقد أنه من الأف…

جزاك الله خيرا أخي hichamchak وبإنتظار جديدك

الف شكر لك أخي محمد بدوي على المجهود الرائع سلامي لك

جزاك الله خيرا أخت بنت اليمن أبدعتي كالعاده

جزاكم الله خيرا إخواني الكرام