اول حاجه تعملها : تجعل خاصيه Hide Selection للتيكست بوكس =false حتى يظهر التظليل
واتبع الخطوات :
1- اول حاجه عاوزين نعرفها هيا عدد العناصر اللى فى التيكست فتعمل متغير وتضع فى عدد العناصر فى التيكست بوكس وستحصل عليها من الداله Len
| كود |
Dim f As Integer
f = Len(Text1.Text)
|
2- نحدد اول عنصر لبدء التظليل وهو العنصر الاول - لاننا سنظلل كله - وهو على فكره بيكون ترتيبه zERO
3- ونحدد عدد عناصر التظليل وهى عدد العناصر اللى فى التيكست بوكس كلها
فسيكون الكود النهائى
| كود |
Private Sub Command1_Click()
Dim f As Integer
f = Len(Text1.Text)
Text1.SelStart = 0
Text1.SelLength = f
End Sub
|
26-07-2006, 05:47 AM
تظليل النص بضغطه زر
العرض الشجري