منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة مع Module
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندى سوال و هو عندى هذا الكود و يعمل بنجاح
كود :
  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
هل تقصد انك تريد تنفيذ كود تسجيل الخروج في حدث التحميل؟
نعم اريد ان يبدا التحميل من الاول
اخي حدث التحميل فورم لود يفترض ان يتم تفعيلة فقط بعد تشغيل البرنامج
لكن مما قرات ان حدث التحميل يمكن مناداته مثل اي 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