منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل هذا الكود (/showthread.php?tid=9449)

تعديل هذا الكود - مبتدئ - 28-06-13

كود :
Dim Types As String = ".jpg.png"
If Types.Contains(Path.GetExtension) Then
Dim information = My.Computer.FileSystem.GetFileInfo("C:\MyFile.jpg")
MsgBox("The file's full name is " & information.FullName & ".")
        End If
]
هذا الكود اذا كان صيغة الملف jpg او png يتم تنفيز العملية

تعديل هذا الكود - Sajad - 28-06-13

السلام عليكم

جرب هذا الكود

PHP كود :
If IO.Path.GetExtension("C:\MyFile.jpg") = ".jpg" Or IO.Path.GetExtension("C:\MyFile.jpg") = ".png" Then
            MessageBox.Show(IO.Path.GetExtension("C:\MyFile.jpg"))
        End If 

موفق ان شاءالله

تعديل هذا الكود - مبتدئ - 29-06-13

sajad كتب :السلام عليكم

جرب هذا الكود

PHP كود :
If IO.Path.GetExtension("C:\MyFile.jpg") = ".jpg" Or IO.Path.GetExtension("C:\MyFile.jpg") = ".png" Then
            MessageBox.Show(IO.Path.GetExtension("C:\MyFile.jpg"))
        End If 

موفق ان شاءالله

اخى هل يمكن اذالة مسار الملف ؟

انا وجت هذا الكود لاكن يعمل فى ال DragDrop فهل يمكن تعديلة ؟

كود :
[CODE]        Dim s() As String = e.Data.GetData("FileDrop", False)
        Dim i As Integer
        Dim Types As String = ".jpg .png"
        If Types.Contains(Path.GetExtension(s(i))) Then

        End If
[/CODE]

تعديل هذا الكود - Sajad - 29-06-13

السلام عليكم

أخي لا يجوز ازالة اسم الملف لان دالة الـExtension تأخذ مدخل واحد وهو مسار الملف ,لذا لايمكن ذلك ,يعني هي في الاساس مبنية على هذا الشكل.

أما بخصوص الDrag&Drop نفس الشيء ,لاحظ كيف مسند مسارات الصور الى الدالة Extension

تعديل هذا الكود - مبتدئ - 29-06-13

اخى انا اريدة ذى هاذا الكود لاكن لا اعرف كيف اخلى Listbox متابلش غير jpg
كود :
For Each Path As String In My.Application.CommandLineArgs
            Dim file As String() = Directory.GetFiles(Path, "*.jpg")
            Dim i As Integer
            For i = 0 To UBound(file)
                Dim temp As String
                temp = file(i)
                ListBox1.Items.Add(temp)
            Next
        Next


تعديل هذا الكود - Sajad - 29-06-13

السلام عليكم

تفضل:

PHP كود :
Dim paths As String() = IO.Directory.GetFiles("C:\\Users\\Public\\Pictures\\Sample Pictures", "*.jpg", System.IO.SearchOption.AllDirectories)
        For Each path As String In paths
            ListBox1.Items.Add(IO.Path.GetFileName(path))
        Next 

الكود أعلاه يقوم بجلب كافة الصور التي بصيغة jpg في مسار محدد ,ويمكن تغيير الامتداد الا أي امتداد آخر تريده

تعديل هذا الكود - مبتدئ - 29-06-13

sajad كتب :السلام عليكم

تفضل:

PHP كود :
Dim paths As String() = IO.Directory.GetFiles("C:\\Users\\Public\\Pictures\\Sample Pictures", "*.jpg", System.IO.SearchOption.AllDirectories)
        For Each path As String In paths
            ListBox1.Items.Add(IO.Path.GetFileName(path))
        Next 

الكود أعلاه يقوم بجلب كافة الصور التي بصيغة jpg في مسار محدد ,ويمكن تغيير الامتداد الا أي امتداد آخر تريده
جزاك الل خير اخى

تعديل هذا الكود - sooriaty03 - 29-06-13

السلام عليكم ورحمة الله وبركاته

بحسب ما فهمت من سؤالك أنك تريد فتح مجلد بواسطة برنامجك
وبعد ذلك يقوم برنامجك بتفحص الملفات الموجودة داخل هذا المجلد فإن وجد ملف صورة ذات امتداد jpg أو png قام بإضافتها إلى ListBox1

في هذه الحالة يجب أن تتأكد أن المستخدم سيقوم بفتح مجلد وليس ملف وإلا سيظهر خطأ في البرنامج

تابع معي الكود التالي

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Path As String In My.Application.CommandLineArgs
           [color=#008000] 'قمنا بعمل شرط للتحقق من أن المتغير عبارة عن مجلد[/color]
            If IO.Directory.Exists(Path) Then
              [COLOR=#008000]  'المتغير عبارة عن مجلد
                'نقوم باستيراد ملفات الصور ذات الامتداد المطلوب[/COLOR]
                ListBox1.Items.AddRange(Directory.GetFiles(Path, "*.jpg"))
            Else
             [COLOR=#008000]   'المتغير عبارة عن ملف
                'سنقوم بفحصه لنرى هل هو صورة[/COLOR]
                If IO.Path.GetExtension(Path) = ".jpg" Then
                [color=#008000]    'الملف صورة وبالتالي نقوم بإضافته إلى القائمة[/color]
                    ListBox1.Items.Add(Path)
                End If
            End If
        Next
    End Sub

بالتوفيق

تعديل هذا الكود - مبتدئ - 30-06-13

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

بحسب ما فهمت من سؤالك أنك تريد فتح مجلد بواسطة برنامجك
وبعد ذلك يقوم برنامجك بتفحص الملفات الموجودة داخل هذا المجلد فإن وجد ملف صورة ذات امتداد jpg أو png قام بإضافتها إلى ListBox1

في هذه الحالة يجب أن تتأكد أن المستخدم سيقوم بفتح مجلد وليس ملف وإلا سيظهر خطأ في البرنامج

تابع معي الكود التالي

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Path As String In My.Application.CommandLineArgs
           [color=#008000] 'قمنا بعمل شرط للتحقق من أن المتغير عبارة عن مجلد[/color]
            If IO.Directory.Exists(Path) Then
              [COLOR=#008000]  'المتغير عبارة عن مجلد
                'نقوم باستيراد ملفات الصور ذات الامتداد المطلوب[/COLOR]
                ListBox1.Items.AddRange(Directory.GetFiles(Path, "*.jpg"))
            Else
             [COLOR=#008000]   'المتغير عبارة عن ملف
                'سنقوم بفحصه لنرى هل هو صورة[/COLOR]
                If IO.Path.GetExtension(Path) = ".jpg" Then
                [color=#008000]    'الملف صورة وبالتالي نقوم بإضافته إلى القائمة[/color]
                    ListBox1.Items.Add(Path)
                End If
            End If
        Next
    End Sub

بالتوفيق

جزاك الله خير اخى