[البروف سيمونس]

(29-12-13, 03:59 AM)ali.alfoly كتب : السلام عليكم ورحمة الله

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

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

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

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

عليكم السلام اهلا بك استاذي علي ، حاولت انا كذلك ولم اجد نتيجة ولكن لعل الاخوان لديهم افادة بهذا الشيء لأنني اصبحت مثلك اريد المحصلة النهائية ..
حاولت انا بطريقة أخرى وإليك الكود والصورة :

PHP كود :

open.Filter = "AllFiles |*.*"

        If open.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim FilesInfo As FileInfo = New FileInfo(open.FileName)

            TextBox1.Text = (open.FileName)

            Label2.Text = String.Format("Size : " & Math.Round(FilesInfo.Length / 1024, 1) & "  KB  " & (Math.Round(FilesInfo.Length, 1) & "   Bytes  "))
        End If 


   
قد تكون محاولة فاشلة ولكن اعتقد ان النتيجة طيبة .

تحياتي / محمد .