ايران ويج

نسخه‌ی کامل: استفاده از چند رنگ و چند فونت در تکست باکس
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام
می خواستم ببینم یه ادیتور که همچین امکاناتی رو داره و می تونه چندین رنگ رو در یک خط نمایش بده چطوریه ؟
اکتیوکس خاصی داره ؟

مثلا مثل ادیتور خود ویزوال بیسیک و یا همین حالتی که توی تگ کد فروم داریم :
کد php:
Private Sub txt_num_KeyPress(KeyAscii As Integer)
If (
KeyAscii 48 Or KeyAscii 57) And KeyAscii <> 8 Then KeyAscii 0
End Sub 

اگه بخوایم به همین صورت ادیتور ویژوال بیسیک زمانی که کاربر مثلا یه کلمه کلیدی رو تایپ می کنه اون کلمه رنگش عوض بشه باید چه کنیم ؟
اول این ماژول و یک RichTextBox اضافه می کنی

[attachment=1186]

دوم این کد رو توی قسمت Change کامپونت RichTextBox می نویسی

فرض می کنیم نام کنترل RichtextBox1 است

کد:
SetColors RichTextBox1, Me.hwnd

البته کدها رو که ببینی می فهمی چه طوریه و میتونی برای زبانهای دیگه تغییرش بدی
yeketaz نوشته است:اول این ماژول و یک RichTextBox اضافه می کنی



دوم این کد رو توی قسمت Change کامپونت RichTextBox می نویسی

فرض می کنیم نام کنترل RichtextBox1 است

کد:
SetColors RichTextBox1, Me.hwnd

البته کدها رو که ببینی می فهمی چه طوریه و میتونی برای زبانهای دیگه تغییرش بدی


ممنونHeart
ولی این تابع یا ساب تعریف نشده :
LockWindowUpdate

یه سمپل نمیشه آپ کنین ازش ؟Confused
اینا بزار توی ماژول

Public Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As Long) As Long