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

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

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

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

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

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

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

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

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

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

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

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

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

فى الحسبان

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

1000 كود



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

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

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

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



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

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


[center]
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
الى ان نلتقى فى الحلقة القادمة ان شاء الله
ارجو من الجميع ان يتناقش معى فى الكود
وان يقوم بالتطبيق واخبارنا ماذا حدث

[/center]