عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
شرح كيفية عمل صندوق للسرى للاسم والرقم السرى الجزء الثانى برمجة
كاتب الموضوع
رسالة
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: شرح كيفية عمل صندوق للسرى للاسم والرقم السرى الجزء الثانى برمجة الإثنين يناير 28, 2019 5:37 am
شرح كيفية عمل صندوق للسرى للاسم والرقم السرى
الجزء الثانى برمجة
تشغيل الفورم
الكود:
Private Sub Workbook_Open() magdi.Show MsgBox ("مرحبا بك واهلا وسهلا بكم مع تحيات مجدى يونس من بورسعيد") End Sub -------------------------------------- If TextBox1.Text = "مجدى" And TextBox2.Text = "123" Then Me.Hide MsgBox "تفضل بالدخول" دخول Else MsgBox "لقد ادخلت اسم او رقم سري خاطئ لذا حاول مره اخرى" TextBox1.Text = "" TextBox2.Text = "" Me.TextBox1.SetFocus End If ---------------------------------- خروج Application.DisplayAlerts = False Application.Quit
مجدى
شرح كيفية عمل صندوق للسرى للاسم والرقم السرى الجزء الثانى برمجة