تقييم الموضوع :
  • 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 ك ب / التحميلات : 29)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أبو ناصر
#6
شكرا أخ سعود أردت أن اطلع على الكود لزيادة المعرفة لكن جهزي لا يتحمل اصدار النيتفروموورك V1.6  
أرجو أن تمدنا بالكود وشكرا جزيلا لك
الرد }}}}
تم الشكر بواسطة: سعود
#7
(30-08-16, 08:33 PM)أبو ناصر كتب : شكرا أخ سعود أردت أن اطلع على الكود لزيادة المعرفة لكن جهزي لا يتحمل اصدار النيتفروموورك V1.6  
أرجو أن تمدنا بالكود وشكرا جزيلا لك

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديد مسار البرنامج atefkhalf2004 4 52 منذ 3 ساعة مضت
آخر رد: amgad525
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 133 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 53 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 152 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 122 30-11-16, 06:42 PM
آخر رد: عزف الخواطر
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 44 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 67 29-11-16, 01:35 AM
آخر رد: Samosoft
  خطأ عند البحث khalid475 1 48 28-11-16, 06:23 PM
آخر رد: khalid475
  [سؤال] كود البحث عن طريق اسم naden 1 73 28-11-16, 02:05 PM
آخر رد: Adrees
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 53 21-11-16, 11:48 PM
آخر رد: السرور

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


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