تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل بسيط
#2
مرحباً بك من جديد

اولاً كل ما عليك فعله التالى
قم بانشاء فورم جديد وقم بتطبيق الخصائص التالي للفورم
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)


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


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


الردود في هذا الموضوع
تعديل بسيط - بواسطة dasktop - 10-09-18, 09:55 PM
RE: تعديل بسيط - بواسطة elgokr - 11-09-18, 02:53 AM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم