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

مدير المنتدي الأحد نوفمبر 13, 2011 9:45 am

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

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

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

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

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

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

. ☼ .

.. ملحوووووووظة ..

. ☼ .

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

وايضا لفيجوال بيك 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

www.uaekeys.com13.gif" alt="" />

غير ما بين قوسين بما تريد
www.uaekeys.com13.gif" alt="" />

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