منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طلب مساعده - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37356)



طلب مساعده - asmarsou - 02-01-21

السلام عليكم
اريد المساعدة في تصميم مشروع يحنوي على بانل به عدد من الصفحات و في كل صفحه بها)5x3)15) بوتون يكون غير مفعله
و عند اختيار ملفات عن طريق  openfiledialog
يتم تفعيل البوتونات التي بالبانل على حسب عدد الملفات المختاره عن طريق الopenfiledialog و عند الضغط على الزر المفعل يتم فتح الملف المرافق له
ارجو مساعدتكم


RE: طلب مساعده - عبد الهادي بهاب - 03-01-21

(02-01-21, 10:05 PM)asmarsou كتب : السلام عليكم
اريد المساعدة في تصميم مشروع يحنوي على بانل به عدد من الصفحات و في كل صفحه بها)5x3)15) بوتون يكون غير مفعله
و عند اختيار ملفات عن طريق  openfiledialog
يتم تفعيل البوتونات التي بالبانل على حسب عدد الملفات المختاره عن طريق الopenfiledialog و عند الضغط على الزر المفعل يتم فتح الملف المرافق له
ارجو مساعدتكم

السلام عليكم
اقتراح لماذا تستعمل الازرار ؟
الافضل ان تستغل عنصر listbox

المعنى:
ضع زر واحد فيه امر لفتح مجلد FolderBrowserDialog()
تحته ليسبوكس

لما تضغط على الزر يفتح مربع لاستعراض المجلدات FolderBrowserDialog() و ليس openfiledialog لانه فقط لملف واحد 



الان في امر البوتون نزرع الكود 

نمسح محتوى اليسبوكس
ثم نهر مربع نص
ثم نستدغي كل الملفات الموجودة في المجلد الى اليسبوكس
طبعا يمكن ان تستثني بتغيير علامة * الثانية باي توسعة تريده مثلا *.txt ........الخ

PHP كود :
ListBox1.Items.Clear()
 
       If FolderBrowserDialog1.ShowDialog 1 Then

            For Each fichier 
As String In IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath"*.*"IO.SearchOption.AllDirectories)
 
               Dim fnam As String fichier.Substring(fichier.LastIndexOf("\") + 1)
                ListBox1.Items.Add(fichier)
            Next
          
        End If 

اذا اردت استههار الاسم فقط عوض السطر 

الان في لما يختار اي ملف سيفتح خارج المشروع حسب fnam  عوض fichier في سطر   ListBox1.Items.Add(fichier)

في اليسبوكس ضع الكود

PHP كود :
Process.Start(ListBox1.Text


و الله اعلم ......... هذا يعفيك من الكثير من المعادلات و الشروط


RE: طلب مساعده - asmarsou - 03-01-21

(03-01-21, 12:29 PM)عبد الهادي بهاب كتب :
(02-01-21, 10:05 PM)asmarsou كتب : السلام عليكم
اريد المساعدة في تصميم مشروع يحنوي على بانل به عدد من الصفحات و في كل صفحه بها)5x3)15) بوتون يكون غير مفعله
و عند اختيار ملفات عن طريق  openfiledialog
يتم تفعيل البوتونات التي بالبانل على حسب عدد الملفات المختاره عن طريق الopenfiledialog و عند الضغط على الزر المفعل يتم فتح الملف المرافق له
ارجو مساعدتكم

السلام عليكم
اقتراح لماذا تستعمل الازرار ؟
الافضل ان تستغل عنصر listbox

المعنى:
ضع زر واحد فيه امر لفتح مجلد FolderBrowserDialog()
تحته ليسبوكس

لما تضغط على الزر يفتح مربع لاستعراض المجلدات FolderBrowserDialog() و ليس openfiledialog لانه فقط لملف واحد 



الان في امر البوتون نزرع الكود 

نمسح محتوى اليسبوكس
ثم نهر مربع نص
ثم نستدغي كل الملفات الموجودة في المجلد الى اليسبوكس
طبعا يمكن ان تستثني بتغيير علامة * الثانية باي توسعة تريده مثلا *.txt ........الخ

PHP كود :
ListBox1.Items.Clear()
 
       If FolderBrowserDialog1.ShowDialog 1 Then

            For Each fichier 
As String In IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath"*.*"IO.SearchOption.AllDirectories)
 
               Dim fnam As String fichier.Substring(fichier.LastIndexOf("\") + 1)
                ListBox1.Items.Add(fichier)
            Next
          
        End If 

اذا اردت استههار الاسم فقط عوض السطر 

الان في لما يختار اي ملف سيفتح خارج المشروع حسب fnam  عوض fichier في سطر   ListBox1.Items.Add(fichier)

في اليسبوكس ضع الكود

PHP كود :
Process.Start(ListBox1.Text


و الله اعلم ......... هذا يعفيك من الكثير من المعادلات و الشروط
اشكرك اخي
اما اختيار الازرار بدلا من الليست بوكس فهي فكرة من بنات افكاري اردت بها محاكات احدى البرامج