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

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

احتاج مساعدة في كتابة كود - sloom00 - 26-01-26

السلام عليكم
 شباب احتاج مساعدة في كود

اقفال الفورم  في حالة عدم اتصاله ببرنامج
 
للتوضيح انا مبرمج برنامج بسيط لمحاكي العاب  
وظيفة مهكر للمحاكي
 
كل الي احتاجه في حالة اقفال المحاكي "VirtuaNES.exe" ابي برنامجي Form1 يقفل معاه

RE: احتاج مساعدة في كتابة كود - أبو خالد الشكري - 27-01-26

(26-01-26, 10:47 PM)sloom00 كتب : السلام عليكم
 شباب احتاج مساعدة في كود

اقفال الفورم  في حالة عدم اتصاله ببرنامج
 
للتوضيح انا مبرمج برنامج بسيط لمحاكي العاب  
وظيفة مهكر للمحاكي
 
كل الي احتاجه في حالة اقفال المحاكي "VirtuaNES.exe" ابي برنامجي Form1 يقفل معاه

وعليكم السلام ورحمة الله وبركاته
اكتب الكود التالي في Form1 ، واحفظه ، ثم اعمل له Rebuild
ثم أغلق البرنامج نهائيا ، وقم بتشغيل التطبيق المحتوي على Form1
وبعد ذلك إذا قمت بإغلاق المحاكي فإن Form1 سيتم إغلاقه فورًا !
كود :
Imports System.Diagnostics

Public Class Form1

   Private WithEvents checkTimer As New Timer()

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       checkTimer.Interval = 1000
       checkTimer.Start()
   End Sub

   Private Sub checkTimer_Tick(sender As Object, e As EventArgs) Handles checkTimer.Tick
       If Process.GetProcessesByName("VirtuaNES").Length = 0 Then
           checkTimer.Stop()
           Me.Close()
       End If
   End Sub

End Class


RE: احتاج مساعدة في كتابة كود - sloom00 - 28-01-26

يعطيك العافية ضبط معي