منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تغير لون كتابة التيكست بوكس ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تغير لون كتابة التيكست بوكس ؟ (/showthread.php?tid=375)

تغير لون كتابة التيكست بوكس ؟ - Mido9 - 03-10-13

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


اخواني الافاضل انا كنت اريد ان اعمل تحقق من الحقول عندي عن طريق إني اغير لون إطار التيكست بوكس للاحمر

ولكن عرفت إنه لا يمكن عمل ما اريده


فهل يمكن على الاقل ان اقوم بتغير لون الكتابة بداخل التيكست بوكس فقط ؟

للاسف جربت الـ ForeColor ولكن لم يتغير اللون


وشكرا لكم

RE: تغير لون كتابة التيكست بوكس ؟ - mohammed moh - 03-10-13

و عليكم السلام و رحمة الله
إن كنت فهمت قصدك ممكن هذا الحل يساعدك و الله أعلم
المهم تفضل الكود و توكل على الله
PHP كود :
Private Sub form1_Paint(ByVal sender As Object,ByVal e As PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
        Dim pen As New Pen(Color.Red, 2.0)
        For Each x As Control In Me.Controls
            If TextBox1.Text > "" Then
                If TypeOf x Is TextBox Then

                    g.DrawRectangle(pen, New Rectangle(x.Location, x.Size))
                End If
            End If
        Next
        pen.Dispose()
    End Sub

   
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Refresh()
    End Sub 
+ أنت حر في إختيار الشرط الذي تريد مثلا انا في هذا المثال اخترت أنه عندما يكون النص غير فارغ يقوم بتلوين الإيطار
بالتوفيق أخي الكريم

RE: تغير لون كتابة التيكست بوكس ؟ - العزابي - 03-10-13

ماشاءلله على اخي mohammed moh ماقصر كود ولا اروع وبعد أذنه أظيف شغلة بحيث يصبح
يتاكد التكست بوكس تلقائي هل هو فارغ أو لا وبعدها يتلون الاطار . حيث أني أظفت تايمر فقط

PHP كود :
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Timer1.Start()

    End Sub 

تضع تايمر على الفورم وتفعله وتضع interval 100 ثم دبل كلك على التايمر

PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Refresh()
    End Sub 


RE: تغير لون كتابة التيكست بوكس ؟ - nmst70 - 03-10-13

اخي العزيز لتغير لون الخط في التكست اكتب هذا الكود في حدت Form1_Load


PHP كود :
TextBox1.ForeColor = Color.Red 




واخي هذا الكود لتغير حجم ونوع الخط في التكست اكتب هذا الكود في حدت Form1_Load

PHP كود :
TextBox1.Font = New Font("Times New Roman", 15, FontStyle.Italic) 

ونحن في الخدمة

RE: تغير لون كتابة التيكست بوكس ؟ - Mido9 - 05-10-13

ماشاء الله عليكم ،، جزاكم الله خيرا اخواني الافاضل

مبدعين و الله

تسلموووو

RE: تغير لون كتابة التيكست بوكس ؟ - omferas - 30-11-16

Dim g As Graphics = e.Graphics

g.DrawRectangle(pen, New Rectangle(x.Location, x.Size))
شلتها لاشتغل الكود ممكن تفسير عنها؟ وشكرا