21-04-19, 01:39 PM
وعليكم السلام ورحمة الله وبركاته
موضوع جميع
فقط لاتمام الامر ركز خطوة خطوة لما ساقوم بشرحه
أولاً قم بادراج عدد 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
على ما اعتقد ان الكود لا يحتاج الى شرح
لبساطة اسطر الكود بكل حدث
بالنهاية اتمنى ان يكون الشرح بسيط ووفى لما تريده واكثر
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية