[elgokr]

وعليكم السلام ورحمة الله وبركاته

موضوع جميع

فقط لاتمام الامر ركز خطوة خطوة لما ساقوم بشرحه

أولاً قم بادراج عدد 1 TextBox وعدد 1 Button

الان تعال على TextBox فى الخيارات ستجد

- Multiline اجعله True

الان تاتى على Button فى الخيارات ستجد كلاً من 

- AllowDrop اجعله True

- Text اجعله جلب ملف... ( ضع الاسم المراد [ اختياري ] )

الان ناتى على Button وتفعل حدث DragEnter 

وتضع الكود التالى

كود :

       If e.Data.GetDataPresent(DataFormats.FileDrop) Then
           e.Effect = DragDropEffects.Copy
       End If

الان تاتى على Button وتفعل حدث DragDrop

وتضع الكود التالى

كود :

       For Each path In e.Data.GetData(DataFormats.FileDrop)
           If System.IO.Path.GetExtension(path) = ".txt" Then
               Dim FileSR As IO.StreamReader
               FileSR = System.IO.File.OpenText(path)
               TextBox1.Text = FileSR.ReadToEnd()
               FileSR.Close()
           Else
               MsgBox("عفواً يجب ان يكون الملف بصيغة txt.")
           End If
       Next
       Button1.Text = "جلب ملف..."

الان تاتى على Button وتفعل حدث DragOver

وتضع الكود التالى

كود :

       Button1.Text = "إسقاط ملف..."

والان تاتى على Button وتفعل حدث DragLeave

وتضع الكود التالى

كود :

       Button1.Text = "جلب ملف..."

الى هنا السحب والاسقاط يعمل مباشراً على الزر

وبمجرد اسقاط الملف على Button ستجد تم عرض محتوى الملف فى TextBox

الان حتى يكتمل جمالية الامر

تعال على Button وفى حدث Click

قم باستخدام الكود التالى

كود :

       Dim OFD As New OpenFileDialog
       OFD.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
       OFD.Filter = "txt files (*.txt)|*.txt"
       OFD.FilterIndex = 1
       OFD.RestoreDirectory = True
       If OFD.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
           If System.IO.Path.GetExtension(OFD.FileName) = ".txt" Then
               Dim FileSR As IO.StreamReader
               FileSR = System.IO.File.OpenText(OFD.FileName)
               TextBox1.Text = FileSR.ReadToEnd()
               FileSR.Close()
           Else
               MsgBox("عفواً يجب ان يكون الملف بصيغة txt.")
           End If
       End If

الان اصبح الـ Button مفعل ايضاً اختيار الملف من على الجهاز

فاصبح السحب والافلات + اختيار الملف على نفس الـ Button

على ما اعتقد ان الكود لا يحتاج الى شرح

لبساطة اسطر الكود بكل حدث

بالنهاية اتمنى ان يكون الشرح بسيط ووفى لما تريده واكثر

تحياتى لك

وتمنياتى لك التوفيق