+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سحب والافلات.Drag and Drop.مساعدة (/showthread.php?tid=29442)
سحب والافلات.Drag and Drop.مساعدة - e-coder - 21-04-19
سلام عليكم
اريد من حضرتكم
كود لسحب مستند نصي من اي مكان في الكمبيوتر
و
افلاته في منطقة
Button
وبحيث تنزل محتويات المستند النصي
في Textbox1
وشكرا
RE: سحب والافلات.Drag and Drop.مساعدة - elgokr - 21-04-19
وعليكم السلام ورحمة الله وبركاته
موضوع جميع
فقط لاتمام الامر ركز خطوة خطوة لما ساقوم بشرحه
أولاً قم بادراج عدد 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
على ما اعتقد ان الكود لا يحتاج الى شرح
لبساطة اسطر الكود بكل حدث
بالنهاية اتمنى ان يكون الشرح بسيط ووفى لما تريده واكثر
تحياتى لك
وتمنياتى لك التوفيق
RE: سحب والافلات.Drag and Drop.مساعدة - e-coder - 21-04-19
رائع بارك الله في جهودك استمررررر♥
RE: سحب والافلات.Drag and Drop.مساعدة - elgokr - 21-04-19
لى ولك وللجميع بامر الله
تحياتى لك
وتمنياتى لك التوفيق
RE: سحب والافلات.Drag and Drop.مساعدة - ابو روضة - 22-04-19
ماشاء الله عليك أخى جوكر فنان ..
لو سمحت أخى حينما فعلت هذا وسحبت مستند نصى به حروف عربية بتظهر لى مشوشة كلها
وبتظهر بلغة غريبة جدا فهل هناك حل
RE: سحب والافلات.Drag and Drop.مساعدة - elgokr - 22-04-19
(22-04-19, 12:30 AM)ابو روضة كتب :ماشاء الله عليك أخى جوكر فنان ..لو سمحت أخى حينما فعلت هذا وسحبت مستند نصى به حروف عربية بتظهر لى مشوشة كلهاوبتظهر بلغة غريبة جدا فهل هناك حل
تسلم اخى ابو روضة
يرجع الامر هنا لان محتوى الملف عربي
ولكن الملف عند الحفظ تم حفظه على PHP كود :
Encoding: ANSI
ولحل المشكلة يفضل اعادة حفظ الملف ليكون
PHP كود :
Encoding: UTF-8
وكذلك يمكنك تعديل الكود فى الشرح على هذا الجزء
كود :
Dim FileSR As IO.StreamReader
FileSR = System.IO.File.OpenText(OFD.FileName)
TextBox1.Text = FileSR.ReadToEnd()
FileSR.Close()ليصبح بهذا الشكل
كود :
Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.GetEncoding("windows-1256"))
TextBox1.Text = FileSR.ReadToEnd()
FileSR.Close()يمكنك تعديل windows-1256 الى 1256 فقط يمكنك مراجعة الرابط هنا للمزيد
أو بهذا الشكل
كود :
Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.Default)
TextBox1.Text = FileSR.ReadToEnd()
FileSR.Close()مع تغيير Default الى
كود :
ASCII - Unicode - UTF32 - UTF7 - UTF8ويفضل ان يكون على الافتراضي لان بكلا الحالات
ستحتاج على تعديل حفظ الملف كما تم ذكره بالاعلى
تحياتى لك
وتمنياتى لك التوفيق
RE: سحب والافلات.Drag and Drop.مساعدة - ابو روضة - 22-04-19
(22-04-19, 01:23 AM)elgokr كتب :(22-04-19, 12:30 AM)ابو روضة كتب :ماشاء الله عليك أخى جوكر فنان ..لو سمحت أخى حينما فعلت هذا وسحبت مستند نصى به حروف عربية بتظهر لى مشوشة كلهاوبتظهر بلغة غريبة جدا فهل هناك حل
تسلم اخى ابو روضة
يرجع الامر هنا لان محتوى الملف عربيولكن الملف عند الحفظ تم حفظه على
PHP كود :
Encoding: ANSI
ولحل المشكلة يفضل اعادة حفظ الملف ليكون
PHP كود :
Encoding: UTF-8
وكذلك يمكنك تعديل الكود فى الشرح على هذا الجزء
كود :
Dim FileSR As IO.StreamReader
FileSR = System.IO.File.OpenText(OFD.FileName)
TextBox1.Text = FileSR.ReadToEnd()
FileSR.Close()
ليصبح بهذا الشكل
كود :
Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.GetEncoding("windows-1256"))
TextBox1.Text = FileSR.ReadToEnd()
FileSR.Close()
يمكنك تعديل windows-1256 الى 1256 فقط يمكنك مراجعة الرابط هنا للمزيد
أو بهذا الشكل
كود :
Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.Default)
TextBox1.Text = FileSR.ReadToEnd()
FileSR.Close()
مع تغيير Default الى
كود :
ASCII - Unicode - UTF32 - UTF7 - UTF8
ويفضل ان يكون على الافتراضي لان بكلا الحالاتستحتاج على تعديل حفظ الملف كما تم ذكره بالاعلى
تحياتى لكوتمنياتى لك التوفيق
تسلم من كل شر أخى....ربنا يزيدك من علمه
RE: سحب والافلات.Drag and Drop.مساعدة - elgokr - 22-04-19
لى ولك وللجميع بامر الله
تحياتى لك
وتمنياتى لك التوفيق