اظن الاخ مهموم قال حدث GotFocus
هاهو الكود مع تغير اسم ال textbox
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
TextBox1.Text = ""
End Sub
انظر المثال في المرفقات سيوضح لك الأمر قليلا
المثال بنسخة الفيجوال استوديو 2012
اختي العزيزة
انتي اصلا كيف وصعتي القيمه الافتراضيه بالtextbox؟
ارجو وضع اكود الذي وضعتي فيه هذه القيمه لنعرف كيف نمسحه
اشكركم جميعا اشتغلت معي الكودات بس الظاهر نوع ال Textbox الي انا استخدمته كان عليه مشاكل مشكورين ع الافاددة
هذا الي كان مقصود اني امسح النصوص بمجرد الضغط على textbox
كود :
Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
TextBox1.Text = ""
End Sub
اختى و زميلتنا الفاضلة
الطريقة المثلى و الأكيدة وضعت لك بها مثال ارجو تجربته و ابلاغى
If TextBox1.Text = "User Name" Then
TextBox1.Text = ""
Else
GoTo 100
100:
End If
كود :
Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter
If TextBox1.Text = "User Name" Then TextBox1.Text = ""
End Sub
Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
If TextBox1.Text = "" Then TextBox1.Text = "User Name"
End Sub
if text1.text <>dg1.index then
s=text1.text
text1.text=s
(11-11-15, 09:48 PM)رهف العريفي كتب : [ -> ]اريد كود لمسح النص عندما اريد الكتابة في ال textbox بمجرد الضغط على ال textebox
لاني حاطة قيمة افتراضية بالتكست بوكس اريد مسح القيمة او نص عند كتابة قيمة جديدة كيف طريقة الكود ياريت حدا يساعدن
لو سمحتي عرفتي اي الكود عشان عايزو