سلام عليكم
اريد من حضرتكم
كود لسحب مستند نصي من اي مكان في الكمبيوتر
و
افلاته في منطقة
Button
وبحيث تنزل محتويات المستند النصي
في Textbox1
وشكرا
سحب والافلات.Drag and Drop.مساعدة
|
سلام عليكم
اريد من حضرتكم
كود لسحب مستند نصي من اي مكان في الكمبيوتر
و
افلاته في منطقة
Button
وبحيث تنزل محتويات المستند النصي
في Textbox1
وشكرا
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 الان تاتى على Button وتفعل حدث DragDrop
وتضع الكود التالى كود : For Each path In e.Data.GetData(DataFormats.FileDrop) الان تاتى على Button وتفعل حدث DragOver
وتضع الكود التالى كود : Button1.Text = "إسقاط ملف..." والان تاتى على Button وتفعل حدث DragLeave
وتضع الكود التالى كود : Button1.Text = "جلب ملف..." الى هنا السحب والاسقاط يعمل مباشراً على الزر
وبمجرد اسقاط الملف على Button ستجد تم عرض محتوى الملف فى TextBox
الان حتى يكتمل جمالية الامر
تعال على Button وفى حدث Click
قم باستخدام الكود التالى كود : Dim OFD As New OpenFileDialog الان اصبح الـ Button مفعل ايضاً اختيار الملف من على الجهاز
فاصبح السحب والافلات + اختيار الملف على نفس الـ Button
على ما اعتقد ان الكود لا يحتاج الى شرح
لبساطة اسطر الكود بكل حدث
بالنهاية اتمنى ان يكون الشرح بسيط ووفى لما تريده واكثر
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ] ساهم دائماً فى لكل من يقوم بالمساهمة فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله ▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية تم الشكر بواسطة: dametucorazon , ابو روضة , حريف برمجة
21-04-19, 06:06 PM
لى ولك وللجميع بامر الله
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ] ساهم دائماً فى لكل من يقوم بالمساهمة فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله ▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية تم الشكر بواسطة: DK-x
22-04-19, 12:30 AM
ماشاء الله عليك أخى جوكر فنان ..
لو سمحت أخى حينما فعلت هذا وسحبت مستند نصى به حروف عربية بتظهر لى مشوشة كلها
وبتظهر بلغة غريبة جدا فهل هناك حل
تم الشكر بواسطة: elgokr
22-04-19, 01:23 AM
(22-04-19, 12:30 AM)ابو روضة كتب : تسلم اخى ابو روضة
يرجع الامر هنا لان محتوى الملف عربي
ولكن الملف عند الحفظ تم حفظه على PHP كود : Encoding: ANSI ولحل المشكلة يفضل اعادة حفظ الملف ليكون PHP كود : Encoding: UTF-8 وكذلك يمكنك تعديل الكود فى الشرح على هذا الجزء كود : Dim FileSR As IO.StreamReader ليصبح بهذا الشكل كود : Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.GetEncoding("windows-1256")) يمكنك تعديل windows-1256 الى 1256 فقط يمكنك مراجعة الرابط هنا للمزيد
أو بهذا الشكل كود : Dim FileSR As IO.StreamReader = New IO.StreamReader(OFD.FileName, System.Text.Encoding.Default) مع تغيير Default الى كود : ASCII - Unicode - UTF32 - UTF7 - UTF8 ويفضل ان يكون على الافتراضي لان بكلا الحالات
ستحتاج على تعديل حفظ الملف كما تم ذكره بالاعلى
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ] ساهم دائماً فى لكل من يقوم بالمساهمة فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله ▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
22-04-19, 02:04 AM
(22-04-19, 01:23 AM)elgokr كتب :(22-04-19, 12:30 AM)ابو روضة كتب : تسلم من كل شر أخى....ربنا يزيدك من علمه
تم الشكر بواسطة: elgokr
22-04-19, 03:46 AM
لى ولك وللجميع بامر الله
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ] ساهم دائماً فى لكل من يقوم بالمساهمة فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله ▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية |
|
المواضيع المحتمل أن تكون متشابهة . | |||||
الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
[VB.NET] مساعدة في تقرير | mrfenix93 | 1 | 41 |
24-03-24, 10:29 PM آخر رد: mrfenix93 |
|
مساعدة | jalaltech | 1 | 96 |
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 | 324 |
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 |