السلام عليكــم ورحمـة الله وبركاتــه ،،
أريد أن اعرف كيف اقوم باظهار ناقذة browse for folder من خلال الفيجوال وكيف أقوم بالتعامل مع ولكم جزيل الشكر
سبحان الله وبحمده سبحان الله العظيم
[تنبيه - استخدم البحث :]كيف أقوم باظهار نافذة Browse For Folder وكيف أتعامل معها؟
// تعريف وبناء العنصر الذي سيقوم بإضهار النافدة Dim fbd As New FolderBrowserDialog() // تحديد مسار المجلد الذي سيضهر عند ضهور النافدة fbd.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) // لإضهار زر New folder أم لا fbd.ShowNewFolderButton = True fbd.Description = "عنوان أو رسالة إلى المستخدم" // إضهار النافدة و انتظار المستخدم إلى أن ينقر الزر OK If fbd.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then // مسار المجلد الذي اختاره المستخدم هنا Me.Text = fbd.SelectedPath End If
آسف يا أخي... لقد أخطأت في العنوان. الكود أعلاه ل VB.NET و ليس VB6
تم تعديل هذه المشاركة بواسطة محمد رضى في 22 يوليو 2009 في 01:10
الأخ الكريم/الأخت الكريمة
السلام عليكم ورحمة الله وبركاته.
مرحباً بكم في منتدى الفريق العربي للبرمجة
تحدثنا عن هذا الموضوع في أكثر من موضوع سابق، الرجاء استخدام البحث والإطلاع على المواضيع المثبتة.
كما يرجى التنبه وعدم تكرار المخالفة في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.
قواعد المشاركة
شاكرين لكم حُسن تعاونكم
-------------------------------------------------
تم تعديل هذه المشاركة بواسطة GHOST2010 في 22 يوليو 2009 في 09:55
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال