+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب كود لعمل مجلد لكل حالة (/showthread.php?tid=24722)
الصفحات:
1
2
طلب كود لعمل مجلد لكل حالة - issamsaidd - 30-04-18
السلام عليكم ورحمه الله وبركاته انا شغال على مشروع لعياده بس فى مشكله وصلت اليها وانا اول مره اصنع برنامج لعمل رسمى فى عياده اريد زر اضافة مرفق ان اضغط علية يقوم با انشاء مجلد برقم الحالة او اسمها واضغط علية يفتح لى نافذه استعراض الاضافة بعض الصور فى مجلد الحالة والزر الاسفل منه اضغط استعراض يفتح لى المجلد الذى يحمل اسم الحالة وبدخالة المرفقات التى تم وضغها
وهكذا عند الضغط على اضافة حالة يضيف مجلد اخر لحالة اخرى واضغ مرفقتها معا صورة للبرنامج
ملاحظه اريد مجلد فى مسار C:\Users\ISSAM\Documents\Visual Studio 2010\Projects\DR Ayesh\DR Ayesh\bin\Debug\Cases
داخل مجلد Cases يكون بداخله مجلدات با ارقم كل حالة او اسمه المهم عند الضغط على اضافة مرفقت ينشى مجلد لكل حالة
اتمنى ان تساعدونى وشكرا لكم مقدما واذا فى تعديل حابين تعدلوه عدلوه واشكركم كثير
المشروع
http://www.mediafire.com/file/8uhzyyzq5x5cgln/DR%20Ayesh.rar
RE: طلب كود لعمل مجلد لكل حالة - عبد العزيز البسكري - 30-04-18
RE: طلب كود لعمل مجلد لكل حالة - issamsaidd - 30-04-18
(30-04-18, 09:21 PM)عبد العزيز البسكري كتب :
اسف نسيت الضيف الباسورد هو ١
RE: طلب كود لعمل مجلد لكل حالة - عبد العزيز البسكري - 30-04-18
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. أتكلّم عن نفسي طبعًا .. هذه الأدوات أكره رؤيتها بأي شكل من الأشكال
إذا كان الهدف هو فقط إضافة مجلّدات باسم المريض تتضمّن مرفقات من صور أو شهادات طبّية أو وثائق أو مستندات .. بالإمكان عمل ذلك طبعا مع تغيير الفورم 3 بشكل كلّي مع الإحتفاظ طبعا بخصوصيّة أدواته
في إنتظار ذلك أتمنى مخلصا أن تجد حلا من أساتذتنا الأعزّاء بارك الله فيهم و لهم
تحياتي
RE: طلب كود لعمل مجلد لكل حالة - issamsaidd - 30-04-18
اخى الكرم انا كنت فقط اريد اضافة مجلد با اسم الحالة
وهى الكود هادا جربته My.Computer.FileSystem.CreateDirectory(NameTextBox.Text)
بس مش عارف اسوية فى المسار المطلوب
C:\Users\ISSAM\Documents\Visual Studio 2010\Projects\DR Ayesh\DR Ayesh\bin\Debug\Cases
وفى نفس الوقت عبر اداة OpenFileDialog1 اختار الصور الاتية من الاسكنر وتحفقظا فى المجلد الذى تم
وعند الضغط على مجلد عرض المرفقات يفتح المجلد الى باس اسم الحالة
انا اريد حفظ الصور بعيد عن قاعد البينات علشان الحجم والى تشوفة مناسب اعمله وشكرا لك
حتى لو بدك تغير الفورم غيره المهم الفكره تكون وصلت وشكرا كتتتتير الك ^_^
RE: طلب كود لعمل مجلد لكل حالة - عبدالله الدوسري - 30-04-18
فقط استخدم هذا الكود :
كود :
My.Computer.FileSystem.CreateDirectory("Cases\" & NameTextBox.Text)إذا لم تحدد العنوان كامل , البرنامج سيفترض أنك تعني المجلد الذي يحتوي على ملف الـ exe. وسيبداء من هذا المجلد
RE: طلب كود لعمل مجلد لكل حالة - عبد العزيز البسكري - 30-04-18
(30-04-18, 11:08 PM)issamsaidd كتب : اخى الكرم انا كنت فقط اريد اضافة مجلد با اسم الحالة
وهى الكود هادا جربته My.Computer.FileSystem.CreateDirectory(NameTextBox.Text)
بس مش عارف اسوية فى المسار المطلوب
C:\Users\ISSAM\Documents\Visual Studio 2010\Projects\DR Ayesh\DR Ayesh\bin\Debug\Cases
وفى نفس الوقت عبر اداة OpenFileDialog1 اختار الصور الاتية من الاسكنر وتحفقظا فى المجلد الذى تم
وعند الضغط على مجلد عرض المرفقات يفتح المجلد الى باس اسم الحالة
انا اريد حفظ الصور بعيد عن قاعد البينات علشان الحجم والى تشوفة مناسب اعمله وشكرا لك
حتى لو بدك تغير الفورم غيره المهم الفكره تكون وصلت وشكرا كتتتتير الك ^_^
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. ليس القصد من تغيير الفورم .. من أجل كلمة التغيير و فقط
و أنا أتسلّى أوقات الفراغ .. جرّبت ملف صغير لعيادة طبّية مع إمكانية إضافة المستندات و تحرير الوصفة الطبّية و ما شابه ذلك
أتمنى أنّ الفكرة وصلت .. و أرجو من الله مخلصا أن تكون إجابة أستاذنا القدير " عبد الله الدوسري " قد حقّقت المطلوب
تحياتي للجميع
RE: طلب كود لعمل مجلد لكل حالة - issamsaidd - 30-04-18
(30-04-18, 11:12 PM)عبدالله الدوسري كتب : فقط استخدم هذا الكود :
كود :
My.Computer.FileSystem.CreateDirectory("Cases\" & NameTextBox.Text)
إذا لم تحدد العنوان كامل , البرنامج سيفترض أنك تعني المجلد الذي يحتوي على ملف الـ exe. وسيبداء من هذا المجلد
شكرا لك اخ عبدا الله صح كلامك تم عمله فى المسار الصحيح ضايل اداة الاستعراض احدد منها الصور تنزل فى المجلد الى با اسم الحالة
(30-04-18, 11:26 PM)عبد العزيز البسكري كتب :(30-04-18, 11:08 PM)issamsaidd كتب : اخى الكرم انا كنت فقط اريد اضافة مجلد با اسم الحالة
وهى الكود هادا جربته My.Computer.FileSystem.CreateDirectory(NameTextBox.Text)
بس مش عارف اسوية فى المسار المطلوب
C:\Users\ISSAM\Documents\Visual Studio 2010\Projects\DR Ayesh\DR Ayesh\bin\Debug\Cases
وفى نفس الوقت عبر اداة OpenFileDialog1 اختار الصور الاتية من الاسكنر وتحفقظا فى المجلد الذى تم
وعند الضغط على مجلد عرض المرفقات يفتح المجلد الى باس اسم الحالة
انا اريد حفظ الصور بعيد عن قاعد البينات علشان الحجم والى تشوفة مناسب اعمله وشكرا لك
حتى لو بدك تغير الفورم غيره المهم الفكره تكون وصلت وشكرا كتتتتير الك ^_^
السّلام عليكم و رحمة الله و بركاتهأخي الكريم .. ليس القصد من تغيير الفورم .. من أجل كلمة التغيير و فقطو أنا أتسلّى أوقات الفراغ .. جرّبت ملف صغير لعيادة طبّية مع إمكانية إضافة المستندات و تحرير الوصفة الطبّية و ما شابه ذلكلمّا شاهدت موضوعك حول هذا المجال .. قلت بنفسي .. فقط أقوم بتغيير ما يلزمك بمشروعي الخاص و إعادة ترجمة ما يلزم لأنّ الملف عندي باللغة الفرنسية و هي اللغة التي يتعامل بها كافّة أطباء الجزائر بكامل قطرها
أتمنى أنّ الفكرة وصلت .. و أرجو من الله مخلصا أن تكون إجابة أستاذنا القدير " عبد الله الدوسري " قد حقّقت المطلوبتحياتي للجميع
الى تشوفة مناسب اعمله اخى بس المقصد ما بدى اتعبك علشان كود صغير ندخل فى تعب كبير شكرا لك
RE: طلب كود لعمل مجلد لكل حالة - عبدالله الدوسري - 01-05-18
لدي ملاحظة مهمة على مشروعك : الملاحظات كثيرة ولكن سأذكر أهمها للإختصار
البرنامج دائماً وأبداً يبقى في الخلفية ولا يتم إغلاقة
[attachment=17838]
الحل بطريقة نموذجية :
1 :
[attachment=17839]
2 :
[attachment=17840]
3 :
[attachment=17841]
4 :
[attachment=17842]
5 :
[attachment=17843]
6 :
[attachment=17846]
7 :
[attachment=17844]
تم إضافة كود المرفقات وعرضها .
المشروع بعد التعديل :
[attachment=17845]
RE: طلب كود لعمل مجلد لكل حالة - issamsaidd - 01-05-18
شكرا لك البرنامج حملته ما اشتغل ولكن طبق الخطواط زبطت بس سئول اخير
المسار هادا
"C:\Users\ISSAM\Documents\Visual Studio 2010\Projects\DR Ayesh\DR Ayesh\bin\Debug\medicalreport.dotx"
عند نقل البرنامج لمكان اخر ملف medicalreport.dotx
مفيش طريقة ينقل تلقئيا فى اى مكان مها تم نقل البرنامج وشكرا لك