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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة نوع اصدار الويندوز 32 او 64 atefkhalf2004 6 114 منذ 2 ساعة مضت
آخر رد: elgokr
  [سؤال] البحث في الاكسس اسامه الهرماوي 1 31 اليوم, 01:17 AM
آخر رد: عبد العزيز البسكري
  [سؤال] طريقة البحث ابو يوسف النواوي 2 2 92 أمس, 09:08 PM
آخر رد: elgokr
  يجبرني البرنامج على حفظ صورة الموظف!! أبووسم 3 109 10-12-18, 11:49 PM
آخر رد: ahmadpal
  [سؤال] كيف يتم البحث عن شاشة بالفعل تعمل وتفعيلها لتصبح فوق الجميع dametucorazon 3 86 10-12-18, 05:47 AM
آخر رد: rmnr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 83 08-12-18, 08:36 PM
آخر رد: masry4u
  [سؤال] واجهات البرنامج تظهر في الاجهزة الاخرى بحجم كبير yassbazz1987 3 79 07-12-18, 05:07 PM
آخر رد: ahmadpal
  [سؤال] توقف البرنامج عن العمل allo5_800 7 134 05-12-18, 08:25 PM
آخر رد: ابو روضة
  [سؤال] كيف أقوم بنسخ كلام عربي او انجليزي من صورة من خلال VB.net dametucorazon 4 120 04-12-18, 12:06 PM
آخر رد: dametucorazon
Rainbow [سؤال] تشغيل البرنامج ببرنامج اسامه الهرماوي 6 172 02-12-18, 09:33 PM
آخر رد: اسامه الهرماوي

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


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