أخوانى اعضاء المنتدى سأقوم بنشر بعض الدروس عن ال VB.Net و هى ان شاء الله ستكون سلسله من الدروس اذا و جدت اقبالا عليها و ارجو تثبيتها.....

1) مستعرض صور مبسط :

نريد ان نعمل برنامج يقوم باستعراض الصور الموجودة على الجهاز ومن ثم اختيار صورة لكي نستعرضها في البرنامج , واليك الكود البسيط:

اولا ضع على الفورم صندوق حوار فتح (open dialog) ومربع صورة و و زر امر (button) واكتب هذا الكود في ال form1 class :



CODE
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If OpenFileDialog1.ShowDialog = DialogResult.OK Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If

End Sub


شرح الكود: الخاصية showdialog تقوم بعرض صندوق الحوار فتح , واذا اختار المستخدم زر ok على الصورة فان على مربع الصورة ان يعرضها . وقد استخدمنا الخاصية FromFile التي يلزمها وسيط وهو اسم الملف المراد عرضه . والخاصية FromFile موجودة في ال Image class .

اصدار نظام التشغيل OSVersion و معرفة الزمن الذى استغرقه الجهاز منذ تشغيله :

لمعرفة رقم اصدار نظام التشغيل Operating System : و الزمن
ضع زر امر على الفورم (Button) واكتب الكود التالي:


CODE
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MessageBox.Show("OS Version: " & Environment.OSVersion.ToString, "Operating System" & vbcrLf & “ Time:” & Enviroment .Tickcount/60000.Tostring, MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub


شرح الكود : استخدمت في هذا الكود الكائن MessageBox والذي له الخاصية الوحيدة Show والتي لها العديد من التوابع او الوسائط .
الوسيط الاول: محتوى الرسالة ويجب علينا استخدام ال Enviroment class لمعرفة اصدار نظام التشغيل . وبعدا نستخدم الخاصية OSVersion وهي مبتغانا (Operating System Version) . ولكي نعرض رقم الاصدار في الرسالة يجب ان نحولها الى سلسلة نصية وذلك باستخدام الوظيفة ToString .
الوسيط الثاني: عنوان الرسالة
الوسيط الثالث: نوع الرسالة . وقد استخدمت الرسالة ذات الزر OK .
الوسيط الرابع: الايقونة التي تظهر على الرسالة .
نستخدم الخاصية TickCount الموجودة في ال Enviroment Class لكي نعرف الزمن المستغرق منذ تشغيل الجهاز بال millisecond يعني الف جزء من الثانية . ولتحويلها الى دقائاق يجب علينا ان نقسم على60000

__________________
ba7