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

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

سؤال - اسيل1 - 12-12-18

سلام عليكم سؤالي كيف يمكن وضع بالتيكست بوكس عبارة " ادخل كلمة السر " وعند وضع المؤشر نجعلها تختفي عند البدء بكتابة كلمة السر حاولت بأكثر من طريقة ولم تنجح معي  Huh Huh

RE: سؤال - ابراهيم ايبو - 12-12-18

السلام عليكم اخي الكريم
في حدث mouse click  

كود :
 Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
       TextBox1.Text = ""
   End Sub


RE: سؤال - trakktour - 13-12-18

و عليكم السلام اخي
تفضل
كود :
   Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
       If TextBox1.Text = "ادخل كلمة السر" Then
           TextBox1.Clear()
           TextBox1.ForeColor = Color.Black
       End If
   End Sub

   Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
       If TextBox1.Text.Trim = "" Then
           TextBox1.Text = "ادخل كلمة السر"
           TextBox1.ForeColor = Color.Gray
       End If
   End Sub