السلام عليكم !
ولله ياشباب ان اصنع في برنامج وابي كيف اصيغها يعني -_-!
مثلا انا معي 2 فور !
Form1
Form2
ومعي زر 1 في Form1 !
ابي لما اضغط علي زر 1 في Form1 يقوم بتشغيل برنامج
مثل
Process.Start("notepad")
السال هنا ؟
اريد عندما اخرج من Process يظهر لي Form2
قمت بمحولات عديدة باستخادم IF لكن لم تنجح و ايضا Kill -_- وانا مبتدي لهاذا ياريت مساعدة باسرع وقت ^_^
إقتباس :السال هنا ؟
اريد عندما اخرج من Process يظهر لي Form2
وضح اكثر
استخدم الحدث Close لـ Form1
اكتب بداخل الحدث الكود
Form2.Show
هذا بيجعل النافذة الثانية تشتغل بمجرد تخرج من النافذة الاولى
هذا ما فهمت من طلبك
اجعل هذا الكود قبل ارسال امر فتح البرنامجprosess
Dim S=0
For Each a In System.Diagnostics.Process.GetProcesses()
S = S + 1
Next
واجعل التايمر يقارن S هل تساوي prosecc أو لا
هل المقصود هو مثل "رسالة ختامية" تظهر عند إغلاق البرنامج
مثلا في بعض البرامج ، وتحديدًا نسخة "Demo" منها، عند إغلاق البرنامج، يتم عرض فورم أخير بعد الإغلاق ، يوجد فيه مثلا "حث على الشراء"
أو "سعر البرنامج" ، او طلب "تقييم في الموقع"، الخ...
______________________________________________________________
هل المقصد هو :-
1 -إظهار Form2 عند الخروج من Form1 ؟
2 - أو إظهار Form2 ، عند إغلاق الـ Notepad أو الـ Process ؟
ولله يا اخ محمود ما فهمتك صراحة -_- رجاء شرح اكثر ^_^ ! او كتاب الكود كامل
وباقي شباب الي مافهمو سأل :
سا اشرح شرح مطول قليلا :
انا لذي فورمين!
فورم 1 + فورم 2
والفورم 1 : يحتوي علي زر 1
عندما اضغط علي زر 1 يقوم الجهاز بفتح برنامج معين داخل الجهاز مثلا المترجم الوافي الذهبي...
حسنا عندما اقوم ب العمل علي هذا المترجم وقد انتهية من العمل عليه اقوم بخروج منه .
عند الخروج من هذا البرنامج سوف يعرض الفوم 2 ومثلا يكون فيه رسالة تقول شكرا لاستخدامكم الوافي الذهبي... وهكذا
-----
الاهم يكون ما عنده دخل داخل البرنامج الي اصنعه يعني انا اريد برنامج خارجي افتحه ببرنامج الي اصنعه واقوم له اضافاة هذا مثال فقط !
إذًا المقصود هو رقم (2) في الرد الذي ذكرته
حسنًا
هكذا : ( يتم وضع الكود التالي داخل الزر في Form1 ، قمت بوضعه في Button1 )
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim process_name As String = "notepad"
Process.Start(process_name)
Me.Hide()
KeepWaiting:
If (Process.GetProcessesByName(process_name).Length > 0) Then
GoTo KeepWaiting
Else
GoTo EndIt
End If
EndIt:
Form2.Show()
End Sub
ملاحظة: سيقوم بفتح برنامج المفكرة كمثال ، ( هل الوافي الذهبي لازال حيًا ؟
)، بالإمكان وضع اسم العملية الخاصة ببرنامج الوافي في التغير
process_name .
( اسم العملية يتم إجاده عن طريق "مدير المهام - TaskManager" عند فتح أي برنامج)
PHP كود :
("Dim proc = Process.Start("notepad
()proc.WaitForExit
()form2.Show
شكرااا ^_^ بارك الله فيكم وجزاكم الله خير !
نجحت ولله كفو شباب محترفين صراحة