منتديات الجلفة 17000


    سلسلة أكواد الفيجوال بيسك من الصفر حتى الاحتراف (32)

    شاطر

    iha
    عضو فعال
    عضو فعال

    عدد الرسائل : 51
    نقاط : 320
    تاريخ التسجيل : 22/08/2008

    سلسلة أكواد الفيجوال بيسك من الصفر حتى الاحتراف (32)

    مُساهمة من طرف iha في الجمعة سبتمبر 05, 2008 7:38 pm



    السلام عليكم ورحمة الله وبركاته

    اهلا بكم ياأخوانى معنا فى هذه السلسلة

    والتى قررت انى سوف ابدأها معكم

    حتى نبدأ جميعا من ابسط الاكواد حتى الاكواد المحترفة

    راجيا من الله عز وجل ان تستفيدوا معنا

    سواء مبتدئين او محترفين

    ♥. ☼ .♥ .. ملحوووووووظة ..♥. ☼ .♥

    الاكواد هى لفيجوال بيسك دوت نت

    وايضا لفيجوال بيك 6

    ولكن سيكون هناك اختلافات بسيطة يجب ان تأخذوها

    فى الحسبان

    ان شاء الله سيكون هناك مالا يقل عن

    1000 كود



    وسيكون بكل حلقة كود وبشرحه

    وغالبا لن يكون هناك صور للاكواد البسيطة

    وسيكون الشرح مصحوبا باللغة الانجليزية

    لفهم اعمق وافضل ان شاء الله



    والآن نبدأ مع الحلقة32






    تسجيل خروج المستخدم



    Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
    Private Sub Form_Load()
    Dim ret
    Form1.Visible = False
    ret = ExitWindowsEx(EWX_LOGOFF, EWX_FORCE)
    If ret = False Then
    MsgBox "sorry try next time"
    End If
    End Sub






    غير ما بين قوسين بما تريد


    هذا وقد انتهت الحلقة 32
    الى ان نلتقى فى الحلقة القادمة ان شاء الله
    ارجو من الجميع ان يتناقش معى فى الكود
    وان يقوم بالتطبيق واخبارنا ماذا حدث


      الوقت/التاريخ الآن هو الثلاثاء فبراير 20, 2018 10:36 pm