09-08-20, 01:51 PM
السلام عليكم
تجسيدا لبعض ما تعلمناه من هنا و هناك
هذا مثال عن كيفية استغلال عنصر ListView
اولا :
في صفحة العمل نضيف عنصر ليس فيو
و نضيف اليه اربعة اعمدة الاسم و النوع و الحجم و مسار الملف
نعلن عنه في كود الصفحة العام
الان نضيف زر ليظهر لنا مربع اظهار مجلد البحث FolderBrowserDialog
و النتيجة يظهر مسار المجلد في مربع نص textbox1
و النتائج في اليست فيو
الان في عنصر image list
نضيف صور تعبر عن نوعية الملفات صور او ملف وورد او ملف pdf او مجلد او ملف صوتي ....الخ
نضيف نوع الصورة (img) الى العنصر في اخر الكود مثال
لذلك سيكون كود الزر بشكل كلي عند الضغط هو :
و معناه سيبظهر مربع بحث عن مجلد ............ لما تختار مجلد
اولا سيظهر ملفاته هو ثم مجلدات تابعة له و ملفاتها ايضا
و سيقارن نوع الملف ان كان صوتا mp3 او ملف تكست txt او ملف pdf او ملف وورد docx او صورة gif.png . jpg
طبعا يمكنك اضافة اشكال اخرى و صور اخرى غير فقط في الكود و الشرط
................
جميل جدا
الان نضيف مربع نص في الاسفل من اجل البحث التلقائي و عنصر ليستبوكس listbox ......... يعني كلما كتب حرفا في مربع النص سيظهر النتائج في قائمة listbox
لذلك سنستعمل خاصية TextBox2_TextChanged
نزرع فيه الكود التالي :
الشكل النهائي للعمل :
الملف المفتوح للتعديل و المعاينة
https://top4top.io/downloadf-1682gsjbg1-rar.html
تجسيدا لبعض ما تعلمناه من هنا و هناك
هذا مثال عن كيفية استغلال عنصر ListView
اولا :
في صفحة العمل نضيف عنصر ليس فيو
و نضيف اليه اربعة اعمدة الاسم و النوع و الحجم و مسار الملف
نعلن عنه في كود الصفحة العام
PHP كود :
Dim Monlist As New ListViewItem()
الان نضيف زر ليظهر لنا مربع اظهار مجلد البحث FolderBrowserDialog
PHP كود :
Dim dos As New FolderBrowserDialog
و النتيجة يظهر مسار المجلد في مربع نص textbox1
PHP كود :
TextBox1.Text = dos.SelectedPath
و النتائج في اليست فيو
الان في عنصر image list
نضيف صور تعبر عن نوعية الملفات صور او ملف وورد او ملف pdf او مجلد او ملف صوتي ....الخ
نضيف نوع الصورة (img) الى العنصر في اخر الكود مثال
PHP كود :
ListView1.Items.Add(New ListViewItem({type.Name, ext, tai, file}, img))
لذلك سيكون كود الزر بشكل كلي عند الضغط هو :
PHP كود :
ListView1.Items.Clear()
Dim img As Integer = 1
Dim dos As New FolderBrowserDialog
If dos.ShowDialog() = 1 Then
TextBox1.Text = dos.SelectedPath
For Each dossier In IO.Directory.GetDirectories(dos.SelectedPath)
Dim info As New IO.DirectoryInfo(dossier)
ListView1.Items.Add(New ListViewItem({info.Name, "Dossier", "", dossier}, 0))
For Each file In IO.Directory.GetFiles(dossier)
Dim type As New IO.FileInfo(file)
Dim ext As String = type.Extension.Substring(1, type.Extension.Length - 1)
If ext = "mp3" Then
img = 6
ElseIf ext = "txt" Then
img = 2
ElseIf ext = "pdf" Then
img = 5
ElseIf ext = "docx" Then
img = 3
ElseIf ext = "png" Or ext = "jpg" Or ext = "gif" Then
img = 4
End If
Dim tai As String = (type.Length / 1024 / 1024).ToString("0.00") & " Mo"
ListView1.Items.Add(New ListViewItem({type.Name, ext, tai, file}, img))
Next
Next
For Each file In IO.Directory.GetFiles(dos.SelectedPath)
Dim type As New IO.FileInfo(file)
Dim ext As String = type.Extension.Substring(1, type.Extension.Length - 1)
If ext = "mp3" Then
img = 6
ElseIf ext = "txt" Then
img = 2
ElseIf ext = "pdf" Then
img = 5
ElseIf ext = "docx" Then
img = 3
ElseIf ext = "png" Or ext = "jpg" Or ext = "gif" Then
img = 4
End If
Dim tai As String = (Type.Length / 1024 / 1024).ToString("0.00") & " Mo"
ListView1.Items.Add(New ListViewItem({type.Name, ext, tai, file}, img))
Next
End If
و معناه سيبظهر مربع بحث عن مجلد ............ لما تختار مجلد
اولا سيظهر ملفاته هو ثم مجلدات تابعة له و ملفاتها ايضا
و سيقارن نوع الملف ان كان صوتا mp3 او ملف تكست txt او ملف pdf او ملف وورد docx او صورة gif.png . jpg
طبعا يمكنك اضافة اشكال اخرى و صور اخرى غير فقط في الكود و الشرط
................
جميل جدا
الان نضيف مربع نص في الاسفل من اجل البحث التلقائي و عنصر ليستبوكس listbox ......... يعني كلما كتب حرفا في مربع النص سيظهر النتائج في قائمة listbox
لذلك سنستعمل خاصية TextBox2_TextChanged
نزرع فيه الكود التالي :
PHP كود :
ListBox1.Items.Clear()
For Each item As ListViewItem In ListView1.Items
If item.Text.Contains(TextBox2.Text) Then
ListBox1.Items.Add(item.Text)
End If
Next
الشكل النهائي للعمل :
الملف المفتوح للتعديل و المعاينة
https://top4top.io/downloadf-1682gsjbg1-rar.html
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك