04-12-21, 11:29 PM
وعليكم السلام ورحمة الله وبركاته ..
هذا الكود
هذا الكود
كود :
If Trim$(Text1.Text = "") = "" Then Exit Sub
For i = 0 To List1.ListCount - 1
If List1.List(i) = Trim(Text1.Text) Then
MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ ãÓÈÞÇð", vbExclamation, "ÊäÈíå"
Exit Sub
End If
Next i
List1.AddItem Trim(Text1.Text)
Text1.Text = ""
Text1.SetFocusقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
