+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة (/showthread.php?tid=13793)
RE: اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة - سعود - 02-06-23
الجواب هذا على آخر مشاركة قبل مشاركتي هذه لاني لم استطع النقر على زر رد لانه يحولني الى صفحة
يتعذّر على هذه الصفحة العمل
بعد ان نضيف قيم افتراضية لخاصية 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
و المثال مرفق .
RE: اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة - سعود - 03-06-23
تحديث بخصوص لون النص بعد تغييره
في حدث TextBox1_MouseDown نضيف الكود او السطر التالي:
c.ForeColor = Color.Black
و ضمن حدث TextBox1_MouseLeave
نضيف:
c.ForeColor = Color.FromName("InactiveCaption")
أقصد نضيفه آخر الموجود ضمن جواب الشرط
صباح الخير.