السلام عليكم و رحمة الله
اخواني الاعزاء أريد كور لتغيير لون مربع النص بشرط الابتداء بكلمة معينة في أول النص
جزاكم الله كل خير.
(09-12-22, 06:31 PM)Abdellah كتب : [ -> ]السلام عليكم و رحمة الله
اخواني الاعزاء أريد كور لتغيير لون مربع النص بشرط الابتداء بكلمة معينة في أول النص
جزاكم الله كل خير.
وعليكم السلام ورحمة الله وبركاته
من أجل تغيير لون خلفية مربع نص بطريقة لطيفة -- يستخدم الحدثين (
GotFocus) و (
LostFocus).
الحدث (
GotFocus) عندما تكون ضمن مربع النص يتغير للون مريح لبصر ويدل على التفعيل مثل (الأخضر، والسماوي، الرمادي) مع تدرجاتها..
والحدث (
LostFocus) عندما تغادر مربع النص يغير اللون للون آخر ، فإذا كانت البيانات صحيحة يحوزل اللون للون عادي أو مريح للبصر.. وإذا كان الادخال خاطئ يحول لون مربع النص للون مزعج أو يوحي بالإزعاج كـ الألوان (الأحمر،البرتقالي، الأًصفر) مع تدرجاتها ..
كود :
Private Sub Text1_GotFocus()
Text1.BackColor = &HC0FFC0
End Sub
Private Sub Text1_LostFocus()
Dim strT As String
strT = "T"
If Mid(Text1.Text, 1, Len(strT)) = strT Then
Text1.BackColor = &H80000005
Else
Text1.BackColor = &H8080FF
End If
End Sub
شكرا لك أخي العزيز على الرد لقد استعملت الكود فإنه يعمل
جيدا جزاكم الله كل خير
