منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف يتم البحث في الويندوز من خلال البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف يتم البحث في الويندوز من خلال البرنامج (/showthread.php?tid=17071)

كيف يتم البحث في الويندوز من خلال البرنامج - jassim316 - 29-08-16

السلام عليكم .

اريد وضع تكست بوكس يتم فيه ادخال رقم معين او كلمه من قبل المستخدم ويتم البحث عنها في الويندوز .

بحثت كثير بس مالقيت شي بهالموضوع

RE: كيف يتم البحث في الويندوز من خلال البرنامج - أبو ناصر - 29-08-16

ما هو قصدك في ويندوز ؟
أخي اذا كان قصدك أن تبحث في جهازك جرب هذا الكود
كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()
        Dim FBD As New FolderBrowserDialog
        If FBD.ShowDialog <> DialogResult.OK Then Return
        Dim source_path As String = FBD.SelectedPath
        Dim arrayFiles() As String = Directory.GetFiles(source_path, TextBox3.Text & ".*")
        For Each x In arrayFiles
            TextBox1.Text += x & Environment.NewLine
        Next
    End Sub

لا تنسى استدعاء المكتبة  Imports System.IO


RE: كيف يتم البحث في الويندوز من خلال البرنامج - jassim316 - 30-08-16

اشكرك بو ناصر على الرد .
المثال الي عطيتني اياه ماضبط وياي

الطريقة المطلوبه اني عندي textbox و listbox

في التكست يحط المستخدم اي اسم لاي ملف مثلا ويقوم البرنامج بالبحث عن هذا الملف في جهاز الكمبيوتر c: وتظهر النتيجه في listbox

RE: كيف يتم البحث في الويندوز من خلال البرنامج - أبو ناصر - 30-08-16

فهمت قصدك ، يتطلب ذلك كود صلاحيات الوصول للقرص C 
حاول أن تبحث عنه ، و ان وجدته سأزودك به ان شاء الله
 
الكود السابق يشتغل في الأقراص الأخرى D ,E... قمت بتجربته ويعمل . عدلته حسب طلبك مع بعض التغييرات البسيطة كمايلي :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       Dim FBD As New FolderBrowserDialog
       If FBD.ShowDialog <> DialogResult.OK Then Return
       Dim source_path As String = FBD.SelectedPath
       Dim arrayFiles() As String = Directory.GetFiles(source_path, TextBox1.Text & ".*")
       For Each x In arrayFiles
         ListBox1.Items.Add(x)
       Next
   End Sub


RE: كيف يتم البحث في الويندوز من خلال البرنامج - سعود - 30-08-16

الملف مرفق
ممكن تعدل عليه بحيث يكون البحث مطابق تماما بحيث تستبدل كلمة contains بعلامة =

RE: كيف يتم البحث في الويندوز من خلال البرنامج - أبو ناصر - 30-08-16

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

RE: كيف يتم البحث في الويندوز من خلال البرنامج - سعود - 30-08-16

(30-08-16, 08:33 PM)أبو ناصر كتب : شكرا أخ سعود أردت أن اطلع على الكود لزيادة المعرفة لكن جهزي لا يتحمل اصدار النيتفروموورك V1.6  
أرجو أن تمدنا بالكود وشكرا جزيلا لك

افتح ملف Form1.vb باي محرر نصوص ستجد الاكواد.

RE: كيف يتم البحث في الويندوز من خلال البرنامج - أبو ناصر - 30-08-16

شكرا جزيلا

RE: كيف يتم البحث في الويندوز من خلال البرنامج - jassim316 - 30-08-16

مشكورين يا شباب يعطيكم الف عافيه