تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يتم البحث في الويندوز من خلال البرنامج
#1
السلام عليكم .

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

بحثت كثير بس مالقيت شي بهالموضوع
الرد }}}}
تم الشكر بواسطة:
#2
ما هو قصدك في ويندوز ؟
أخي اذا كان قصدك أن تبحث في جهازك جرب هذا الكود
كود :
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
الرد }}}}
تم الشكر بواسطة: سعود
#3
اشكرك بو ناصر على الرد .
المثال الي عطيتني اياه ماضبط وياي

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

في التكست يحط المستخدم اي اسم لاي ملف مثلا ويقوم البرنامج بالبحث عن هذا الملف في جهاز الكمبيوتر c: وتظهر النتيجه في listbox
الرد }}}}
تم الشكر بواسطة: سعود
#4
فهمت قصدك ، يتطلب ذلك كود صلاحيات الوصول للقرص 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
الرد }}}}
تم الشكر بواسطة: سعود
#5
الملف مرفق

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


الملفات المرفقة
.zip   For_.zip (الحجم : 68.03 ك ب / التحميلات : 32)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: أبو ناصر
#6
شكرا أخ سعود أردت أن اطلع على الكود لزيادة المعرفة لكن جهزي لا يتحمل اصدار النيتفروموورك V1.6  
أرجو أن تمدنا بالكود وشكرا جزيلا لك
الرد }}}}
تم الشكر بواسطة: سعود
#7
(30-08-16, 08:33 PM)أبو ناصر كتب : شكرا أخ سعود أردت أن اطلع على الكود لزيادة المعرفة لكن جهزي لا يتحمل اصدار النيتفروموورك V1.6  
أرجو أن تمدنا بالكود وشكرا جزيلا لك

افتح ملف Form1.vb باي محرر نصوص ستجد الاكواد.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#8
شكرا جزيلا
الرد }}}}
تم الشكر بواسطة:
#9
مشكورين يا شباب يعطيكم الف عافيه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية البحث بواسطة قيم هي نفسها ناتج بحث امحمد 0 13 اليوم, 04:53 AM
آخر رد: امحمد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 5,005 25-05-17, 08:04 AM
آخر رد: hatem555
  مشكلة في البحث بالتاريخ ____وايضا ____ بين تاريخين khaled12345 7 144 24-05-17, 03:55 PM
آخر رد: khaled12345
  البحث باستخدام Rich Box khaled12345 9 135 22-05-17, 02:34 PM
آخر رد: khaled12345
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  البحث او الفلتر باكثر من اسم من داخل عمود Name khaled12345 2 68 21-05-17, 08:18 AM
آخر رد: khaled12345
  عملية البحث بين تاريخين khaled12345 8 121 19-05-17, 11:28 PM
آخر رد: khaled12345
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 95 19-05-17, 03:50 PM
آخر رد: khaled12345
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 97 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  كيف بهذا البحث rabeh.ram 2 89 16-05-17, 01:25 AM
آخر رد: alma2

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم