منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مربع النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مربع النص (/showthread.php?tid=44519)

مربع النص - Abdellah - 09-12-22

السلام عليكم و رحمة الله

اخواني الاعزاء أريد كور لتغيير لون مربع النص بشرط الابتداء بكلمة معينة في أول النص 
جزاكم الله كل خير. Rolleyes

RE: مربع النص - Taha Okla - 09-12-22

(09-12-22, 06:31 PM)Abdellah كتب : السلام عليكم و رحمة الله

اخواني الاعزاء أريد كور لتغيير لون مربع النص بشرط الابتداء بكلمة معينة في أول النص 
جزاكم الله كل خير. Rolleyes

وعليكم السلام ورحمة الله وبركاته

من أجل تغيير لون خلفية مربع نص بطريقة لطيفة -- يستخدم الحدثين (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


RE: مربع النص - Abdellah - 10-12-22

شكرا لك أخي العزيز على الرد لقد استعملت الكود فإنه يعمل
جيدا جزاكم الله كل خير Smile