[ali.alfoly]

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

جزاكم الله خيرا اخواني

وجعله الله تعالي في موازين حسناتكم

ارجو من احد الاخوة اتمام الدالة لاني حاولت وفشلت وهذه الايام عملت تعديلات في محلي ومشغول جدا فارجو من حدراتكم اتمام هذه الدالة

المقصود تمرير الرقم تعود بالنص مثل الصورة

كود :

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(Get_Size(1080))
    End Sub

    Public Function Get_Size(ByVal Length As Long) As String
        Dim Txt_Siz As String = ""
        If Length < 1024 Then
            Txt_Siz = Length & " Bytes"
        ElseIf Length < 1048576 Then
            Txt_Siz = (Length / 1024) & " KB"
        ElseIf Length < 1073741824 Then
            Txt_Siz = (Length / 1024 / 1024) & " MB"
        End If
        Return Txt_Siz
    End Function

End Class