11-09-18, 02:53 AM
مرحباً بك من جديد
اولاً كل ما عليك فعله التالى
قم بانشاء فورم جديد وقم بتطبيق الخصائص التالي للفورم
1- FormBorderStyle = None
2- StartPosition = Manual
ثم قم باستخدام الكود التالى داخل حدث Form2_Load
كود :
Dim x As Integer
Dim y As Integer
x = Screen.PrimaryScreen.WorkingArea.Width
y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
Do Until x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
x = x - 1
Me.Location = New Point(x, y)
Loopثانياً قم بوضع ما تريده شاشة الفورم بالاعلى مثل Label أو TextBox
مع اضافة Timer واجعل المدة الخاصة به 5 ثوانى ومفعل وضح فى حدث الـ Timer اغلاق الفورمكود :
Close()ثالثاً نرجع الى الشاشة الرئيسية وهو Form1 ى الكود الخاص بك
اسفل الكود التالىكود :
ListBox1.Items.Add("Deleted : " & e.FullPath)ضع الكود التالى
كود :
Form9.Label1.Text = "نص رسالة التنبيه"
Form9.Show()
' أو
Form9.TextBox1.Text = "نص رسالة التنبيه"
Form9.Show()حسب ما انت مستخدم فى Form2
طبق الامر بوضع الكود ايضاً اسفل
كود :
ListBox1.Items.Add("Renamed Old Path : " & e.OldFullPath)
ListBox1.Items.Add("Renamed New Path : " & e.FullPath)وايضاً اسفل
كود :
ListBox1.Items.Add("Created : " & e.FullPath)تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية

