منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمه الله وبركاته
عند ضع هذا المسار " D:/file image" في الخاصيه URL الخاصه بال WebBrowser فانه سيعرض لك الملفات والمجلدات الموجوده في هذا المسار داخل الwebbrowser
سؤالي هو كيف فلتره الملفات المعروضه في الWebBrowser ول يكن مثلا الملف المفلتر هو *.txt
ــــــــــــــّـــــــ
كيف تيقنت بان هذا الكود ممكن ؟
اولا.....
في الاده OpenfileDialog خاصيه اسمها Filter وعند مل هذه الخاصيه بالامتدادات المطلوبه و عند عمل ShowDialogلهذه الاداه تجد اسفل يمين النافذه ComboBox يقوم بفلتره الملفات وطبعا هو يقوم بفلترتها في اداه تشبه الWebBrowser
ثانيا.....
عند ادراج اداه WebBrowser وتعبئه ال URL بمسار مجلد وعند تشغيل البرنامج ستجد عمود باسم نوع عند النقر على السهم الصغير في عمود النوع فانه يعرض لك قائمه فيها جميع الامتدادات الموجوده في هذا الملف وبامكانك فلتره الملفات من القائمه يدويا وانا في سؤالي هذا اريد نعرفه كيف يتم ذلك برمجيا لقد بحث في قوقل بكلمات دلاليه لسؤالي هذا بكلمات انكليزيه وعربيه ولم اجد مبتغاي فارجو المساعده من الله ثم منكم
تقبلو تحياتي

هل تريد مثل هذه الطريقة اخي الكريم

اشكرك اخي الكريم fouadhdfouad
على المتابعه والاهتمام
لكن في ردك تتفلتر الملفات الى ليست بوكس انا اعرف هذه الطريقه
ما اريده انا هو ان تتم فلتره الملفات في اداه الويب بروسر نفسها
لماذا ؟
لاجل الشكل الفني في عرض رموز الملفات والسرعه الخياليه والكثير الكثير مثل الحصول على الاوامر في قائمه السياق وترتيب الملفات ......الخ
واعتذاراتي لكم لان هذا السؤال مهم جدا وسيفيد الكثير في برامج كثيرة وساكوت لحوحاً جدا في هذا الموضوع حتى اجد الاجابه منكم ان شاء الله
وشكرا لكل من هو مهتم

السلام عليكم اخي معاذ ارجو ان تسامحني على عدم الرد عليك لانني مشغول

لم افهم مقصودك ان كنت تبحث عن هذا فلاباس

تفضل الكود

كود :

Dim open As New FolderBrowserDialog

    Dim oDocument As Object

    Dim strFileName As String

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        strFileName = open.SelectedPath

        If open.ShowDialog = Windows.Forms.DialogResult.OK Then

            WebBrowser1.Navigate(strFileName)

        End If

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        On Error Resume Next

        oDocument = e.Url.IsDefaultPort

    End Sub

قد يكون الموضوع قديم لكن لاهميته قررت اعادته وكان سؤالي هو
محتاج كود في فيجوال بيسك وهو عن كيفيه فلترة الملفات في اداه
ال webBrowser
نعرف انه اذا تم ادخال هذا المسار D:/file في URL الخاص بالاداه فانه عند التشغيل سوف يقون بعرض الملفات والمجلدات الموجوده في المسار المحدد
سوالي هو كيف اجعل الاداه تفلتر الملفات بحيث تعرض الملفات من نوع txt ولا يتم عرض ايه ملفات غيره
طبعا ستجدون ان الشرح صعب الفهم بالطريقه النصيه لذا قمت بوضعه على شكل فيديو يكون افضل وشكرا لكل من تابع الموضوع [video=dailymotion]https://youtu.be/WzwV0fGxMl4[/video]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

معاذ_ابراهيم

fouadhdfouad

معاذ_ابراهيم

fouadhdfouad

معاذ ابراهيم