ورود

نسخه کامل مشاهده نسخه کامل : رنگی کردن متن خاص در vb (مثل خوده vb)


shahrdartoope
09-05-2006, 04:48
سلام

من خیلی وقته که دارم دونبال این میگردم که مثلا اگه تو تکست بباکس نو شتم if یا end یا ' یا.... رنگ متن رو عوض کنه یا کل خط رو به رنگ دیگه در بیاره مثل و.ب

ممنون
shahrdartoope
12-05-2006, 02:54
حداقل یکی بگه اسم این کار چیه من خودم پیداش میکنم
blackroos
12-05-2006, 12:34
سلام
فکر کنم این کد مشکلت رو برطرف کنه البته برای اینکه کل متن رو رنگی کنی
Private Sub Text1_Change()
If InStr(1, Text1.Text, "vb") Or InStr(1, Text1.Text, "end") Then
Text1.ForeColor = &H80000001
Else
Text1.ForeColor = &HFF&
End If
End Sub