منتدى فيجوال بيسك



نتائج مسابقة المقالات الربع الثاني 2010 - الإنتهاء: 27-09-10

أهلا بالضيف - الإنتهاء: 07-09-10

كاميليا - الإنتهاء: 31-10-10

عـودة للخلف   منتدى فيجوال بيسك > قسم أسئلة واستفسارات الأعضاء > فيجوال بيسك دوت نت VB.NET

فيجوال بيسك دوت نت VB.NET الأسئلة والنقاش حول فيجوال بيسك دوت نت VB.NET

الرد على الموضوع
 
أدوات الموضوع طريقة العرض
قديم 17-11-09   #1
al hafez
عضو
 
تاريخ التسجيل: Dec 2008
المشاركات: 124
عدد مرات شكره للأعضاء: 0
تم شكره 6 مره في 6 مشاركه
قوة التقييم: 2
al hafez is on a distinguished road
الافتراضي كيف اتحكم في الالوان عن طريق الكود في اداة Text Box

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

ياشباب اريد خدمة كيف لي تلوين ما يكتب في Text Box يعني

مثل إذا وضعت كلمة (الله) تطلع في لون احمر

و إذا كتبة كلمة (محمد) تطلع في اللون الاخضر

و إذا كتبة (عثمان رضي الله عنه) يطلع في اللون الاصفر

و باقي الاسماء في غير الوان انا احددها
al hafez غير متصل   الرد باقتباس
قديم 17-11-09   #2
DJamal
عضو جديد
 
تاريخ التسجيل: Apr 2009
المشاركات: 4
عدد مرات شكره للأعضاء: 0
تم شكره 0 مره في 0 مشاركه
قوة التقييم: 0
DJamal is on a distinguished road
الافتراضي

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

الحل اخي الكريم هو التالي
اقتباس:
private sub textbox1_textchanged(byval sender as system.object, byval e as system.eventargs) handles textbox1.textchanged
if textbox1.text = "الله" then
textbox1.forecolor = color.red

elseif textbox1.text = "محمد" then
textbox1.forecolor = color.green

elseif textbox1.text = "عثمان رضي الله عنه" then
textbox1.forecolor = color.yellow
end if
end sub
DJamal غير متصل   الرد باقتباس
قديم 17-11-09   #3
أنس محمود
عضو فعال
 
تاريخ التسجيل: Feb 2009
المشاركات: 1,236
عدد مرات شكره للأعضاء: 322
تم شكره 351 مره في 177 مشاركه
قوة التقييم: 3
أنس محمود عضو متوسط

الأوسمة

الافتراضي

اقتباس:
المشاركة الأصلية بواسطة al hafez مشاهدة المشاركة
السلام عليكم و رحمة الله و بركاته

ياشباب اريد خدمة كيف لي تلوين ما يكتب في Text Box يعني

مثل إذا وضعت كلمة (الله) تطلع في لون احمر

و إذا كتبة كلمة (محمد) تطلع في اللون الاخضر

و إذا كتبة (عثمان رضي الله عنه) يطلع في اللون الاصفر

و باقي الاسماء في غير الوان انا احددها
في هذه الحالة يجب استخدام RichTextBox بدلا من TextBox ،

في الحدث RichTextBox1_TextChanged أكتب :-

الرمز PHP:
        Dim s As Integer Me.RichTextBox1.SelectionStart
        Dim s_e 
As Integer Me.RichTextBox1.SelectionLength
        Me
.RichTextBox1.SelectAll()
        
Me.RichTextBox1.SelectionColor Color.Black
        Me
.RichTextBox1.Select(00)
        
Dim aa As Integer Me.RichTextBox1.Text.Split("الله").Length
        
For As Integer 0 To aa
            
If Not Me.RichTextBox1.Find("الله"Me.RichTextBox1.SelectionStart Me.RichTextBox1.SelectionLengthRichTextBoxFinds.WholeWord) = -1 Then
                Me
.RichTextBox1.SelectionColor Color.Red
            End 
If
        
Next
        Me
.RichTextBox1.Select(00)
        
Dim aa1 As Integer Me.RichTextBox1.Text.Split("عثمان رضي الله عنه").Length
        
For As Integer 0 To aa1
            
If Not Me.RichTextBox1.Find("عثمان رضي الله عنه"Me.RichTextBox1.SelectionStart Me.RichTextBox1.SelectionLengthRichTextBoxFinds.WholeWord) = -1 Then
                Me
.RichTextBox1.SelectionColor Color.Yellow
            End 
If
        
Next
        Me
.RichTextBox1.Select(00)
        
Dim aa2 As Integer Me.RichTextBox1.Text.Split("محمد").Length
        
For As Integer 0 To aa2
            
If Not Me.RichTextBox1.Find("محمد"Me.RichTextBox1.SelectionStart Me.RichTextBox1.SelectionLengthRichTextBoxFinds.WholeWord) = -1 Then
                Me
.RichTextBox1.SelectionColor Color.Green
            End 
If
        
Next
        Me
.RichTextBox1.Select(ss_e
ثانية اعملك المثال
__________________
~حصريا للمنتدى: طريقة }]>-تحويل الفيديو-<[{ بالـ VB.NET !! الشرح بالصور !!!!~:-
>>> الموضوع : http://vb4arab.com/vb/showthread.php?p=402758 <<<
_.~-~._ قناة نسائم الرحمة بتردد : 10873رأسي, ترميز:27500 تصحيح :3/4 _.~-~._
أنس محمود غير متصل   الرد باقتباس
العضو التالي يشكر أنس محمود على هذه المشاركة :
Islam way (17-11-09)
قديم 17-11-09   #4
أنس محمود
عضو فعال
 
تاريخ التسجيل: Feb 2009
المشاركات: 1,236
عدد مرات شكره للأعضاء: 322
تم شكره 351 مره في 177 مشاركه
قوة التقييم: 3
أنس محمود عضو متوسط

الأوسمة

الافتراضي

عفوا اخي لم اتمكن من رفع المثال

يمكنك تجربة الكود

ثم اخباري بالنتيجة
__________________
~حصريا للمنتدى: طريقة }]>-تحويل الفيديو-<[{ بالـ VB.NET !! الشرح بالصور !!!!~:-
>>> الموضوع : http://vb4arab.com/vb/showthread.php?p=402758 <<<
_.~-~._ قناة نسائم الرحمة بتردد : 10873رأسي, ترميز:27500 تصحيح :3/4 _.~-~._
أنس محمود غير متصل   الرد باقتباس
الرد على الموضوع


يتصفح الموضوع حالياً: 1 (0 عضو و 1 ضيف)
 
أدوات الموضوع
طريقة العرض

قوانين المشاركة
لا يمكنك إضافة مواضيع
لا يمكنك إضافة ردود
لا يمكنك إضافة مرفقات
لا يمكنك تعديل مشاركاتك

رمز [IMG] متاح
رموز HTML مغلق
انتقل إلى


الساعة الآن +3: 12:05 AM.



إعلانات نصية: القرآن  الإسلام  السنة   رسول الله    صيد الفوائد طريق الإسلام   إبن باز  إبن عثيمين الإسلام سؤال وجواب  المسلم  الإسلام اليوم  البث الإسلامي    طريق القرآن   المصحف الشريف بالفلاش  رسالة الإسلام كلمات  طريق الإيمان    قناة المجد المجهر   سلطان    الراصد  البينة  البرهان  الفرقان قصة الإسلام أسرة نت دليل المواقع منتدى مكتوب

Powered by vBulletin®
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
هذا المنتدى يستخدم منتجات بلص
جميع الحقوق محفوظة لموقع فيجوال بيسك للعرب vb4arab.com