السلام عليكم...
شباب هل يوجد كود لمنع تكرار الحرف داخلب التكست بوكس.؟؟
تحيااااااااااااااااتي :S
[ تمت الإجابة ]منع تكرار الحرف في التكست
السلام عليكم...
استعمل معالج الحدث KeyPress للـ TextBox لهذا الغرض:
1. منع التكرار مع التفريق بين الحروف الكبيرة (Capital) و الصغيرة (Samall) - أي مثلاً A و a لا يعتبر تكراراً:
- Private Sub Text1_KeyPress(KeyAscii As Integer)
- If InStr(Text1.Text, Chr(KeyAscii)) Then KeyAscii = 0
- End Sub
2. منع التكرار مع المساواة بين الحروف الكبيرة (Capital) و الصغيرة (Samall) - أي مثلاً A و a يعتبر تكراراً:
- Private Sub Text1_KeyPress(KeyAscii As Integer)
- If InStr(1, Text1.Text, Chr(KeyAscii), vbTextCompare) Then KeyAscii = 0
- End Sub
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
مشكووووووووووووووووور ولكن بدي اياه يفحص النص ..
يعني النص مدخل سابقا وبدي الكود يفحص اذا في حرف متككر يمسحو
وشكرااااااااااااااااااا
ضع الكود ادناه في الحدث المراد تنفيذه فيه
Dim TMP2Str As String
TMP1Str = Me.Text1.Text
Do Until Len(TMP1Str) = 0
TMP2Str = TMP2Str & Left(TMP1Str, 1)
TMP1Str = Replace(TMP1Str, Left(TMP1Str, 1), "", 1, -1, vbTextCompare)
Loop
Text1.Text = TMP2Str
Dim TMP1Str As String
كما يجب استبدال vbTextCompare بـ vbDatabaseCompare
في حالة رغبتك في التفرقة بين الحروف الـ Capital والحروف Small
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
مشكوووووووووووووووووووووووور اخي تم الاجابة