[سعود]

الجواب هذا على آخر مشاركة قبل مشاركتي هذه لاني لم استطع النقر على زر رد لانه يحولني الى صفحة
يتعذّر على هذه الصفحة العمل

بعد ان نضيف قيم افتراضية لخاصية Tag لمربع النص و كذلك لخاصية الـ Text هذا الكود لدي كامل مع كلاس الفورم:

PHP كود :

Public Class Form1
    Private Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox2.MouseDown, TextBox1.MouseDown
        If e.Button = MouseButtons.Left Then
            Dim c As TextBox = DirectCast(sender, TextBox)
            If c.Text = c.Tag Then
                c.Clear()
            End If
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Hide()
        Close()
    End Sub

    Private Sub Form1_Closed(sender As Object, e As EventArgs) Handles Me.Closed
        End
    End Sub

    Private Sub TextBox1_MouseLeave(sender As Object, e As EventArgs) Handles TextBox2.MouseLeave, TextBox1.MouseLeave
        Dim c As TextBox = DirectCast(sender, TextBox)
        If c.Text.Trim = "" Then
            c.Text = c.Tag
        End If

    End Sub
End Class 


و المثال مرفق .

[سعود]

تحديث بخصوص لون النص بعد تغييره

في حدث  TextBox1_MouseDown نضيف الكود او السطر التالي:

 c.ForeColor = Color.Black

و ضمن حدث TextBox1_MouseLeave

نضيف:

 c.ForeColor = Color.FromName("InactiveCaption")

أقصد نضيفه آخر الموجود ضمن  جواب الشرط

صباح الخير.