بدست آورد سایز نوشته های یک تکست

[tehran2009]

دوستان من یک text1 دارم که توش یه سری نوشته هست. حالا می خوام وقتی روی یک کامند کلیک کنم توی text2 حجم نوشته هارو بنویسه (مثل بگه حجم نوشته ها 11KB یا 10Mg)

ممنون میشم با پروژههای وی بی توضیح بدین

[saeedvir]

یه پیشنهاد :

شما ابتدا یک فایل txt ایجاد کنید بعد با تابع filelen حجم اون را بدست آورید



Private Sub Form_Load()

Open App.Path + "\version_info" For Output As #1
Print #1, Text1.Text
Close #1

MsgBox FileLen(App.Path + "\version_info") / 1000 & " KB"
End Sub

[xxxxx_xxxxx]

اگر میخواید به طور دقیق محاسبه کنید، هر کیلوبایت معادل 1024 بایت هست.
پس عدد 1000 در دستورات بالا رو به 1024 تغییر بدید.