[ali.alfoly]

جزاك الله خيرا اخي الشاكي لله
معلش تعبتك معي انتا والاخوة الافاضل
ما زالت المشكلة قائمة
اريد ان اعرف علي اي اساس يقوم بعرض رقم او رقمين بعد الفاصلة لان في الويندوز يقوم احيانا بالعرض واحيانا لايقوم مع ان الاحجام تكون تقريبا متقاربة
انتظر



لماذا في الحالة الاولي عرض اول رقم بعد الفاصلة وفي الحالة الثانية لم يعرضه

---

السلام عليكم
الحمد لله تعالي وصلت للحل وهو سهل جدا سبحان الله
القاعدة التي يتم علي اساسها عرض القيمة هي ان الرقم يجب ان يتكون من ثلاث ارقام فقط مثال
12.2
1.22
122
هههههه طبعا مش مسدق نفسي قاعدة غريبة جدا
انظر الدالة الاخيرة

كود :

Private Function GetFileSize(ByVal FilePath As String) As String
        Try
            Dim Length As Long = New IO.FileInfo(FilePath).Length
            Dim Le_Byt As String = "(" & Length.ToString("#,#") & "  Bytes)"
            '
            If Length < 1024 Then
                Return Le_Byt
            ElseIf Length < 1048576 Then
                Return Set3Byt(Length / 1024) & " KB   " & Le_Byt
            ElseIf Length < 1073741824 Then
                Return Set3Byt(Length / 1048576) & " MB   " & Le_Byt
            ElseIf Length >= 1073741824 Then
                Return Set3Byt(Length / 1073741824) & " GB   " & Le_Byt
            End If
        Catch ex As Exception
        End Try
        Return ""
    End Function

    Private Function Set3Byt(nmpt As String) As String
        Dim txt As String = ""
        Dim str As Byte = 0
        For Each Cr As Char In nmpt
            txt += Cr
            If Cr <> "." Then str += 1
            If str = 3 Then Exit For
        Next
        Return txt
    End Function

الشكر موصول للاخوة الافاضل
الاخ الحبيب الي قلبي جدا محمد . الشاكي لله (السيرقر الذكي ) .... (جاري البحث ... طبعا انتا فقط الي فاهم اللغة دي هههه جزاك الله خيرا
الاخ الكريم معاذ . kslawy شكرا لاهتمامك ومساعدتك جزاك الله خيرا
الاخ الفاضل محمد . البروف سيمونس جزاك الله خيرا علي محاولاتك المتكررة وافكارك الجميلة جزاك الله خيرا
الاخ ناجي إبراهيم جزاك الله خيرا علي المعلومات القيمة