السلام عليكم ورحمة الله
مطلوب كود حساب حروف النص بلا مسافات
فمثلا ( بسم الله الرحمن الرحيم ) 19 حرف
ولكم جزيل الشكر
السلام عليكم
- أدرج على الفورم Text1 و Label1 و Command1 ثم ضع هذا الكود في داخل كود الزر Command1 :
كود :
Dim zStr As String
zStr = Replace$(Trim$(Text1.Text), " ", "")
Label1.Caption = Len(Trim$(zStr))
- تحياتي .
شكرا جزيلا
بارك الله فيك
وجزيت خيرا كثرا