تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب مساعده
#1
السلام عليكم
اريد المساعدة في تصميم مشروع يحنوي على بانل به عدد من الصفحات و في كل صفحه بها)5x3)15) بوتون يكون غير مفعله
و عند اختيار ملفات عن طريق  openfiledialog
يتم تفعيل البوتونات التي بالبانل على حسب عدد الملفات المختاره عن طريق الopenfiledialog و عند الضغط على الزر المفعل يتم فتح الملف المرافق له
ارجو مساعدتكم
الرد }}}
تم الشكر بواسطة:
#2
(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


و الله اعلم ......... هذا يعفيك من الكثير من المعادلات و الشروط
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد }}}
#3
(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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده فى عمل نسخه احتياطيه خالد كامل1 1 293 13-08-24, 10:39 AM
آخر رد: تركي الحلواني
  مساعده في تشغيل اكثرمن فورم في وقت واحد maherhaddaf 5 897 19-07-23, 03:28 PM
آخر رد: Taha Okla
  مساعده في كود ترحيل البيانات الى اكسل من داتا قرايد فيو maherhaddaf 1 848 27-06-23, 08:03 PM
آخر رد: Shade0001
Question [VB.NET] مساعده في طريقه الاتصال بالسيرفر ايهما افضل Àhmedsaif500 0 540 10-04-23, 09:45 AM
آخر رد: Àhmedsaif500
  مساعده لوسمحتوا mahmoudabdelshafy1 3 772 16-03-23, 02:45 AM
آخر رد: mahmoudabdelshafy1
  [VB.NET] بالله عليكم مساعده عايز اقفل البرنامج بخصوص عمل اذن صرف اكسس وفيجوال 2013 hanyeltnen 7 2,310 04-02-23, 10:36 AM
آخر رد: hanyeltnen
  ممكن مساعده malekmohamed155 0 560 29-01-23, 10:48 PM
آخر رد: malekmohamed155
  [VB.NET] مساعده بسيطه في Dtatable Àhmedsaif500 0 478 06-01-23, 12:18 AM
آخر رد: Àhmedsaif500
  محتاج مساعده بسيطه مع اداه Treevieewer Àhmedsaif500 2 800 04-12-22, 02:39 PM
آخر رد: Àhmedsaif500
  [VB.NET] مساعده في اداة treeviwer Àhmedsaif500 0 496 24-11-22, 09:36 AM
آخر رد: Àhmedsaif500

التنقل السريع :


يقوم بقرائة الموضوع: