السلام عليكم .
اريد وضع تكست بوكس يتم فيه ادخال رقم معين او كلمه من قبل المستخدم ويتم البحث عنها في الويندوز .
بحثت كثير بس مالقيت شي بهالموضوع
ما هو قصدك في ويندوز ؟
أخي اذا كان قصدك أن تبحث في جهازك جرب هذا الكود
كود :
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
اشكرك بو ناصر على الرد .
المثال الي عطيتني اياه ماضبط وياي
الطريقة المطلوبه اني عندي textbox و listbox
في التكست يحط المستخدم اي اسم لاي ملف مثلا ويقوم البرنامج بالبحث عن هذا الملف في جهاز الكمبيوتر c: وتظهر النتيجه في listbox
فهمت قصدك ، يتطلب ذلك كود صلاحيات الوصول للقرص 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
الملف مرفق
ممكن تعدل عليه بحيث يكون البحث مطابق تماما بحيث تستبدل كلمة contains بعلامة =
شكرا أخ سعود أردت أن اطلع على الكود لزيادة المعرفة لكن جهزي لا يتحمل اصدار النيتفروموورك V1.6
أرجو أن تمدنا بالكود وشكرا جزيلا لك
(30-08-16, 08:33 PM)أبو ناصر كتب : [ -> ]شكرا أخ سعود أردت أن اطلع على الكود لزيادة المعرفة لكن جهزي لا يتحمل اصدار النيتفروموورك V1.6
أرجو أن تمدنا بالكود وشكرا جزيلا لك
افتح ملف Form1.vb باي محرر نصوص ستجد الاكواد.
مشكورين يا شباب يعطيكم الف عافيه
