عبدالرحمن

عدم الاستجابة اذا اردت ان تجعل برنامجك يتوقف عن الاستجابة لفترة زمنية معينة فما عليك الا كتابة السطر التالي: System.Threading.Thread.Sleep(5000) الدالة Sleep تقوم بالعمل , ولها تابع واحد وهو المدة الزمنية التي تريد برنامجك ان يتوقف عن الاستجابة فيها , وتقاس با…

اذا اردت ان تجعل برنامجك يتوقف عن الاستجابة لفترة زمنية معينة فما عليك الا كتابة السطر التالي: System.Threading.Thread.Sleep(5000) الدالة Sleep تقوم بالعمل , ولها تابع واحد وهو المدة الزمنية التي تريد برنامجك ان يتوقف عن الاستجابة فيها , وتقاس بالمللي ثانية . …

الطباعة ابسط طريقة لطباعة نص , هي كالاتي: اولا: من صندوق الادوات Tool Box اضف الاداة PrintDocument . ثانيا: اضغط على الاداة نقرتين كي تقوم بكتابة الكود : ثالثا: اكتب الكود التالي: Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As S…

تحويل النص الى صورة الكود التالي يقوم بتحويل النص الى هيئة صورة . Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.CreateGraphics.DrawString("Hello World!", New Font("Verdana", 16), Brushes.MediumSe…

الوان متدرجة اذا اردت ان تملأ الفورم بلون متدرج فاكتب الكود التالي: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim grbrush As System.Drawing.Drawing2D.LinearGradientBrush grbrush = New System.Dra…

توليد ارقام عشوائية Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(Rnd() * 10) End Sub الدالة Rnd تقوم بتوليد ارقام عشوائية . وذلك بان تقوم بضرب الدالة في اي رقم تريده لكي ينتج لديك رقم عشوائي…

صوت منبه Beep() تقوم الدالة Beep باصدار صوت من السماعات اذا كان عندك كرت صوت , اما اذا لم يكن هناك كرت صوت فانها تقوم باصدار الصوت من الجهاز نفسه ( نبرة صوت). وتعتمد على نظام التشغيل الذب عندك . فلكل نظام نبرة صوت .

المدة المستغرقة منذ تشغيل الجهاز اولا : قم بانشاء زر button . ثانيا : اكتب هذا الكود : Dim x As System.Environment Dim y As Integer y = (x.TickCount()) / 60000 MsgBox("المدة المستغرقة منذ تشغيل الجهاز هي " + y.ToString + " دقيقة") End Sub زبدة الكود السابق تكم…

http://arabteam2000.com/vb/showthread.php?postid=87387 ارجو منكم المشاركة

ارجو من الجميييع المشاركة والادلاء بالاراء . وشكرا :)

التعامل مع المجلدات لانشاء مجلد جديد , عليك كتابة الكود التالي:- Dim x As Directory x.CreateDirectory("c:folder") x.Delete("c:folder") في البداية انشانا متغير من الفئة Directory . ثم استخدمنا الدالة CreateDirectory ولاتي لها تابع واحد وهو مسار المجلد الذي تريد…

تقديم الفورم على النوافذ الاخرى اذا اردت ان تجعل الفورم فوق النوافذ الاخرى فما عليك الا كتابة الكود التالي:- Me.TopMost = True كما تلاحظ فاننا استخدمنا الخاصية TopMost ذات القيمة Boolean اي بمعنى True or False . فاذا جعلنا قيمتها true فان الفورم تبقى في المقدم…

الفورم الشفافة في البداية اعتذر على التاخير الذي حصل وذلك لمشاكل التي حصلت لجهازي. كود اليوم بسيط للغاية . ولكنه جميل . اذا اردت بجعل الفورم شفافة فم عليك الا ان تكتب السطر التالي:- Me.Opacity = 0.5 طبعا الخاصية Opacity تحوي الارقام التي بين الصفر و الواحد . و…

الكائن Application الكائن Application هو البرنامج الذي تتعامل معه , فمثلا: Dim x As Application x.Exit() الكود السابق يقوم باغلاق برنامجنا وذلك باستخدام الوظيفة Exit . طبعا مثالنا السابق بسيط جدا على استخدام الكائن Application , وسوف نتوسع باذن الله قريبا في ك…

تغيير شكل المؤشر اذا اردت تغيير شكل المؤشر فعليك بكتابة السطر التالي:- Cursor.Current = Cursors.WaitCursor في الشطر الأيسر من الكود استدعيت الفئة Cursor وتعني مؤشر الفارة . ثم استخدمت الخاصية Current وتعني المؤشر الحالي . اما في الشطر الايمن فقد استخدمت الفئة …

التعامل مع الريجستري (Registry) سنتعرف في هذا الدرس البسيط كيفية التعامل مع مسجل النظام Registry . ساقوم بعمل برنامج يحفظ عرض و طول النموذج Form , بحيث اذا خرج المستخدم من البرنامج ودخل عليه مرة اخرى فانه يجده على الحالة التي تركه عليها من حيث الطول والعرض . ا…

تشغيل البرامج الخارجية لتشغيل اي برنامج خارجي عليك ان تكتب الكود التالي:- System.Diagnostics.Process.Start("c:somepathsomefile.txt") نستخدم الوظيفة Start والتي لها تابع واحد وهو مسار الملف الذي تريد تشغيله . والوظيفة Start موجودة في الفئة Process والتي توجد في…

قلب الصور اذا اردت القيام بقلب صورة (Rotate) فعليك بانشاء زر امر و مربع صورة ووضع صورة فيه وكتابة الكود التالي:- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Bitmap = PictureBox1.Image x.R…

تصغير الصور اذا اردت تصغير حجم الصورة (الطول والعرض) فعليك بوضع زر و مربع صورة ووضع اي صورة في مربع الصورة ثم نغير اسم مربع الصورة الى Picture1 , ومن ثم نكتب الكود التالي:- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) H…

الزمن المستغرق في منذ تشغيل الجهاز لمعرفة الزمن الذي استغرقه الجهاز منذ تشغيله بالدقائق فعليك بوضع زر امر على الفورم ومن ثم كتابة الكود التالي: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageB…