16-01-14, 09:01 AM
السلام عليكم
- أدرج على الفورم Text1 و Label1 و Command1 ثم ضع هذا الكود في داخل كود الزر Command1 :
- تحياتي .
- أدرج على الفورم Text1 و Label1 و Command1 ثم ضع هذا الكود في داخل كود الزر Command1 :
كود :
Dim zStr As String
zStr = Replace$(Trim$(Text1.Text), " ", "")
Label1.Caption = Len(Trim$(zStr))- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
