[ابو روضة]

(13-12-19, 05:34 PM)3booody كتب : والله اخي عملتلك مشروع وعندما اردت رفع المشروع قمت بفحص الملف المضغوط واتضح به فايروس اعتقد ان الحاسوب مصاب بفايروسات
اساسآ هو فقط توضيحي لان تصمم برنامج كامل يأخذ وقت

ان شاء الله تفهم هذه الاكواد

برنامج التصوير

كود :

'زر تحرير الفيديو
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'If Recording Then stopRecord
       'في الاعلى فقط للتوضيح انه في حالة مازال الفيديو يسجل يتم ايقاف التسجيل
       '======================================================
       IO.File.WriteAllText(Application.StartupPath & "MyLastVideo.txt", "MyVideoPath") 'هنا طريقة فقط توضيحية
       'انه خزن اسم الفيديو الموجود في المجلد الذي تم اختياره لكي يتم اخذه من المحرر
       'مجرد فكرة
       '======================================================
       Process.Start(Application.StartupPath & "MyEditor.exe") 'هنا يتم تشغيل محرر الفيديو الذي بنفس مسار البرنامج
       'وعند بدأ المحرر يتم وضع كود داخل المحرر وفي حدث تحميل الفورم ليتعامل مع الفيديو الذي تم حفظه الان في المجلد السابق
       'عن طريق قيم او متغيرات حسب التصميم للبرنامج والطريقة المختارة
       '======================================================
       ''الان   ممكن نغلق برنامج التصوير حتى لايأخذ شي من الذاكرة
   End Sub

برنامج المحرر

كود :

'مشروع المحرر
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'حدث تحميل الفورم نقوم بأستدعاء الفيديو المحفوظ منذ قليل
       Dim path As String = IO.File.ReadAllText(Application.StartupPath & "MyLastVideo.txt")
       'Load(path)
       'أي تحميل الفيديو لتحريره

   End Sub

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

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

ماشاء الله عليك أستاذنا شرحت فأختصرتك ففهمت.....

فجزاك الله كل الخير أخى الكريم