استفاده از چند رنگ و چند فونت در تکست باکس

[amin_amin]

سلام
می خواستم ببینم یه ادیتور که همچین امکاناتی رو داره و می تونه چندین رنگ رو در یک خط نمایش بده چطوریه ؟
اکتیوکس خاصی داره ؟

مثلا مثل ادیتور خود ویزوال بیسیک و یا همین حالتی که توی تگ کد فروم داریم :

کد php:

Private Sub txt_num_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
End Sub 


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

[yeketaz]

اول این ماژول و یک RichTextBox اضافه می کنی


  VBS.zip (اندازه: 1.89 KB / تعداد دفعات دریافت: 100)

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

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

کد:

SetColors RichTextBox1, Me.hwnd

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

[amin_amin]

اول این ماژول و یک RichTextBox اضافه می کنی



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

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

کد:

SetColors RichTextBox1, Me.hwnd

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

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

یه سمپل نمیشه آپ کنین ازش ؟

[yeketaz]

اینا بزار توی ماژول

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