انا اسف يا جماعة بس بصراحة مش عارف وين قسم الاسئلة العادية
يا جماعة انا عندي فورم فيها 2 تكست
الاول كاتب فيه اسم المستخدم والثاني كلمة المرور بلون رمادي
ممكن الكود اللي بخلي الاول لما اكتب فيه اي اشي يمسح كلمة اسم المستخدم ويكتب الحرف اللي انا كتبته ويغير اللون لاسود
واذا خليتيو فاضي وانتقلت ع تكست ثاني يرجع يكتبلي فيه اسم المستخدم وبالخط الرمادي
يعني زي فكرة تسجي الدخول للهوتميل مثلا
ومشكورين يا جماعة
[color="#800080"]السلام عليكم
أخي العزيز بأي لغة تبرمج؟ قم بوضع الاسئلة حسب اللغة التي تبرمج بها وضع عنوان مناسب يدل على المحتوى[/color]
تم نقل الموضوع الى قسم اسئلة الvb.net
أخي العزيز اولا اكتب كلمة (اسم المستخدم) في خاصية الText والTag في الTextBox1
ثم اكتب كلمة (كلمة المرور) في خاصية الText والTag في الTextBox2
ومن ثم من خاصية الForeColor غير اللون الى Gray للحقلين
ثم اكتب هذا الكود في حدث الTextBox1_TextChanged
PHP كود :
If (TextBox1.Focused) Then
If (TextBox1.Tag = "اسم المستخدم") Then
TextBox1.Text = TextBox1.Text.Replace("اسم المستخدم", "")
TextBox1.Tag = ""
TextBox1.ForeColor = Color.Black
TextBox1.SelectionStart = TextBox1.Text.Length
End If
If TextBox1.Text = "" Then
TextBox1.ForeColor = Color.Gray
TextBox1.Text = "اسم المستخدم"
TextBox1.Tag = "اسم المستخدم"
End If
End If
وهذا الكود في حدث الTextBox2_TextChanged
PHP كود :
If (TextBox2.Focused) Then
If (TextBox2.Tag = "كلمة المرور") Then
TextBox2.Text = TextBox2.Text.Replace("كلمة المرور", "")
TextBox2.Tag = ""
TextBox2.ForeColor = Color.Black
TextBox2.SelectionStart = TextBox2.Text.Length
End If
If TextBox2.Text = "" Then
TextBox2.ForeColor = Color.Gray
TextBox2.Text = "كلمة المرور"
TextBox2.Tag = "كلمة المرور"
End If
End If
مشكووووووووووور اخي وجزاك الله الف خير هذا هو طلبي بالزبط
بدي اغلبك طيب ولو عالفيجوال بيسك 6 شو لازم نغير بالكود ؟؟
كل الاكواد منقدر نستبدلها بس كود replace مش عارف عالفيجوال بيسك 6 شو بصير
مشكوووووووووور اخي هذا الكود اشتغل معي بس لو في مشكلة احكيلي
PHP كود :
If (Text3.Tag = "اسم المستخدم") Then
Text3.Text = ""
Text3.Tag = ""
Text3.ForeColor = &H0&
Text3.SelLength = Len(Text3)
Text3.SelStart = Text3.SelLength
Else
If Text3.Text = "" Then
Text3.ForeColor = &H80000003
Text3.Text = "اسم المستخدم"
Text3.Tag = "اسم المستخدم"
End If
End If
[b][b]السلام عليكم
أخي العزيز انا ضعيف في الvb6 ولا يوجد عندي برنامج vb6 ولا ابرمج بالvb6 آسف
[/b][/b]