[shadid]

انا اسف يا جماعة بس بصراحة مش عارف وين قسم الاسئلة العادية

يا جماعة انا عندي فورم فيها 2 تكست
الاول كاتب فيه اسم المستخدم والثاني كلمة المرور بلون رمادي
ممكن الكود اللي بخلي الاول لما اكتب فيه اي اشي يمسح كلمة اسم المستخدم ويكتب الحرف اللي انا كتبته ويغير اللون لاسود
واذا خليتيو فاضي وانتقلت ع تكست ثاني يرجع يكتبلي فيه اسم المستخدم وبالخط الرمادي
يعني زي فكرة تسجي الدخول للهوتميل مثلا
ومشكورين يا جماعة

[Sajad]

[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]

مشكووووووووووور اخي وجزاك الله الف خير هذا هو طلبي بالزبط

[shadid]

بدي اغلبك طيب ولو عالفيجوال بيسك 6 شو لازم نغير بالكود ؟؟

[shadid]

كل الاكواد منقدر نستبدلها بس كود replace مش عارف عالفيجوال بيسك 6 شو بصير

[shadid]

مشكوووووووووور اخي هذا الكود اشتغل معي بس لو في مشكلة احكيلي

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]

[b][b]السلام عليكم

أخي العزيز انا ضعيف في الvb6 ولا يوجد عندي برنامج vb6 ولا ابرمج بالvb6 آسف[/b][/b]

[shadid]

شكرا ع كل حال غلبتك معي