+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [عنوان معدل]كيفية عمل مثال تسجيل الدخول (/showthread.php?tid=9491)
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - shadid - 02-07-13
انا اسف يا جماعة بس بصراحة مش عارف وين قسم الاسئلة العادية
يا جماعة انا عندي فورم فيها 2 تكست
الاول كاتب فيه اسم المستخدم والثاني كلمة المرور بلون رمادي
ممكن الكود اللي بخلي الاول لما اكتب فيه اي اشي يمسح كلمة اسم المستخدم ويكتب الحرف اللي انا كتبته ويغير اللون لاسود
واذا خليتيو فاضي وانتقلت ع تكست ثاني يرجع يكتبلي فيه اسم المستخدم وبالخط الرمادي
يعني زي فكرة تسجي الدخول للهوتميل مثلا
ومشكورين يا جماعة
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - Sajad - 02-07-13
[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
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - shadid - 02-07-13
مشكووووووووووور اخي وجزاك الله الف خير هذا هو طلبي بالزبط
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - shadid - 02-07-13
بدي اغلبك طيب ولو عالفيجوال بيسك 6 شو لازم نغير بالكود ؟؟
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - shadid - 03-07-13
كل الاكواد منقدر نستبدلها بس كود replace مش عارف عالفيجوال بيسك 6 شو بصير
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - shadid - 03-07-13
مشكوووووووووور اخي هذا الكود اشتغل معي بس لو في مشكلة احكيلي
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
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - Sajad - 03-07-13
[b][b]السلام عليكم
أخي العزيز انا ضعيف في الvb6 ولا يوجد عندي برنامج vb6 ولا ابرمج بالvb6 آسف
[/b][/b]
[عنوان معدل]كيفية عمل مثال تسجيل الدخول - shadid - 03-07-13
شكرا ع كل حال غلبتك معي