[VBMaged]

السلام عليكم اخواني وإساتذتي الكرام
------------------------
كيف اجعل Textbox بها كلمة "بحث " ولاكن شفافة مثل محرك البحث bing

توضيح اكثر
حينا يكون التركيز مثلا ع Button1
تكتب كلمة بحث في Textbox وعند التركيز علي Textbox بالماوس او الكيبورد تمسح الكلمة

[shado1796]

السلام عليكم ،، تفضل ..

ضع هذا الكود في لود الفورم وهو لجلب النص الشفاف عند فتح الفورم

كود :

If TextBox1.Text = String.Empty Then
            TextBox1.Text = Tip
            TextBox1.ForeColor = Color.DimGray
        End If

ضع هذا الكود في كلاس الفورم وهو لتعريف معنى Tip وهو تعريف النص المراد ضهوره

كود :

Const Tip As String = "Example@Gmail.com"

وضع هذا الكود في احداث التكست الموضح باللون الاحمر

كود :

' هذا الكود وضعناه لكي عند الضغط على التكست يذهب النص الشفاف
    Private Sub TextBox1_[color=#FF0000]GotFocus1[/color](ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus

        If TextBox1.Text = Tip Then
            TextBox1.Text = String.Empty
            TextBox1.ForeColor = Color.Black
        End If
    End Sub


' هذا الكود وضعناه لكي عند الضغط على التكست يرجع  النص الشفاف عندما يكون التكست فارغ ولا يكون المؤشر موجود
    Private Sub TextBox1_[color=#FF0000]LostFocus[/color](ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

        If TextBox1.Text = String.Empty Then
            TextBox1.Text = Tip
            TextBox1.ForeColor = Color.DimGray
        End If
    End Sub

اذا لم تعرف و اردت مثال اخبرني وسوف اعمل لك المثال
بالتوفيق ،،

[Abu Ehab]

[SIZE=5]V.Good
أنا بيعجبني الشـــــــاب اللى عنده خـــــــيال برمجي واســــــع ..[/SIZE]

[learning.net]

فكره جميله فعلا بارك الله فيك
وايضا يعجبنى من يتعلم و يعلم الاخرين

[shado1796]

شكرا لكم ،،

[VBMaged]

اخي الكريم وإستاذي الفاضل
[b]shado1796[/b]



والله لم اجد كلام اقولة في حقك لأن الحروف كلها تعجز عن الشكر والعرفان لك
كل ما اود ان اقولة بارك الله فيك وجعلة في ميزان حسناتك وزادك علما

معلش انا لسا مبتدئ "ممكن مثال"
--------------------------

وشكرا جزيلا معلمي الفاضل [b]Abu Ehab[/b]
علي مرورك الكريم وكلامك الطيب

[shado1796]

VBMaged كتب :اخي الكريم وإستاذي الفاضل
[b]shado1796[/b]



والله لم اجد كلام اقولة في حقك لأن الحروف كلها تعجز عن الشكر والعرفان لك
كل ما اود ان اقولة بارك الله فيك وجعلة في ميزان حسناتك وزادك علما

معلش انا لسا مبتدئ "ممكن مثال"
--------------------------

وشكرا جزيلا معلمي الفاضل [b]Abu Ehab[/b]
علي مرورك الكريم وكلامك الطيب

ماعندك مشكلة .. الان اسوي لك مثال ،، ثواني بس

[shado1796]

تفضل اخي الكريم هذي صورة للمثال المرفق
http://im37.gulfup.com/vkpLY.png

والمثال مرفق في المرفقات Vb.Net 2010

بالتوفيق

[VBMaged]

بارك الله فيك وشكرا جزبلا لك

وتم التجربة علي Vb.net 2008 والحمد لله 100%

[shado1796]

VBMaged كتب :بارك الله فيك وشكرا جزبلا لك

وتم التجربة علي Vb.net 2008 والحمد لله 100%

[COLOR="#FF0000"]
.. بالتوفيق[/COLOR]