رقم سري للفورم

محد عندو حل فين الاساتذه والله ضروري مستعجل الموضوع يا جماعه

السلام عليكم

Private Sub form_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closing
       
if frmsecurity.showdialog =dialogresult.yes then
me.close
else
e.cancel=true
end if
    End Sub

وإن شاء الله يفي بالغرض وأنا جاهز لأي سؤال

مرسي يا اخ mohcool وما قصرت جربت الكود حقك بس ما فهمتوا

وخترعت كود بس مشي حالوا بس فيه مشكله جدا صغيره

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pas As String
        pas = InputBox("please enter your password")
        Do While pas <> "nh"
            MessageBox.Show("invalid password")

            pas = InputBox("please enter your password")
        Loop
        Dim moo As New frmالدخول()
        Me.Hide()
        moo.Show()

    End Sub

انوا لوضغط الشخص على كنسل يعني ما عرف الرقم السري يرج تاني مره المسج بوكس ...

كيف اخليه اذا ضغط على كنسل يرجع تاني للفورم؟؟؟

واكون لليك شاكره

اقتباس

يعني الدخول لي فورم الامتحان عادي بس الخروج منهو بكلمة سر....

:D ها ها ها.. فكرتيني بالنكتة بتاعت "الدخول ببلاش و الخروج بفلوس.." :D

لحل المشكلة، لا تستخدمي Loop لأنها السبب، استخدمي If...Else :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pas As String
        pas = InputBox("please enter your password")
        If pas <> "nh" Then
            MessageBox.Show("invalid password")
            pas = InputBox("please enter your password")
        Else
            Dim moo As New frmالدخول()
            Me.Hide()
            moo.Show()
        End If

End Sub

مرسي كتير كتير كتير وما قصرت....... يا اخ محمد

جربت الكود ومشي معايا خلاص

أظن إنو الأخ محمد عبدالعليم أعطاكي الحل الوافي الله يعطيه العافية

بس أنا شايف إنو مو منطقي إستعمال (inputbox) يعني ليش ما تعمل فورم يسأل عن كلمة السر ( frmsecurity) على سبيل المثال خاصة إنو الإمتحان مش حيكون لشخص واحد يعني حيكون هناك كلمة سر لكل من يقدم للإمتحان

وغير هيك ممكن الواحد يطلع من الفورم من دون الضغط على زر (cancel) مثلاً يضغط (alt+F4) حيطلع من غير ما يظهر (inputbox) علشان هيك الحل إلي أعطيتك إيها حل مناسب لطلبك أنا حشرح الكود

Private Sub form_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closing
يعني عند الخروج من الفورم يتحقق هذ الحدث

if frmsecurity.showdialog =dialogresult.yes then
عرض شاشة كلمة السر وينظر هذا  الشرط الإجابة بإرسال 
(dialogresult.yes )  من شاشة كلمة السر عن طريق كتابة التالي
me.DialogResult=DialogResult.Yes في شاشة كلمة السر
me.close
إذا تحقق الشرط تقفل النافذة 
else
وإلا ألغي عملية الخروج 
e.cancel=true
end if

هذا والله أعلم

مرسي يا اخmohcool نسخت عندي الكود تبعك بس حناقشوا قبل ما اكتبوا...

لان ما مر عليا كود زيوا لاني دوبي مخلصة programming 2 وداخلة علىprog3 يمكن مستقبلا !!

على العموم مرسي وماقصرت اخوي...

مرسي يا اخmohcool نسخت عندي الكود تبعك بس حناقشوا قبل ما اكتبوا...

لان ما مر عليا كود زيوا لاني دوبي مخلصة programming 2 وداخلة علىprog3 يمكن مستقبلا !!

على العموم مرسي وماقصرت اخوي...

العفو و إحنا في الخدمة