31-03-14, 04:12 AM
السلام عليكم
- تم تعديل الكود :
- تحياتي .
- تم تعديل الكود :
كود :
Private Sub Text17_KeyPress(KeyAscii As Integer)
Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(1,ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0 : Exit Sub
i = InStr(1,Trim(Text17.Text), ".")
If Chr(KeyAscii) = "." And i <> 0 The Exit Sub
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next