منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مشكلة مع Module - نسخة قابلة للطباعة

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

مشكلة مع Module - alims - 28-06-22

عندى سوال و هو عندى هذا الكود و يعمل بنجاح
كود :
  Sub SignOut()
       If con.State = ConnectionState.Open Then con.Close()
       Form1.Panel1.Visible = False
       Form1.ContextMenuStrip1.Enabled = False
       Form1.Button4.Visible = False
           End Sub
و هو داخل Module
ارويد استخدام هذا الكود 
كود :
Form1_Load(Nothing, Nothing)
ولكن لم انجاح 
كود :
  Sub SignOut()
       If con.State = ConnectionState.Open Then con.Close()
       Form1.Panel1.Visible = False
       Form1.ContextMenuStrip1.Enabled = False
       Form1.Button4.Visible = False
       AddHandler Form1.Load(Nothing, Nothing)
   End Sub


RE: مشكلة مع Module - معاند الحظ - 28-06-22

هل تقصد انك تريد تنفيذ كود تسجيل الخروج في حدث التحميل؟

RE: مشكلة مع Module - alims - 28-06-22

نعم اريد ان يبدا التحميل من الاول

RE: مشكلة مع Module - معاند الحظ - 28-06-22

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

لذا اذا اردت يمكنك مناداة حدث الفورم لود كالتالي

كود :
Form_Load(sender,e)
ليس بالطريقة التي استخدمتها والتي هي 
كود :
Form_Load(Nothing,Nothing)

او يمكنك ايضا ان تنشىء method  اخر وتضع فيه  (نقل الكود- ليس نسخه) الكود نفسه الموجود في حدث فورم لود- 
وهكذا يمكنك استدعاءه وقت التحميل ويمكنك استدعاءه في اي وقت اخر
كود :
Private Sub DoSomething()
   If var1 = "This String" Then

   End If
End Sub

Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles form1.Load
   DoSomething()
End Sub

اخيرا لماذا لاتستخدم كود اعادة تشغيل البرنامج

كود :
ِApplication.Restart