تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جلب معلومات الدرايف
#1
Sad 
السلام عليكم ورحمة الله وبركاته
اخواني اود ان اسالكم عن كود
انا حاليا اعمل على برنامج لعمل scan
بحيث لو ظغطت على الزر الاول "button1"
رح اختر مكان الدرايف الذي اود عمل scan له

كود :
Dim i As New FolderBrowserDialog
     If i.ShowDialog Then
         TextBox1.Text = i.SelectedPat
     End If

وعند الظغط على الزر الثاني "button2"
اريد التايمر يبدا "timer.start()"
والبروقرسبار يبدا "ProgressBar1"
اما اليبل "Label1" اريد منه ان يكتب اسماء الملفات الموجودة في الدرايف
يعني مثل الانتي فايروس

فهل يمكن المساعدة
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#2
استخدم For Each مادام ان المحرك معروف .. فالامر ابسط.
http://msdn.microsoft.com/en-us/library/...s.71).aspx
http://msdn.microsoft.com/en-us/library/...-snippet-1
الرد }}}
تم الشكر بواسطة: hitman48 , asemshahen5
#3
(03-10-14, 09:03 PM)سعود كتب : استخدم For Each مادام ان المحرك معروف .. فالامر ابسط.
http://msdn.microsoft.com/en-us/library/...s.71).aspx
http://msdn.microsoft.com/en-us/library/...-snippet-1


اخي هذا هو المثال الذي اريد ان اعمله

الرد }}}
تم الشكر بواسطة: asemshahen5
#4
نعم مثل القرص الصلب "c:/" او "d:/"
او باقي الاقرصة الخاصة مثل الفلاش usb
وهذه الاخيرة قد حددتها

وهذا هو الكود الخاص بها
Dim i As New FolderBrowserDialog
If i.ShowDialog Then
TextBox1.Text = i.SelectedPat
End If

اما الذي بقي هو اضهار الملفات في الليست بوكس واليبل عند عمل سكان لمجلد ان امكن

وشكرا لك على متابعة الموضوع
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
اولااشكرجزيل الشكر على  مجهودك  ومتابعتك  للموضوع معي
نعم هذا  ماريد بس في تغير بسيط سوف اقوم به بعد الاطلاع على الكود الخاص بك
لاني كانت غايتي هي  عرض  الملفات مثل السكان  وليس البحث
لكني اشكرك على ذالك

فقط لو لا حظت المثال سوف تفهمني

كود :
Public Class Form1

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Timer1.Start()

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim i As New FolderBrowserDialog
       If i.ShowDialog Then
           TextBox1.Text = i.SelectedPath
       End If
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(1)
       If ProgressBar1.Value = 3 Then
           Label1.Text = "Scan Start"
       End If
       If ProgressBar1.Value = 3 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder"
       End If


       If ProgressBar1.Value = 7 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder\text.txt"
       End If

       If ProgressBar1.Value = 11 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder\kool.mp3"
       End If

       If ProgressBar1.Value = 16 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder\vol.avi"
       End If
       If ProgressBar1.Value = 100 Then
           Label1.Text = "Start complet"
       End If
   End Sub
End Class
اما هنا  ""=Label1.Text
اريد ان يعمل  القيم  اوتوماتكيا
دون ان احددها انا
اوسف على تعبك معي
الرد }}}
تم الشكر بواسطة: asemshahen5
#6
معلش اخي الكريم مافهمت الكود ...ان شالله احد يستطيع فعل ماتريد
الرد }}}
تم الشكر بواسطة: hitman48 , asemshahen5 , asemshahen5
#7
كل الشكرلك وعلى تعاونك
الرد }}}
تم الشكر بواسطة: asemshahen5
#8
(03-10-14, 10:36 PM)hitman48 كتب : كل الشكرلك   وعلى تعاونك

هذا كود يضضع لك اسامي الملفات وصيغته في الليست بوكس

PHP كود :
Dim Dr As New DirectoryInfo(TextBox1.Text)
 
       Dim Fl As IO.FileInfo
        For Each Fl In Dr
.GetFiles
            ListBox1
.Items.Add(Fl.Name)
 
       Next 



لو تلاحظ في textbox1.text غيره الى مسار الفلاش
الرد }}}
تم الشكر بواسطة: hitman48 , asemshahen5
#9
الله الله الله مثل ماطلبت اخي vbnet شكرا كثير كثير كثير
هذا هوالمثاال بالظبط بقت خاصية ProgressBar1 هل يمكن اضافتها يعني كلما البينات بتنعرض كلما تقدمة قيمة ProgressBar1 الى ان تصل الى النهاية .
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#10
.....

أتوقع أن هذا الكود هو مطلوبك - إظهار نتائج البحث بشكل استعراضي
كود :
Public Class Form1

    ' تعريفات
    Dim th As Threading.Thread
    Dim fb As New FolderBrowserDialog
    Dim sPath As String

    ' إعدادت
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False
        Me.TextBox1.Enabled = False
    End Sub

    ' تحديد المسار
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If fb.ShowDialog = Windows.Forms.DialogResult.OK Then
            sPath = fb.SelectedPath
            Me.TextBox1.Text = fb.SelectedPath
            Me.Button2.Enabled = True
        End If
    End Sub

    ' بدء البحث
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If sPath.Trim <> "" Then
            Me.ProgressBar1.Value = 0
            Me.Button1.Enabled = False
            Me.Button2.Enabled = False
            th = New Threading.Thread(AddressOf thTask)
            th.IsBackground = True
            th.Start()
        End If
    End Sub

    ' عملية البحث
    Private Sub thTask()
        ListBox1.Items.Clear()
        Dim files() As String = IO.Directory.GetFiles(sPath, "*.*", IO.SearchOption.AllDirectories)
        Me.ProgressBar1.Maximum = files.Count
        For Each filename As String In files
            Me.ListBox1.Items.Add(filename)
            Me.ListBox1.SelectedIndex = Me.ListBox1.Items.Count - 1
            Me.Label1.Text = filename
            Me.ProgressBar1.Increment(1)
            'Threading.Thread.Sleep(10)' لإبطاء سرعة الاستعراض عند الحاجة
        Next
        Me.Label1.Text = ""
        Me.Button1.Enabled = True
     End Sub

End Class

.....
الرد }}}
تم الشكر بواسطة: hitman48 , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اقوم بسحب معلومات من صفحة ويكيبديا zxz5432 12 7,121 20-01-23, 01:27 AM
آخر رد: lysalh65@gmail.com
  [كود] مطلوب كود يسحب معلومات بسيطة من موقع كورة مثلا؟ خالد يعقوب 1 1,112 25-07-21, 04:22 PM
آخر رد: aldery
  عرض معلومات DataGridView في فورم أخر عند الضغط على الاسم aldery 9 3,290 11-06-21, 06:23 PM
آخر رد: sayyad
  [سؤال] كيف لي أن أقرأ صورة jpg وكتابتها كنص في صندوق نص , معلومات الصورة وبايتات الصورة rafaag777 0 869 23-07-20, 03:56 AM
آخر رد: rafaag777
  [VB.NET] كيف يمكن عرض معلومات JSON في Combobox فيجوال بيسك Sorax 1 1,605 14-06-20, 10:20 PM
آخر رد: kiki
  [VB.NET] استدعاء معلومات جدولين عن طريق المفتاح الاجنبي ali saud 7 1,913 02-05-20, 04:13 AM
آخر رد: aljzazy
  سؤال حول Setup Factory كيفية جعل الدرايف المحدد غير السي تلقائيا alaa_altunsi 0 1,299 30-08-19, 11:48 AM
آخر رد: alaa_altunsi
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 1,333 21-01-19, 06:49 PM
آخر رد: dubai.eig
  تبدل معلومات قاعدة البيانات SonBasel 4 1,871 03-01-19, 12:16 AM
آخر رد: عبدالله الصافي
  عرض معلومات ف DatagridView Emam emam 9 3,446 02-01-19, 03:47 PM
آخر رد: new_programer

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


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