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

المطلوب تعديل بسيط على هاذا المشروع 

هو عبارة عن مراقبة الملفات في مسار معين يعني اي شي يحصل في هاذا الملف من حذف وانشاء وتعديل تضهر رسالة تبليغ عن ذالك 

البرنامج ناجخ ولاكن المطلوب تعديل على طريقة التبليغ او الاعلام 

صورة لتبليغ حالياً 





وهنا صورة لتبليغ المطلوب 




الكود اللذي تم استخدامة المطلوب التعديل عليه حتى يكون التبليغ مثل الصوره رقم 2

كود :
Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Try
           If FolderBrowserDialog1.ShowDialog() = vbOK Then
               TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString
               FileSystemWatcher1.Path = FolderBrowserDialog1.SelectedPath
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub FileSystemWatcher1_Deleted(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Deleted
       ListBox1.Items.Add("Deleted : " & e.FullPath)
   End Sub

   Private Sub FileSystemWatcher1_Renamed(ByVal sender As Object, ByVal e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
       ListBox1.Items.Add("Renamed Old Path : " & e.OldFullPath)
       ListBox1.Items.Add("Renamed New Path : " & e.FullPath)
   End Sub

   Private Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
       ListBox1.Items.Add("Created : " & e.FullPath)
   End Sub

End Class
الرد
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 3 30 منذ 7 دقيقة مضت
آخر رد: elgokr
  [كود] احتاج كود بسيط لتشفير ملف exe dametucorazon 6 256 30-01-19, 11:14 AM
آخر رد: dametucorazon
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 242 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  طلب تعديل كود استعلام new_programer 2 98 25-01-19, 11:44 PM
آخر رد: حريف برمجة
  تعديل مثال العملاء الغير مسددين القسط new_programer 7 307 25-01-19, 08:40 PM
آخر رد: new_programer
  [سؤال] طلب شروحات او دروس تعليمية لتصميم مشروع بسيط جدا للمبتدئين hyboss 1 95 21-01-19, 03:31 PM
آخر رد: elgokr
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 333 18-01-19, 11:05 PM
آخر رد: asemshahen5
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 271 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  تعديل كود ابو مالك المنصوري 0 90 12-01-19, 11:57 PM
آخر رد: ابو مالك المنصوري
  تعديل كود ابو مالك المنصوري 0 87 12-01-19, 11:55 PM
آخر رد: ابو مالك المنصوري

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


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