تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سحب والافلات.Drag and Drop.مساعدة
#2
وعليكم السلام ورحمة الله وبركاته

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

أولاً قم بادراج عدد 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
على ما اعتقد ان الكود لا يحتاج الى شرح
لبساطة اسطر الكود بكل حدث

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

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

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


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


الردود في هذا الموضوع
RE: سحب والافلات.Drag and Drop.مساعدة - بواسطة elgokr - 21-04-19, 01:39 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 80 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

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


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